Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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)