访问VBA SQL查询

Question

下面的代码是一个SELECT查询，并将相应的值传递到MS Access中的相应控制框。 它正在传递除最初从列表框（ POA_Assigned_to_individual_Name.RowSource ）接收的值以外的所有值。

似乎SQL查询带来的结果是null值，并且无法将其传递回列表框。

SQL = "SELECT * FROM Incident_Record" & _
  " WHERE [Incident_Record].[SMART_Incident_Ticket] =  " & Me.Mod_SMART_Incident_Ticket.Value & " "

Set rs = CurrentDb.OpenRecordset(SQL)
Totcount = rs.RecordCount

    If totcount = 0 Then
        MsgBox "No Match Found", vbCritical, "SMART Case"
        Call Clear_Modification_Fields
        Exit Sub
    End If

With Rs
    Do While Not Rs.EOF
    Mod_Remedy_Incident_Ticket = ![Remedy_Incident_Ticket]
    Mod_ECD_Portal_Incident_Ticket = ![ECD_Portal_Incident_Ticket]
    Mod_SMART_Problem_Ticket = ![SMART_Problem_Ticket]
    Mod_Issue_Summary = ![Issue_Summary]
    Mod_POA_Assigned_to_individual_Name = ![POA_Assigned_to_individual_Name]

    RS.MoveNext
    Loop
End with

下面的代码将值传递给列表框POA_Assigned_to_individual_Name 。

Mod_POA_Assigned_to_individual_Name = ![POA_Assigned_to_individual_Name]

但是![POA_Assigned_to_individual_Name]显示为null 。

除此之外，所有其他字段都在获取值。

Answer 1

  Mod_POA_Assigned_to_individual_Name.RowSource = Nz(![POA_Assigned_to_individual_Name])

这解决了问题，谢谢大家的努力。