kamelnet5 قام بنشر يناير 14, 2023 مشاركة قام بنشر يناير 14, 2023 السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل لدي هذا الفاكشن اريد ربط استراد قاعدة البيانات حسب حقل نص في نموذج معين بدل المسار المكتوب فيه شاكرا لكم جهودكم 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 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يناير 14, 2023 مشاركة قام بنشر يناير 14, 2023 وعليكم السلام ورحجمة الله وبركاته 🙂 استبدل هذه : 13 دقائق مضت, kamelnet5 said: adad = CurrentProject.Path & "\\LinksPro\LinkTbs1.accdb" بهذه : adad = CurrentProject.Path & "\" & Me.TextBoxName 1 رابط هذا التعليق شارك More sharing options...
kamelnet5 قام بنشر يناير 14, 2023 الكاتب مشاركة قام بنشر يناير 14, 2023 2 دقائق مضت, Moosak said: وعليكم السلام ورحجمة الله وبركاته 🙂 الف شكر استاذي 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يناير 14, 2023 مشاركة قام بنشر يناير 14, 2023 في المشاركة السابقة تكتبه بالطريقة التي ذكرتها لك لو كنت ستضع الملف بجانب قاعدة البيانات وتكتب اسم الملف فقط في حقل النص .. أما إذا كنت ستكتب الرابط كاملا في حقل النص فتكتب الكود هكذا : adad = Me.TextBoxName 1 رابط هذا التعليق شارك More sharing options...
kamelnet5 قام بنشر يناير 15, 2023 الكاتب مشاركة قام بنشر يناير 15, 2023 21 ساعات مضت, Moosak said: adad = CurrentProject.Path & "\" & Me.TextBoxName السلام عليكم بعد تعديل الكود يظهر معي خطأ التالي ... ماهو السبب رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يناير 15, 2023 مشاركة قام بنشر يناير 15, 2023 2 ساعات مضت, kamelnet5 said: بعد تعديل الكود يظهر معي خطأ التالي ... ماهو السبب ما الذي كتبته في الحقل النصي ؟ الرابط كاملا أم أسم الملف فقط ؟ إن كنت ستكتب الرابط كاملا فالتعديل سكون هكذا ؟ في 14/1/2023 at 18:27, Moosak said: adad = Me.TextBoxName 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان