ریختن مسیر لینک جدوال در تکست

[pmoshir]

دوستان عزیز کدی رو میخوام که مسیر جداول(جدول) لینک شده رو در یک تکست بریزه.
با تشکر

[amirzazadeh]

دوستان عزیز کدی رو میخوام که مسیر جداول(جدول) لینک شده رو در یک تکست بریزه.
با تشکر
سلام
این کد رو داخل یک ماژول کپی کنید:

Function GetLinkedDBName(TableName As String)
Dim db As DAO.Database, Ret
On Error GoTo DBNameErr
Set db = CurrentDb()
Ret = db.TableDefs(TableName).Connect
GetLinkedDBName = Right(Ret, Len(Ret) - (InStr _
(1, Ret, "DATABASE=") + 8))
Exit Function
DBNameErr:
GetLinkedDBName = 0
End Function
بعد کنترل سورس تکست باکس رو برابر
GetLinkedDBName("tblname") قرار بدید.
tblname نام جدول لينك شده مي باشد
..............................
موفق باشید