[awidan76]

الاخ احمد منصور تحية طيبة وبعد
هذا المثال من تصميمك وهو جميل جداً ولك وجدت ان الاكواد مترابطة 

 هل من الممكن وضع الازرار الخاصة بقاعدة البيانات من نسخ قاعدة البيانات والاتصال بها والاتصال بنسخة حالية في قوائم ويتم عمل الاضافة للسجلات في اي واجهة حسب التعيين الاخير الذي تم وضعه في القائمة (اعدادات قاعدة البيانات) حيث انني لم استطع فك الشفرة ووجدت انالاكواد مترابطة 

حيث انا استخدم في تصاميمي في المودل تعريف قاعدة البيانات كالتالي : 

PHP كود :

Public Sub ConnectionDatabase()
If Db.State = adStateOpen Then _
Db.Close
    
   Db.CursorLocation = adUseClient
   Db.Open "provider=microsoft.jet.oledb.4.0;Jet OLEDB:Database password=123456; Data Source=" & App.Path & "\AWDB.mdb"    
Exit Sub
End Sub 


 واقوم بسهولة استدعائها في كل واجهة فقط بوضع call ConnectionDatabase

ارجو منك الرد وجزاك الله عنا خيرا

  ahmed mansoor.rar (الحجم : 43.69 ك ب / التحميلات : 61)