hosslom قام بنشر أكتوبر 7, 2021 مشاركة قام بنشر أكتوبر 7, 2021 السلام عليكم اخوتي الكرام محتاج كود لعمل تحديث للجداول المرتبطه بدون تحديد مسار القاعده فقط تحديث للمسار المخزن وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أكتوبر 7, 2021 مشاركة قام بنشر أكتوبر 7, 2021 وعليكم السلام ورحمة الله وبركاته أخي ،، ضع هذا الكود في موديول ثم استدعه عند فتح أول فورم في البرنامج : 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 ------------------------------------------ رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر أكتوبر 7, 2021 الكاتب مشاركة قام بنشر أكتوبر 7, 2021 5 دقائق مضت, Moosak said: ضع هذا الكود في موديول ثم استدعه عند فتح أول فورم في البرنامج : شكرا اخي الكريم علي مرورك انا احتاج كود للتحديث بدون تعيين مسار للقاعده فقط يحدث حسب المسار المخزن من قبل ارجو ان تكون وصلت فكرتي اخي جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أفضل إجابة Moosak قام بنشر أكتوبر 7, 2021 أفضل إجابة مشاركة قام بنشر أكتوبر 7, 2021 ولا يهمك أخي العزيز ، هذا تعديل على الكود ليوافق طلبك : 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 وأخبرني إن واجهت فيها أي مشكلة .. 1 رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر أكتوبر 8, 2021 الكاتب مشاركة قام بنشر أكتوبر 8, 2021 9 ساعات مضت, Moosak said: ولا يهمك أخي العزيز ، هذا تعديل على الكود ليوافق طلبك : اعجز عن شكرك اخي الكريم نعم هذا هو المطلوب جزاك الله كل خير وجعله الله في ميزان حسناتك يارب 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أكتوبر 8, 2021 مشاركة قام بنشر أكتوبر 8, 2021 العفو أخي الغالي 🌹 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان