Private Sub cmdDelete_Click()
Select Case MsgBox(Prompt:="تأكيد عملية الحذف!" & vbCr & "هل أنت متأكد من رغبتك بالحذف!", Buttons:=vbYesNo + vbQuestion + 1572864 + vbDefaultButton1)
Case vbYes
CurrentDb.Execute "delete * from Teacher where [f1]=" & Me.txtTeacher & ""
MsgBox "تم الحذف بنجاح", vbInformation + 1572864
Me.txtTeacher.Requery
Case vbNo
MsgBox "تم التراجع", vbCritical + vbDefaultButton1 + 1572864
End Select
End Sub
تفضل .
انسخه وألصقه في محرر الأكواد مباشرة ..