Check the Connect property of any of the linked tables.
Something like:
Dim dbCurr As DAO.Database
Dim tdfCurr As DAO.TableDef
Set dbCurr = CurrentDb()
For Each tdfCurr In dbCurr.TableDefs
With tdfCurr
If Len(.Connect) > 0 Then
Debug.Print "Your backend database is " & .Connect
Exit For
End If
End With
Next tdfCurr
You might also check my July, 2004 Access Answers column in Pinnacle
Publication's Smart Access. You can get it (and the accompanying sample
database) at
http://www.accessmvp.com/djsteele/SmartAccess.html
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
"Ian" <ia********@ntlworld.com> wrote in message
news:1p**************@newsfe4-gui.ntli.net...
Sorry, I tried to keep it simple, possibly too simple.
What I want to do is find the location of the backend using VBA. I want to
check some information about Windows version before running some code.
However I want to check on the backend that just has the tables and the
code runs from the front end and returns information about the front end
PC.
Hope this makes sense.