ايقاف رسالة تنبيه الاكسس

[عذاب الزمان]

السلام عليكم اخواني الاعزاء

ارجو ايقاف رسالة تنبيه الاكسس ....

ارفقت ملف يشرح المشكلة ....
واستخدمت 
DoCmd.SetWarnings False 
ولم تنجح
ارجو منكم لو تفضلتم ارفاق الحل ايضا 
جزاكم الله خيرا

COMBO BOX ERROR.accdb

[ابوآمنة]

Private Sub STATION_OUT_DEP_NotInList(NewData As String, Response As Integer)

MsgBox "الادخال خاطيء ...انت محدد بالقائمة ... يرجى عدم ادخال اي شيء آخر", vbOKOnly

Response = acDataErrContin

End Sub

فقط ضع هذا الكود اسفل الرسالة

 

Response = acDataErrContin

لست بحاجة لاستخدام كود إخفاء رسائل الاستعلام هذا

DoCmd.SetWarnings False 

 

الملف بعد التعديل

COMBO BOX ERROR.accdb

[عذاب الزمان]

الاخ ابو آمنه المحترم

جزاك الله خير ... 

هو ما اردته فعلا .... وانا ممنون منك وزادك الله علما وفهما ......

بقي لي سؤال مرتبط بالموضوع ايضا ((هل هناك امكانية عدم السماح بالكتابة اصلا اي فقط السماح بالاختيار من القائمة فقط وبذلك لانحتاج اي رسالة تحذير)) ، لان في فرض السؤال السابق هو ((الكتابة وظهور رسالة للتحذير وتعططيل رسالة الاكسس)) ، فهل يمكن ذلك ؟

[ابوآمنة]

جرب إزالة الرسالة والاكتفاء

Response = acDataErrContin

[عذاب الزمان]

اخي العزيز ...جربت ذلك ...

هو لايمنع الكتابة لكنه يقيد بالقائمة فقط .

لكن كتبت معه تفريغ الحقل نجح والحمد لله

Me.STATION_OUT_ARA = ""
Response = acDataErrContin
 

هذا الامر نجح لكون مصدر الصف او القائمة (جدول او استعلام)  اما اذا كانت القيم (مدخلة في مصدر الصف) مثلا 

السبت;الاحد;الاثنين;الثلاثاء;الاربعاء;الخميس;الجمعة

فان الكود اعلاه لاينفع ....

حيث اني استعمل صندوقين احدهما (مصدره جدول) والاخر (مصدره كتابة قيم الحقل) في مصدر الصف .

[ابوآمنة]

جرب هذا الكود

  If NewData = Not Null Then
       Me.STATION_OUT_DEP = Null
    Else
       Response = acDataErrContinue
    End If

 

[jjafferr]

السلام عليكم 🙂

 

وهذا دلوي 🙂

 

Private Sub cmb_Month_NotInList(NewData As String, Response As Integer)

    Call Items_NotInList("cmb_Month", NewData, Response)
End Sub

Private Sub STATION_OUT_DEP_NotInList(NewData As String, Response As Integer)

    Call Items_NotInList("STATION_OUT_DEP", NewData, Response)
End Sub

Private Sub Items_NotInList(fld As String, NewData As String, Response As Integer)
    
    Response = acDataErrContinue
    Me(fld).Undo

End Sub

.

جعفر

1185.COMBO BOX ERROR.accdb.zip

[عذاب الزمان]

الاستاذ جعفر ... 

احسنت واجدت وجزاك الله خير ... هو عين المراد .... زادك الله من فضله علما وفهما 

الاستاذ ابو آمنه ....

جزيل الشكر والامتنان على مساعدتك وجزاك الله خيرا ...

وساعود حتما في موضوع اخر فملاذي هنا دائما معكم ...

 

[jjafferr]

حياك الله 🙂

 

وللتذكير

 

 

جعفر