بدست آوردن نام database که به برنامه لينک شده است

[mehdi_fiz]

با سلام خدمت همه دوستان
من برنامم رو طوري طراحي کردم که جداول از فرم ها جدا است حلا مي خواستم ببينم چه طوري ميشه فهميد که برنامه به چه ديتا بيسي لينک شده است
قبلاً از همکاري و راهنمايي که مي کنيد متشکرم

[شاپرک]

مسیر جدول لینک شده


Function fGetLinkPath(strTable As String) As String
Dim dbs As Database, stPath As String

Set dbs = CurrentDb()
On Error Resume Next
stPath = dbs.TableDefs(strTable).Connect
If stPath = "" Then
fGetLinkPath = vbNullString
'can change this to currentdb.name
Else
fGetLinkPath = Right(stPath, Len(stPath) _
- (InStr(1, stPath, "DATABASE=") + 8))
End If
Set dbs = Nothing
End Function

Sub sListPath()
Dim loTd As TableDef
CurrentDb.TableDefs.Refresh
For Each loTd In CurrentDb.TableDefs
Debug.Print fGetLinkPath(loTd.name)
Next loTd
Set loTd = Nothing
End Sub

[mehdi_fiz]

سلام
دوست عزيز از راهنمايي که فرموديد خيلي ممنون مشکلم حل شد دستتون درد نکنه

[vafadar]

با سلام این کد کل مسیر و نام فایل را نشان میدهد حالا اگه فقط بهواهیم بدونیم دیتا بیسی که برنامه به آن لینک شده در کدام شاخه قرار دارد چگونه باید عمل کنیم

[مهدی قربانی]

سلام
جناب vafadar فکر میکنم پاسخ سئوال شما در این تاپیک (http://barnamenevis.org/forum/showthread.php?t=142842) داده شد !!؟