محمد ايمن قام بنشر يونيو 21, 2023 مشاركة قام بنشر يونيو 21, 2023 الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته هل يمكن استبدال هذه الرسالة برسالة أخرى ؟ رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يونيو 21, 2023 مشاركة قام بنشر يونيو 21, 2023 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 3 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ناقل قام بنشر يونيو 21, 2023 أفضل إجابة مشاركة قام بنشر يونيو 21, 2023 وهذه طريقة اخرى من الذكاء ..... يجب وضع هذا الكود في النموذج الذي ترغب في تغيير رسالة التكامل المرجعي الخاصة به. عندما يحدث خطأ 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 2 رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر يونيو 21, 2023 الكاتب مشاركة قام بنشر يونيو 21, 2023 تمام اخي @ناقل لكن كود الخطأ يختلف في برنامجي كود الخطأ هو 3201 رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يونيو 21, 2023 مشاركة قام بنشر يونيو 21, 2023 6 دقائق مضت, محمد ايمن said: تمام اخي @ناقل لكن كود الخطأ يختلف في برنامجي كود الخطأ هو 3201 الحمد لله رب العالمين ... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها