Moguce je dobiti path na back end bez cuvanja u posebnoj tabeli. Napravis ovakav kveri , ime mu je qrySySObjects_MDB
Code:
SELECT MSysObjects.Database, MSysObjects.Name, MSysObjects.ForeignName
FROM MSysObjects
WHERE (((MSysObjects.Database) Is Not Null) AND ((MSysObjects.Connect) Is Null));
Ako imas samo jedan back end, prva kolona kverija sadrzace naziv kompletan path i back end baze.
Ako zelis da procitas path i naziv back end baze, dovoljan je jednostavan Dlookup, na primer
Code:
="Zakaceni ste na fajl: " & DLookUp("Database","qrySySObjects_MDB")
Onda to so je vratio dlookup mozes da posaljes u Menu Bar, onako kako su banem i getsbi objasnili. Ovo resenej ne trazi da oabacis 'tabelu u kojoj cuvas godine - faljove na koje se linkujes'. Ovde se samo radi d ati procitas iz sistemskih atbela na koji si fajl STVARNO zakacen. meni to koristi kad se prebacjem sa test fajla na radni, ili kad iz nekog razloga menjam lokaciju fajla s podacima.
Ponekad je zgodno znati i gde je tacno aplikacija. Za to ti moze pomoci ova funkcija
Code:
Function AppName() As String
AppName = CurrentDb.Name
End Function
koju posle pozivas iz text boxa kao
Code:
="Startovali ste program: " & AppName()
:-)