السلام عليكم
عند الحدف يظهر في الحقول محدوف
Private Sub أمر94_Click()
Select Case MsgBox(Prompt:="تأكيد الحدف!" & vbCr & "هل انت متأكد من الحدف!", Buttons:=vbYesNo + vbQuestion + 1572864 + vbDefaultButton1)
Case vbYes
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
MsgBox "تم الحدف بنجاح", vbInformation + 1572864
Me.Requery
Case vbNo
MsgBox "تما التراجع عن الحدف", vbCritical + vbDefaultButton1 + 1572864
End Select
End Sub