السلام عليكم ورحمة الله وبركاته
اساتذتي الافاضل
لدي هذا الفاكشن اريد ربط استراد قاعدة البيانات حسب حقل نص في نموذج معين بدل المسار المكتوب فيه
شاكرا لكم جهودكم
Public Function req()
Dim dada
Dim wrkJet0 As Workspace
Dim dbs0 As DAO.Database
adad = CurrentProject.Path & "\\LinksPro\LinkTbs1.accdb"
Set wrkJet0 = DBEngine.Workspaces(0)
Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "000000")
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb()
For Each tdf In db.TableDefs
If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
On Error Resume Next
tdf.Connect = ";DATABASE=" & adad
tdf.RefreshLink
End If
Next
End Function