استبدال رسالة خطا التكامل المرجعي برسالة اخرى

[محمد ايمن]

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته

هل يمكن استبدال هذه الرسالة برسالة أخرى ؟

[ناقل]

9 دقائق مضت, محمد ايمن said:

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته

هل يمكن استبدال هذه الرسالة برسالة أخرى ؟

جرب هذا الكود من خلال الذكاء الاصطناعي ولم اجربه ........

يتم وضع هذا الكود في قسم VBA للنموذج الذي ترغب في تغيير رسالة التكامل المرجعي له.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conReferenceNotSet = 3420
    If DataErr = conReferenceNotSet Then
        MsgBox "تم تعيين الرسالة الجديدة هنا", vbInformation, "رسالة جديدة"
        Response = acDataErrContinue
    End If
End Sub

 

[ناقل]

وهذه طريقة اخرى من الذكاء .....

يجب وضع هذا الكود في النموذج الذي ترغب في تغيير رسالة التكامل المرجعي الخاصة به. عندما يحدث خطأ 3200 الذي يشير إلى رسالة التكامل المرجعي، ستظهر الرسالة الجديدة المحددة في الكود بدلاً من الرسالة الافتراضية.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    ' رسالة التكامل المرجعي - Reference Integrity Message
    If DataErr = 3200 Then
        ' قم بتعديل الرسالة الجديدة هنا
        MsgBox "رسالة جديدة"
        Response = acDataErrContinue
    End If
End Sub

 

 

 

 

[محمد ايمن]

تمام اخي @ناقل

لكن كود الخطأ يختلف في برنامجي كود الخطأ هو 3201

[ناقل]

6 دقائق مضت, محمد ايمن said:

تمام اخي @ناقل

لكن كود الخطأ يختلف في برنامجي كود الخطأ هو 3201

الحمد لله رب العالمين ...