ربط مسار النسخة الاحتياطية بحقل معين

[kamelnet5]

السلام عليكم ورحمة الله وبركاته

اساتذتي الافاضل

لدي هذا الفاكشن اريد ربط استراد قاعدة البيانات حسب حقل نص في نموذج معين بدل المسار المكتوب فيه 

شاكرا لكم جهودكم

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

 

[Moosak]

وعليكم السلام ورحجمة الله وبركاته 🙂 

استبدل هذه :

13 دقائق مضت, kamelnet5 said:

adad = CurrentProject.Path & "\\LinksPro\LinkTbs1.accdb"

بهذه :

adad = CurrentProject.Path & "\" & Me.TextBoxName

 

[kamelnet5]

2 دقائق مضت, Moosak said:

وعليكم السلام ورحجمة الله وبركاته 🙂 

الف شكر استاذي 

[Moosak]

في المشاركة السابقة تكتبه بالطريقة التي ذكرتها لك لو كنت ستضع الملف بجانب قاعدة البيانات وتكتب اسم الملف فقط في حقل النص ..

أما إذا كنت ستكتب الرابط كاملا في حقل النص فتكتب الكود هكذا  :

adad = Me.TextBoxName

 

[kamelnet5]

21 ساعات مضت, Moosak said:

adad = CurrentProject.Path & "\" & Me.TextBoxName

السلام عليكم 

بعد تعديل الكود يظهر معي خطأ التالي ... ماهو السبب 

[Moosak]

2 ساعات مضت, kamelnet5 said:

بعد تعديل الكود يظهر معي خطأ التالي ... ماهو السبب

ما الذي كتبته في الحقل النصي ؟ الرابط كاملا أم أسم الملف فقط ؟

إن كنت ستكتب الرابط كاملا فالتعديل سكون هكذا ؟

في 14‏/1‏/2023 at 18:27, Moosak said:

adad = Me.TextBoxName