Here's an example from one of my own apps. This runs from a command button
Click event and uses a message box to display the path, but you should be
able to modify it to run from the open event and assign the path to a
variable without too much trouble ...
Private Sub cmdLocate_Click()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Set db = CurrentDb
For Each tdf In db.TableDefs
If Len(tdf.Connect) > 0 Then
strConnect = tdf.Connect
Exit For
End If
Next tdf
Set tdf = Nothing
Set db = Nothing
strConnect = Mid$(strConnect, InStr(1, strConnect, "=") + 1)
MsgBox "The data file is located at: " & strConnect
End Sub
--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com
The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
