you could also run the query and use the following to test if records returned.
if not Me.List0.ListCount > 0 then
MsgBox "Sorry, no records were found.", vbInformation, "Search Menu"
Me.txtLname.value = Null
Me.txtLname.SetFocus
end if
Back when I worked privately, we used to do it the old fashion way. Look out the window, see what kind of car they showed up in, and set our hourly rate accordingly.
The current administration cut 30,000 jobs from the VA last year and I think another 35,000 of unfilled positions.
It was part of project 2025. No surprise that it will take months to get an appointment.
I encountered errors too. vbNewLine and vbCrLf both resolve to 13 but chr(13) wasn't working correctly, neither was chr(0) for null.
Easy work arounds with only 2 short lines of code.
For multi-select listboxes I use the following code. The reason for the enums is that they are also used in other procedures.
you could use it as
GetList = "TransactionID IN(" & fGetLbx("your listbox object" & ")"
Public Enum eDelimiterType
NoDelimiter = 0
DoubleQuotes = 1...
I would say it's an object.
when I need to requery all the list boxes on a form I use something like this and pass in the form reference
Public Sub ReqLbx(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acListBox Then
ctl.Requery...