Dim x As String
x = Me.FullName.Value
If MsgBox("هل فعلا تريد حذف الموظف " & x & " ؟", _
vbCritical + vbYesNo, _
"تحذير") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Else
Exit Sub
End If
اجازات2.rar