So there are 3 helpdesks... one of the desks has a different logonserver.. so I am able to isolate that one without issue..
Code:
Sub test()
Dim MyServer As String
MyServer = Environ("logonserver")
strstring = MyServer
strstring = Left(strstring, 3)
If strstring = "\\W" Then
' I need another statement here to seperate two desks... trying to find something unique... GAH!!!!
End If
If strstring = "\\L" Then
DoCmd.TransferDatabase acLink, "Microsoft Access","\\Myserver\BackendDatabaseEAST.mcb", acTable, "tblfunclog", "tblfunclog"
End If
End Sub
So, the code above will separate \\L from the other two desks... Now I just need another (if there is one) unique way of identifying the other two desks.