اخى بعد اذنك اريد تطبيق هذا الكود ولم افلح
'If MsgBox("هل تريد حذف السجل؟؟", _
' vbCritical + vbYesNo, _
' "") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tblFinancial_Records.*, tblFinancial_Records.Reg_Number, * FROM tblFinancial_Records WHERE (((tblFinancial_Records.Reg_Number)=[forms]![frm_search]![Reg_Number]))"
DoCmd.SetWarnings True
Else
Exit Sub
End If
وكذلك
If Err.Number <> 0 Then
MsgBox "حدث خطأ: " & Err.Description
End If
و
MsgBox "ليس لديك صلاحية بالدخول", _
vbCritical + vbOKOnly, _
"تنبيه"
If MsgBox("خروج من البرنامج...!؟", vbCritical + vbYesNo, "") = vbYes Then
MsgBox "تم انشاء نسخة احتياطية بنجاح" & vbNewLine & "Backup successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"
بارك الله فيك اخى الكريم لم اجد مثال لهؤلاء وهم كل الماسج التى احتاج تطبيها مشكور بارك الله فيك