Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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
|Align > Distribute multiple objects in PowerPoint by the order inserted (back to front)||2||44|
|Back-end Database connect string being set someplace where I can't find it.||10||25|
|Word 2016 - View side-by-side displays docs vertically||2||20|
|extract a substring between backslashes from paths||10||20|