Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
For Each ctl In Me.Controls If ctl.Tag = "Go" Then If ctl.NAME.Visible Then Select Case ctl.NAME Case "lstCustomer" strField = "Customer" Case "lstCarrier" strField = "Carrier" End Select End If End If If strField <> "" Then strBuildRptWhere = BuildStringLists(ctlPass, strField) End If Next
Function BuildStringLists(ByVal ctlList As Control, ByVal strField As String) As String Dim i As Integer Dim strIn As String 'Build the IN string by looping through the listbox For i = 0 To ctlList.ListCount - 1 If ctlList.Selected(i) Then strIn = strIn & "'" & ctlList.Column(0, i) & "'," End If Next i If strIn <> "" Then BuildStringLists = " AND " & strField & " in (" & Left(strIn, Len(strIn) - 1) & ")" End If End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.