访问VBA SQL查询

Question

The code below is a SELECT query and to pass the respective values to appropriate control boxes in MS Access. It is passing all the values except the value that it originally received from a listbox ( POA_Assigned_to_individual_Name.RowSource ).

It seems the SQL query is bringing null value as a result and unable to pass it to the listbox back.

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

The below code is to pass the value to the listbox, POA_Assigned_to_individual_Name .

Mod_POA_Assigned_to_individual_Name = ![POA_Assigned_to_individual_Name]

But ![POA_Assigned_to_individual_Name] shows null .

Other than this all other fields are getting the values.

Answer 1

  Mod_POA_Assigned_to_individual_Name.RowSource = Nz(![POA_Assigned_to_individual_Name])

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