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 ApplyAlias(Strin As String) As String Dim Db As DAO.Database Set Db = CurrentDb() Dim rstTclient As DAO.Recordset Dim StrOutput As String Dim Index As Integer Dim WordArray() As String WordArray() = Split(Trim(Strin), " ") Set rstTclient = Db.OpenRecordset("TblModelAlias") For Index = LBound(WordArray) To UBound(WordArray) With rstTclient .MoveFirst .FindFirst "[sDesc] = '" & WordArray(Index) & "'" If .NoMatch Then 'do nothing Else WordArray(Index) = .Fields("sClientDescGroup").Value End If End With Next Index = 0 For Index = LBound(WordArray) To UBound(WordArray) If Index = 0 Then StrOutput = WordArray(Index) Else StrOutput = StrOutput & " " & WordArray(Index) End If Next ApplyAlias = StrOutput End Function
Join the community of 500,000 technology professionals and ask your questions.