عذاب الزمان قام بنشر مارس 16, 2020 مشاركة قام بنشر مارس 16, 2020 السلام عليكم اخواني الاعزاء ارجو ايقاف رسالة تنبيه الاكسس .... ارفقت ملف يشرح المشكلة .... واستخدمت DoCmd.SetWarnings False ولم تنجح ارجو منكم لو تفضلتم ارفاق الحل ايضا جزاكم الله خيرا COMBO BOX ERROR.accdb رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر مارس 16, 2020 مشاركة قام بنشر مارس 16, 2020 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 3 رابط هذا التعليق شارك More sharing options...
عذاب الزمان قام بنشر مارس 16, 2020 الكاتب مشاركة قام بنشر مارس 16, 2020 الاخ ابو آمنه المحترم جزاك الله خير ... هو ما اردته فعلا .... وانا ممنون منك وزادك الله علما وفهما ...... بقي لي سؤال مرتبط بالموضوع ايضا ((هل هناك امكانية عدم السماح بالكتابة اصلا اي فقط السماح بالاختيار من القائمة فقط وبذلك لانحتاج اي رسالة تحذير)) ، لان في فرض السؤال السابق هو ((الكتابة وظهور رسالة للتحذير وتعططيل رسالة الاكسس)) ، فهل يمكن ذلك ؟ رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر مارس 16, 2020 مشاركة قام بنشر مارس 16, 2020 جرب إزالة الرسالة والاكتفاء Response = acDataErrContin 2 رابط هذا التعليق شارك More sharing options...
عذاب الزمان قام بنشر مارس 16, 2020 الكاتب مشاركة قام بنشر مارس 16, 2020 اخي العزيز ...جربت ذلك ... هو لايمنع الكتابة لكنه يقيد بالقائمة فقط . لكن كتبت معه تفريغ الحقل نجح والحمد لله Me.STATION_OUT_ARA = "" Response = acDataErrContin هذا الامر نجح لكون مصدر الصف او القائمة (جدول او استعلام) اما اذا كانت القيم (مدخلة في مصدر الصف) مثلا السبت;الاحد;الاثنين;الثلاثاء;الاربعاء;الخميس;الجمعة فان الكود اعلاه لاينفع .... حيث اني استعمل صندوقين احدهما (مصدره جدول) والاخر (مصدره كتابة قيم الحقل) في مصدر الصف . رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر مارس 16, 2020 مشاركة قام بنشر مارس 16, 2020 جرب هذا الكود If NewData = Not Null Then Me.STATION_OUT_DEP = Null Else Response = acDataErrContinue End If 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر مارس 16, 2020 أفضل إجابة مشاركة قام بنشر مارس 16, 2020 السلام عليكم 🙂 وهذا دلوي 🙂 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 3 رابط هذا التعليق شارك More sharing options...
عذاب الزمان قام بنشر مارس 17, 2020 الكاتب مشاركة قام بنشر مارس 17, 2020 الاستاذ جعفر ... احسنت واجدت وجزاك الله خير ... هو عين المراد .... زادك الله من فضله علما وفهما الاستاذ ابو آمنه .... جزيل الشكر والامتنان على مساعدتك وجزاك الله خيرا ... وساعود حتما في موضوع اخر فملاذي هنا دائما معكم ... 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 17, 2020 مشاركة قام بنشر مارس 17, 2020 حياك الله 🙂 وللتذكير جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان