vba - The list Box isn't highlighting but when I hit on it again in design view and back to form view it works but not w

admin管理员组

文章数量:1287285

When I open update form, the list box isn't highlighting the selected boxes, but when I enter design view and then back into form view, then it does highlight and the values which are selected by user, if i try to fix the error then other parts of the code break.

this is the code:

Private Sub Form_Load()

Me.Combo58 = Me.Combo58.ItemData(0)
Me.Form.SetFocus
Dim strSQL As String
Dim result As DAO.Recordset
strSQL = "SELECT BookingHorse.[HorseiD], BookingHorse.[Bookingreference] FROM BookingHorse WHERE (((BookingHorse.[Bookingreference])=" & Combo58.ItemData(0) & "));"

Set result = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Do While Not result.EOF
 For p = 0 To Me.List46.ListCount - 1
        If CStr(List46.ItemData(p)) = CStr(result.Fields(0).Value) Then
        List46.Selected(p) = True
    End If
    Next p
  result.MoveNext
Loop

Dim strSQL1 As String
Dim result1 As DAO.Recordset
strSQL1 = "SELECT BookingEmployee.EmployeeID FROM BookingEmployee WHERE (((BookingEmployee.BookingReference)=" & Combo58.ItemData(0) & "));"


Set result1 = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)
Do While Not result1.EOF

For q = 0 To Me.List44.ListCount - 1
    If CStr(List44.ItemData(q)) = CStr(result1.Fields(0).Value) Then
        'MsgBox ("Match")
        List44.Selected(q) = True
    End If
    Next q
    result1.MoveNext
Loop

End Sub

I tried to redo my queries and use other code to find how to highlight list boxes. I tried adding a DoCmd.Close and a DoCmd.FormOpen immediately after the original DoCmd.FormOpen.

When I open update form, the list box isn't highlighting the selected boxes, but when I enter design view and then back into form view, then it does highlight and the values which are selected by user, if i try to fix the error then other parts of the code break.

this is the code:

Private Sub Form_Load()

Me.Combo58 = Me.Combo58.ItemData(0)
Me.Form.SetFocus
Dim strSQL As String
Dim result As DAO.Recordset
strSQL = "SELECT BookingHorse.[HorseiD], BookingHorse.[Bookingreference] FROM BookingHorse WHERE (((BookingHorse.[Bookingreference])=" & Combo58.ItemData(0) & "));"

Set result = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Do While Not result.EOF
 For p = 0 To Me.List46.ListCount - 1
        If CStr(List46.ItemData(p)) = CStr(result.Fields(0).Value) Then
        List46.Selected(p) = True
    End If
    Next p
  result.MoveNext
Loop

Dim strSQL1 As String
Dim result1 As DAO.Recordset
strSQL1 = "SELECT BookingEmployee.EmployeeID FROM BookingEmployee WHERE (((BookingEmployee.BookingReference)=" & Combo58.ItemData(0) & "));"


Set result1 = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)
Do While Not result1.EOF

For q = 0 To Me.List44.ListCount - 1
    If CStr(List44.ItemData(q)) = CStr(result1.Fields(0).Value) Then
        'MsgBox ("Match")
        List44.Selected(q) = True
    End If
    Next q
    result1.MoveNext
Loop

End Sub

I tried to redo my queries and use other code to find how to highlight list boxes. I tried adding a DoCmd.Close and a DoCmd.FormOpen immediately after the original DoCmd.FormOpen.

• vba
• database
• ms-access
• ms-access-2016

Share Improve this question Follow edited Feb 23 at 18:32 braX 11.8k55 gold badges2222 silver badges3737 bronze badges asked Feb 23 at 18:32 caoimhe ni loingsighcaoimhe ni loingsigh 1 1

• You can save yourself a lot of grief by giving your controls meaningful names instead of List44 etc. – Andre Commented Feb 24 at 12:20

Add a comment  | 

1 Answer 1

Sorted by: Reset to default 0

Combo88 probably has no value. Try inserting a line to debug and study the SQL:

strSQL = "SELECT BookingHorse.[HorseiD], BookingHorse.[Bookingreference] FROM BookingHorse WHERE (((BookingHorse.[Bookingreference])=" & Combo58.ItemData(0) & "));"
Debug.Print "SQL: " & strSQL

本文标签：