رسالة التكرار

[ابو عبد الله العراقي]

السلام عليكم ورحمة الله وبركاته

الأستاذة الافاضل :-

هذه رسالة أخرى تظهر في نموذج الاكسس عند ربطه بــsql server   عند ادخال قيمة مكررة ، حيث يوجد حقل في جدول في sql server  غير قابل للتكرار وعندما قمت بربطه بالاكسس وعمل نموذج في الاكسس لادخال البيانات ، فعند ادخال قيمة مكررة تظهر هذه الرسالة في الاكسس (مرفق ) .

هو طبعاً لازم ما يقبل تكرار لكن السؤال كيف الغي هذه الرسالة وابدلها برسالة من عندنا اكثر وضوحا للمستخدم ... ؟؟؟

 

تم تعديل فبراير 16 بواسطه ابو عبد الله العراقي

[Foksh]

4 ساعات مضت, ابو عبد الله العراقي said:

هو طبعاً لازم ما يقبل تكرار لكن السؤال كيف الغي هذه الرسالة وابدلها برسالة من عندنا اكثر وضوحا للمستخدم ... ؟؟؟

 

وعليكم السلام ورحمة الله وبركاته ،،

اعتقد ان حل مشكلتك يعتمد على رقم هذا الخطأ في آكسيس ، وإن ما خاب ظني Err.Number = 3022 ، ولكن للتأكيد تستطيع جلب قيمة رقم رسالة الخطأ من خلال الفكرة التالية للتأكد :-

في زر الحفظ على سبيل المثال ، اكتب في نهاية الكود :-

MsgBox Err.Number

 

وعليه اذا حصلت على رقم خطأ مختلف عن 3022 ، فاستبدله و استعمل الكود التالي على سبيل المثال لتغيير رسالة الخطأ :-
 

If Err.Number = 3022 Then
   MsgBox "سجل مكرر ! لا يمكنك إدخال نفس البيانات مرتين", vbExclamation  + vbMsgBoxRight, "تنبيه"
   Cancel = True
Else
   MsgBox "حدث خطأ", vbCritical  + vbMsgBoxRight, "خطأ"
End If

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

تم تعديل فبراير 16 بواسطه Foksh

[ابو عبد الله العراقي]

السلام عليكم ورحمة الله وبركاته

اخي الكريم ، أنا عملت كود بيان رقم الخطأ وخليتوا في زر الحفظ

On Error GoTo hoh

DoCmd.Save

DoCmd.GoToRecord , , acNewRec

Me.Instructor_ID.SetFocus

hoh:

MsgBox Err.Number

End Sub

وعند ادخال اسم موجود في قاعدة البيانات يعني مكرر طبعا ما يقبل يدخل الاسم وهذا شيء صحيح وهو يقول رقم الخطأ 2105

واعتقد هذا كود رسال الخطأ الخاصة بالاكسس وكذلك حاولت اطبق الكود الي حضرتك نصحتني به ولكن مع الأسف أيضا ما اشتغل ؟!

وهذه نسخة من قاعدة البيانات يا ريت حضرتك تشوفها وتساعدني في حل هذه المشكلة مع التحية والاحترام لحضرتك ؟

شكرا جزيلا مرة على التواصل والمساعدة .....

تحياتي

Mylibrary2.rar

[Foksh]

جرب

On Error GoTo hoh

DoCmd.Save

DoCmd.GoToRecord , , acNewRec

Me.Instructor_ID.SetFocus

hoh:

If Err.Number = 2105 Then
   MsgBox "سجل مكرر ! لا يمكنك إدخال نفس البيانات مرتين", vbExclamation  + vbMsgBoxRight, "تنبيه"
   Cancel = True
Else
   MsgBox "حدث خطأ", vbCritical  + vbMsgBoxRight, "خطأ"
End If

 

[ابو عبد الله العراقي]

السلام عليكم ورحمة الله وبركاته

أستاذ جربت الكود الأخير لكن أيضا طلع run-time error '5'  لذلك انا خليت هذا الـــerror number '5' في هذا الكود

If Err.Number = 5 Then

MsgBox "سجل مكرر! لا يمكنك ادخال نفس البيانات مرتين", vbExclamation + vbMsgBoxRight, "تنبيه", Cancel = True

Else

MsgBox "حدث خطأ", vbCritical + vbMsgBoxRight, "الاسم مكرر! لايمكنك ادخال نفس البيانات مرتين"

End If

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

الحمد لله مشي الحال

شكرا جزيلا لك أستاذ على تعبك معاي ، ممنون منك

 

 

تم تعديل الإثنين at 19:49 بواسطه ابو عبد الله العراقي