انتقال البيانات تلقائيا اثناء الكتابة الى جدول خارجي

[محمد التميمي]

السلام عليكم

لدي قاعدة بيانات باسم (البيانات) تحتوي على جدول ونموذج 

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

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

ملاحظة :  لن تكون قاعدة احتياط بجانب قاعدة بيانات من المحتمل في مكان اخر في الكومبيوتر

بحثت في المتدى ولم اجد ضالتي وفقكم الله لكل خير

 

New folder.rar

تم تعديل يوليو 26, 2021 بواسطه محمد التميمي

[ناقل]

اعمل جداول مرتبطة

[محمد التميمي]

17 دقائق مضت, ناقل said:

اعمل جداول مرتبطة

ليس هذه الفكرة عملتها من قبل

[Eng.Qassim]

56 minutes ago, محمد التميمي said:

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

السلام عليكم

ماهو الهدف من هذا الاجراء ..طالما انك تستطيع عمل نسخ احتياطي كل فترة من الزمن؟

[محمد التميمي]

8 دقائق مضت, Eng.Qassim said:

السلام عليكم

ماهو الهدف من هذا الاجراء ..طالما انك تستطيع عمل نسخ احتياطي كل فترة من الزمن؟

اخي انا ااريد حماية الجدول المركزي لان العامل على البيانات ضعيف جدا في اجراءات الحاسوب ومن الممكن ان يحذفها بكل سهولة 

[ناقل]

19 دقائق مضت, محمد التميمي said:

اخي انا ااريد حماية الجدول المركزي لان العامل على البيانات ضعيف جدا في اجراءات الحاسوب ومن الممكن ان يحذفها بكل سهولة 

اذن انت تريد نقل بيانات النموذج قبل التعديل الى ذلك الجدول الخارجي .. وليس نفس البيانات بعد التحديث

هل فهمي صحيح؟؟؟

[د.كاف يار]

تفضل استخدم هذا الكود مع اضافة

   - موقع قاعدة البيانات

   - كلمة المرور

   - اسم الجدول

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strDbFile, strPassword, PDb As String
    
	'================ معلومات قاعدة البيانات البعيدة ========================
    strDbFile = CurrentProject.Path & "\MyData1.mdb"
    strPassword = "123"
	'=============================================================
    
    Set db = DBEngine.OpenDatabase(Name:=strDbFile, Options:=False, ReadOnly:=False, Connect:=";PWD=" & strPassword)
                
                Set rs = db.OpenRecordset("table_name")
                
                     rs.AddNew
                     rs.Fields(0).Value = [TextBox1]
                     rs.Fields("column_name").Value = [TextBox2]
                     rs.Update
                
                rs.Close
                Set rs = Nothing

 

تفضل التعديل 

يمكن استخدام نفس الطريقة في حال تحديث البيانات

و لكن هنالك فكرة !!!!!!!!

ان تقوم بإنشاء جدول ممثال في حال التحديث تذهب البيانت المحدثه للجداول الجديد

بدورك تشييك و تتأكد من صحة البيانات و اذا ما فيه اخطاء يصير ترحل التحديث لجميع الجداول الأساسية

بذا تضمن ان البيانات في جميع الجداول مدخلة بشكل سليم

New folder.zip

تم تعديل يوليو 26, 2021 بواسطه د.كاف يار

[محمد التميمي]

6 ساعات مضت, د.كاف يار said:

تفضل استخدم هذا الكود مع اضافة

   - موقع قاعدة البيانات

   - كلمة المرور

   - اسم الجدول

 

السلام عليكم وصباحكم خير وعافية

احسنت يا دكتور وبارك الله بك يا اخي واستاذي هذا هو المطلوب بالفعل

هي فقط فكرة لوجوا اكثر من جدول في نفس الوقت