عمل رسالة عند اضافة الحاق سجلات بجدول

الاخ رامي

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

سنضع لك طريق للحل وعلى ضوئها تستطيع التعديل او التغيير كما تراه مناسب لك

1. لنفرض ان لديك جدولين الجدول الاول اسمه tblA ويوجد به حقل A والجدول الثاني اسمه tblB وبه حقل A

2. الجدول الاول به عدد 10 سجلات والجدول الثاني به عدد 6 سجلات بعض السجلات متشابهه مع بعض في كلا الجدولين

3. الان نريد ان نتأكد من تطابق الجدولين في السجلات المتشابهه ليظهر لنا السجلات الناقصه للجدول الثاني tblB

4. نقوم اولا بعمل استعلام البحث عن السجلات غير المتطابقه ونقوم بحفظ هذا الاستعلام بإسم QA

5. نقوم الان بعمل استعلام تحديث من الاستعلام الاول QB الى الجدول الثاني tblB

6. نقوم بإنشاء نموذج فاضي من البيانات ونضع عليه زر امر ونضع هذا الكود في حدث عند النقر

Private Sub zahrah_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "QA"
DoCmd.OpenQuery "QB"
DoCmd.SetWarnings True
DoCmd.Requery
DoCmd.Close acQuery, "QA"
MsgBox "مبروك تمت العمليه بنجاح", vbOKOnly
End Sub

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

1. الغاء رسائل تحذير اكسيس

2. فتح الاستعلام الاول QA

3. فتح استعلام التحديث QB

4. اعادة رسائل الخطأ للاكسيس

5. تحديث السجلات واغلاق الاستعلام الاول

6. اظهار رساله تفيد بأن عملية نقل السجلات الغير متشابهه بين الجدولين تمت بنجاح

وهذا مثال على ذلك

الحاق بيانات.rar

قبل تجربة المثال افتح الجدول الاول والجدول الثاني للتأكد من عدد السجلات في كل منهم " لمعاينة اطار القاعدة اضغط مفتاح الشفت في لوحة المفاتيح اثناء فتح القاعده

اختكم

زهره

اختي العزيزة زهرة نصف المشكلة اتحلت في الحاق البيانات ولكن بقيت شي مهم اريده وهو انا الان مثلا عندي مجموعة اسماء احمد.زهرة.رامي .محمد عملت لهم استعلام الحاق من جدول a الى جدول b وتمت العمليى بنحاج اوكي ... الان لو اردت تكرار العملية اريد رسالة تانية تفيد بانه لا يمكن الحاق هذه البيانات لانه تم الحاقها مسبقا ً