[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)

[awidan76]

اخي احمد منصور هل انت موجود ارجو المساعدة

[awidan76]

اتفضل اخي الغالي بالتاكيد

---

هذا رابط الموضوع الاصلي 
http://vb4arb.com/vb/showthread.php?tid=12301

[awidan76]

تسلم اخ امير الزبيدي على تعاونك معي وجعله الله في ميزان حسناتك الله يحفظك ويبعد عنك كل هم 
بالنسبة للمثال رائع جدا والاكثر من رائع تعديلك القيم والامثل حياك الله اخي الغالي 

كانك تقرأ فكاري قبل ما انزل التعديل من حضرتك كنت افكر كيف سيعرف المستخدم من انه يستخدم القاعده الفلانية  

والغريب انك فعلتها وكانك تقرأ الافكار اخي الغالي 

الله يحفضك 

--------------------------
الان بيكون عادي عند عمل واجهة باضافة بيانات موظف مثلاً فقط استدعي Connect_DataBase فقط  صح ؟

[awidan76]

شكراً جزيلا لك والله لايحرمنا منك وجعله الله بميزان حسناتك 
احترمك من كل قلبي 


فعلاً اشتغل بناء على المسار الذي تم كتابته في الليبل في شاشة الام الرئيسية

شكراً جزيلاً لك