إخوتي الكرام
لقد كتبت الموضوع بطريقة الخطأ في منتدى أكسس التعليمي
ولم يجبني أحد
وهذا هو الرابط للموضوع وأرجو من الإخوة عدم البخل بالعلم حيث أن الموضوع مهم لي جداا ولمدرستي التي أعمل بها
شكرا لكل من دخل على هذا الرابط مقدما سواء وجد حلا أم لم يجد
أخوكم محمد صالح
مصر
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
تم حل مشكلة ربط الجداول بناء على طلبك فمهما قمت بنقل المجلد فسيتم الربط بالجداول وذلك عن طريق الكود بهذه الطريقة
تم انشاء وحده نمطية جديده تسمى reLink في برنامجك بهذه الصيغة
Public Sub reLink() On Error Resume Next Dim A(16) As String, R As Integer A(0) = "aa" A(1) = "allsuc" A(2) = "ar" A(3) = "back_color" A(4) = "comp" A(5) = "den" A(6) = "dra" A(7) = "Matches" A(8) = "pn" A(9) = "khat" A(10) = "math" A(11) = "olom" A(12) = "pas" A(13) = "ras" A(14) = "se" A(15) = "taleb" A(16) = "tec" For R = 0 To 16 DoCmd.DeleteObject acTable, A(R) DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\DATA.mdb", acTable, A(R), A(R) Next R End Sub
A(16) حيث A تمثل اسم الجدول و 16 هو عدد الجداول المرتبطه لديك - طبعا الجداول الحقيقية المرتبطة هي 17 ولكن عندما بدأنا بالعدد صفر اصبح العدد 16 - ثم يتم اعطاء كل جدول رقم اعتبارا من 0 وحتى 16 .
ملاحظة : في حالة اضافة جداول مرتبطه جديده يجب ان تقوم بالتغيير في الوحدة النمطية سواء في العدد او اسم الجدول الجديد .
اخيرا يتم الربط بين الجداول بواسطة دالة الربط TransferDatabase acLink
نأتي الى تفعيل هذا الكود ويتم ذلك من خلال اول نموذج يتم فتحه في البرنامج وأول نموذج لديك هو Form1 وهو مخفي والذي يتم من خلاله اعادة تحجيم شاشة العرض طبقا للمقاس المفروض في البرنامج لهذا سنضع في اخر الكود هذه العبارة
If err > 0 Then reLink
وهذا يعني اذا كان هناك رقم خطأ اكبر من الصفر فسيتم استدعاء كود الربط reLink مباشرة من الوحدة النمطية
ايضا سنقوم بإضافة هذا الكود في حدث عند فتح النموذج حتى نضمن انه يتم الربط بطريقتين سواء عند التحميل او عند الفتح
Private Sub Form_Open(Cancel As Integer) On Error Resume Next If Err > 0 Then reLink End Sub
وهذا ملفك بعد التعديل
بالتوفيق
بارك الله فيك أختي الكريمة
مبدعة كما عودتنا
وبالتجربة لم أجد للكود عند الفتح أهمية فحذفته
ووجدت أن لون الخلفية لا يظهر بعد التحديث مباشرة وإنما يلزمني إعادة تشغيل البرنامج
فكررت الكود الخاص بذلك قبل وبعد relink هكذا
Else
DoCmd.Quit
End If
DoCmd.Close
SetMDIBackGround (DLookup("[back_color]", "back_color"))
If Err > 0 Then reLink
SetMDIBackGround (DLookup("[back_color]", "back_color"))
End Sub
فكان كما أريد
وشكرا جزيلا لك
وجزاك الله خير الجزاء
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
