هل فيه إمكانية تغيير رسائل الخطأ ؟؟؟

[zoom10]

أعزائي : لدي حقل مفتاح أساسي ومن الطبيعي إذا لم يكون هناك بيانات فيه فسوف تظهر رسالة الخطأ هذه :

 

فهل بالإمكان تغيير النص بنص آخر والتحكم فيه . ولكم جزيل الشكر .

[يوسف أحمد]

السلام عليكم

في حدث عند الخطأ للنموذج ضع الكود التالي :

Const conErrRequiredData = 3314

If DataErr = conErrRequiredData Then
    MsgBox ("لا يمكن ترك الفهرس فارغ")
    Response = acDataErrContinue
Else
    Response = acDataErrDisplay
End If

غير نص الرسالة بما تريد

بالتوفيق 

تم تعديل مايو 16, 2020 بواسطه يوسف أحمد

[أبوبسمله]

33 دقائق مضت, يوسف أحمد said:

السلام عليكم

في حدث عند الخطأ للنموذج ضع الكود التالي :

Const conErrRequiredData = 3314

If DataErr = conErrRequiredData Then
    MsgBox ("لا يمكن ترك الفهرس فارغ")
    Response = acDataErrContinue
Else
    Response = acDataErrDisplay
End If

غير نص الرسالة بما تريد

بالتوفيق 

كيفك اخى واستاذى العزيز @يوسف أحمد ازى صحتك والله سعيد انى شوفتك ان شاء الله تكون دائما بخير عودا حميدا

[zoom10]

أهلا بيك أستاذ يوسف .

وضعت الكود في النموذج عند حدث ( عند الخطأ ) ولكن مازالت تضهر الرسالة العادية 😐

[يوسف أحمد]

بارك الله فيك اخي احمد الفلاحجي و جزاك خير الجزاء على سؤالك الحمد لله كلنا بخير دامكم بخير و صحه  ... و انا كذلك سعيد برؤيتكم اخي العزيز ..

 

اخي zoom10  اهلا بك  ...  ارفق مثال من طرفك للعمل عليه حتى اتمكن من معرفة الخطأ 

[ابوخليل]

نورت المنتدى   ابو احمد    كل عام وانتم بخير 

[zoom10]

لا استطيع رفع البرنامج لأن حجمه كبير جدا

[zoom10]

وضعت هذا الكود في زر حفظ وليس في النموذج وضبطت معي :

 

Private Sub save_Click()
On Error GoTo Err_save_Click
If IsNull(number2) Then
MsgBox "áÇíãßä ÇáÍÝÙ Ãæ ÇáÎÑæÌ ÞÈá æÖÚ ÇáÑÞã ÇáÎÇÕ ", vbInformation, "ÊäÈíå"
Else
Dim stLinkCriteria As String

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_save_Click:
    Exit Sub

Err_save_Click:
    MsgBox Err.Description
    Resume Exit_save_Click
End If
End Sub

 

 

 

 

[يوسف أحمد]

الغالي ابو خليل ... المنتدى منور بوجودك و وجود النخبة الرائعة من الاساتذه و الاخوة الاعزاء  

 

اخي zoom10  الحمد لله انك توصلت الى الحل