المساعدة في حذف سجلات

[ازهر عبد العزيز]

السلام عليكم ......

لدي نموذ FBBB كيف احذف السجلات التي يكون مربع الاختيار علية علامة صح وايضا كيف احسب السجلات التي يكون خانة  مربع الاختيار صح 

DEL.accdb

تم تعديل مايو 27, 2020 بواسطه ازهر عبد العزيز

[ناقل]

وعليكم السلام

لحساب عدد الشيك استخدم هذا الكود

=Sum(IIf([غياب]=-1;1;0))
وغياب هو اسم الحقل عندك

لحذف السجلات المختارة استخدم هذا الكود

 CurrentDb.Execute "DELETE * FROM L WHERE [غياب] = true"
Me.Requery
حيث L  هو اسم الجدول لديك

 

[ازهر عبد العزيز]

شكرا جزيلا استاذ @ناقل احسنت هل بالامكان اضافة رسالة تحذيرة قبل الحذف 

[ناقل]

Warning = MsgBox("أنت الآن على وشك حذف السجل الحالي فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير")
If Warning = vbYes Then
DoCmd.SetWarnings (False)
ضع الكود السابق هنا    

DoCmd.SetWarnings (True)
Else
DoCmd.CancelEvent
End If