كود تحديث الجداول المرتبطه بدون تحديد مسار جديد ( تحديث فقط )

[hosslom]

السلام عليكم اخوتي الكرام

محتاج كود لعمل تحديث للجداول المرتبطه بدون تحديد مسار القاعده

فقط تحديث للمسار المخزن

وشكرا جزيلا

[Moosak]

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

ضع هذا الكود في موديول ثم استدعه عند فتح أول فورم في البرنامج :

Public Function ReLink()
Dim dada
Dim wrkJet0 As Workspace
Dim dbs0 As DAO.Database
adad = CurrentProject.Path & "\data.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
------------------------------------------

 

[hosslom]

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

ضع هذا الكود في موديول ثم استدعه عند فتح أول فورم في البرنامج :

شكرا اخي الكريم علي مرورك

انا احتاج كود للتحديث بدون تعيين مسار للقاعده فقط يحدث حسب المسار المخزن من قبل

ارجو ان تكون وصلت فكرتي اخي جزاك الله كل خير

[Moosak]

ولا يهمك أخي العزيز ، هذا تعديل على الكود ليوافق طلبك :

Public Function ReLink()
Dim BEPath As String
Dim wrkJet0 As Workspace
Dim dbs0 As DAO.Database
BEPath = DFirst("database", "msysobjects", "[Database]<> '""'")

Set wrkJet0 = DBEngine.Workspaces(0)
Set dbs0 = wrkJet0.OpenDatabase(BEPath, 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=" & BEPath
            tdf.RefreshLink
        End If
    Next
End Function

وأخبرني إن واجهت فيها أي مشكلة ..

[hosslom]

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

ولا يهمك أخي العزيز ، هذا تعديل على الكود ليوافق طلبك :

اعجز عن شكرك اخي الكريم

نعم هذا هو المطلوب

جزاك الله كل خير وجعله الله في ميزان حسناتك يارب

[Moosak]

العفو أخي الغالي 🌹