استعلام إلحاق

أنشأ استعلام إلحاق وسمه مثلاً (abc) وضع في المعايير تحت حقل رقم الموظف أو تحت حقل رقم البطاقة أي حقل المفتاح لهذا الجدول المعيار التالي ..

[forms]![aa]![bb]

aa : اسم النموذج الذي فيه زر الحذف والإلحاق .

bb : اسم الحقل الذي في النموذج الخاص برقم البطاقة أو رقم الموظف .

وقم بإنشاء استعلام حذف وسمه مثلاً (def) وضع فيه نفس المعايير أعلاه .

ثم ضع في حدث (عند النقر ) للزر الكود التالي ..

  If MsgBox("هل تريد إلحاق البيانات الحالية وحذفها؟", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
   DoCmd.SetWarnings False
   DoCmd.OpenQuery "abc", acNormal, acEdit
   DoCmd.OpenQuery "def", acNormal, acEdit
   DoCmd.SetWarnings True
  Else
    MsgBox "تم إلغاء الأمر"
  End If

تحياتي ..

السلام عليكم

أشكرك عزيزي الأخ ( فهد الدوسري ) على هذه المعلومة ، وآسف على التأخير في قراءة المشاركة نظرا لانشغالي عن النت في الفترة الماضية .

ولم أجرب الحل بعد ، وإن شاء الله ما يكون الحل صعب .

تحياتي ( الشاعر )