MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Public Function SelectAll(lst As ListBox) As Boolean ' Comments: ' Params : lst ' Returns : Boolean ' Modified: On Error GoTo PROC_ERR Dim lngRow As Long If lst.MultiSelect Then For lngRow = 0 To lst.ListCount - 1 lst.Selected(lngRow) = True Next SelectAll = True End If PROC_EXIT: Exit Function PROC_ERR: MsgBox Err.Number & vbTab & Err.Description, vbCritical, Me.Name & ".SelectAll" Resume PROC_EXIT End Function
Call AddToWhere(Me.lstYear.Column(0), "lstYear", strYearCriteria, intArgCount)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Storage and Retrieval of ISO-8601 Format Date/Timestamp Records in Access / SQL Server||10||65|
|Access - Create a field on a form that is a lookup to an sql database and write the value to a table in access||1||52|
|Best way to get data into a database||12||53|
|Error message for incorrect or missing hyperlink||3||26|
Join the community of 500,000 technology professionals and ask your questions.