سؤال في الشبكات

_________________.rar

اخي الفاضل

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

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

تم انشاء وحده نمطية جديده تسمى 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

وهذا ملفك بعد التعديل

zaMas123.rar

بالتوفيق