استبدال رسائل أكسس القياسية

نعم يمكن ذلك لنفترض أن هناك زر لتنفيذ أمر معين لتخرير الرسالة حسب رغبتك فهذا مثال على ذلك.

Private Sub Command1_Click()
On Error GoTo error

هنا الكود الذي تريد تنفيذه بواسطة الزر
    
error:
   If Err.Number = 3021 Then MsgBox "نص الرسالة هنا"
End Sub

فقط لاحظ أن رقم 3021 هو رقم رسالة الخطأ التي تظهر لك عند تنفيذ الأمر لذلك يجب عليك أن تعرف رقم الرسالة التي تظهر عند تنفيذك للكود الخاص بك و تضع هذا الرقم في الكود.

بالنسبة للرسائل التحذيرية ,,,,

:rolleyes: :rolleyes:

قبل تنفيذ اي كود يخص الاستعلام قم بوضع هذا الكود

قبل بداية الكود

    DoCmd.SetWarnings False

وفي نهاية الكود يجب وضع هذا الكود

DoCmd.SetWarnings True

مهمة هذا الكود عدم اظهار الرسائل التحذيرية للاستعلامات

شكرا جزيلا لكم