Code:
'Clear listbox contents.
Me.lstOffices.RowSource = ""
If chkLA Then
strOffices = strOffices & ", 1"
End If
If ChkSF
'Clear listbox contents.
Me.lstOffices.RowSource = ""
If chkLA Then
strOffices = strOffices & ", 1"
End If
If ChkSF
Set rs = db.OpenRecordset("SELECT * FROM dbo_vwBookingInfo WHERE [BookingNumber]=" & Me!JobNumber)
Leave a comment: