تحدثنا فى درس سابق عن طريقة حذف سجل فى نموذج فى برنامج الاكسس ويمكن الرجوع للدرس بالضغط على هذا الرابط اضغط هنا للوصول لدرس طريقة حذف سجل فى نموذج فى برنامج الاكسس
وفى هذا الدرس سنقوم بشرح طريقة حذف سجل Delete Record ويقع هذا السجل فى نموذج فرعي Subform في برنامج الاكسس
لدينا هو نموذج فرعي يحتوى على بيانات المعلمين داخل نموذج رئيسي يحتوى على بيانات المدارس ونريد في هذا المثال حذف سجل من سجلات المعلمين الموجودة في النموذج الفرعي
نقوم هنا بالانتقال إلى وضع التصميم Design view ونضغط على مفتاح “حذف سجل” ومن الأحداث event نضغط على الحدث on enter
اسم النموذج الفرعي هنا teachers_subform1 نقوم بنقل التركيز إلى النموذج الفرعي باستخدام الأمر setfocus
Me.teachers_subform1.setfocus
ثم بعد ذلك نقوم بكتابة الأمر الخاص بحذف سجل
Docmd.runcommand accmddeletercord
نلاحظ انه عند الضغط على مفتاح حذف سجل ظهور رسالة تحذيرية تخبرنا بأننا على وشك حذف سجل
ولتعطيل رسائل التنبيه التي تظهر عند الحذف نكتب الكود docmd.setwarnings false
وبعد كتابة أوامر الحذف نقوم بتفعيل كود التنبيه مرة أخرى docmd.setwarnings true
ويمكن إظهار رسالة نصية تحذيرية عند الضغط على مفتاح الحذف بحيث تظهر رسالة تحذيرية تخبرنا بأننا على وشك القيام بعملية الحذف وعند الضغط على Yes تتم عملية الحذف باستخدام الكود الموضح بالمثال
If MsgBox("انت على وشك حذف سجل من سجلات المعلمين", vbYesNo, "رسالة تحذيرية") = vbYes Then
DoCmd.SetWarnings False
Me.teachers_Subform1.SetFocus
DoCmd.RunCommand acCmdDeleteRecord
Else
نلاحظ أنه عند الضغط على مفتاح الحذف ظهور الرسالة التحذيرية التي قمنا بتصميمها وعند الضغط على yes لتأكيد عملية الحذف نلاحظ انه يتم حذف السجل المحدد
المشاركات
ليست هناك تعليقات:
إرسال تعليق