jamal2080 قام بنشر فبراير 26, 2023 مشاركة قام بنشر فبراير 26, 2023 السلام عليكم ورحمة الله وبركاتة عندى الكومبوبوكس اريد عندى ادخال قيمة غير موجودة تظهر رسائل تنبية رسائل تنبية.rar رابط هذا التعليق شارك More sharing options...
Barna قام بنشر فبراير 26, 2023 مشاركة قام بنشر فبراير 26, 2023 50 دقائق مضت, jamal2080 said: السلام عليكم ورحمة الله وبركاتة عندى الكومبوبوكس اريد عندى ادخال قيمة غير موجودة تظهر رسائل تنبية طبق الموجود في الصورة ........... رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر فبراير 26, 2023 مشاركة قام بنشر فبراير 26, 2023 (معدل) في حدث بعد التحديث استخدم الكود التالي.. If DCount("*", "Table1", "[datea]=" & "#" & Me.cbo1 & "#") = 0 Then MsgBox "التاريخ غير موجود!" End If تم تعديل فبراير 26, 2023 بواسطه Eng.Qassim 2 1 رابط هذا التعليق شارك More sharing options...
jamal2080 قام بنشر فبراير 27, 2023 الكاتب مشاركة قام بنشر فبراير 27, 2023 اخى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس خاص بالموردين وليس تاريخ رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 27, 2023 مشاركة قام بنشر فبراير 27, 2023 4 ساعات مضت, jamal2080 said: اخى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس خاص بالموردين وليس تاريخ ياأخي كود المهندس قسم يعمل جيداً حسب معطياتك . انت من ادرجت حقل التاريخ ولم تدرج أي شيء عن الموردين راجع مرفقك وأرسل المرفق الصح . 1 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر فبراير 27, 2023 مشاركة قام بنشر فبراير 27, 2023 5 ساعات مضت, jamal2080 said: وليس تاريخ 🤔 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر فبراير 28, 2023 مشاركة قام بنشر فبراير 28, 2023 (معدل) في 26/2/2023 at 16:28, jamal2080 said: خى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس خاص بالموردين وليس تاريخ استعمل الكود الاخير للاستاذ @Eng.Qassim ثم اجعل الالتزام بالقائمة لا لن تظهر لك الرسالة واضف الكود التالي في نهاية الكود Me.Combo0 = Null تحياتي تم تعديل فبراير 28, 2023 بواسطه ازهر عبد العزيز رابط هذا التعليق شارك More sharing options...
qathi قام بنشر فبراير 28, 2023 مشاركة قام بنشر فبراير 28, 2023 (معدل) اختر الحقل القائمة المنسدلة ( الكومبوبوكس ) ومن خصائص اختر حدث ومنه عند عدم الوجود في القائمة ضع الكود التالي: On Error GoTo myError: Response = acDataErrContinue Me.km2.Undo MsgBox " أدخال خاطىء - أختر من القائمة ", vbInformation, "تنبيـــــة !" Exit Sub myError: MsgBox "Error " & Err.Number & ": " & Error$ مع تغيير اسم حقل القائمة km2 في الكود Me.km2.Undo الى اسم الحقل لديك ثم من قائمة البيانات قم بالتعليم على نعم على التزام بالقائمة كما بالصورة تم تعديل فبراير 28, 2023 بواسطه qathi رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر مارس 2, 2023 مشاركة قام بنشر مارس 2, 2023 السلام عليكم بالاضافة لما تقدم به جميع الاساتذة اليك الحل التالي على حسب فهمي لطلبك. يرجى موافاتنا بالنتيجة. Private Sub Supplier_NotInList(NewData As String, Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Msg = " " & NewData & " المورد " & Supplier & vbCr & vbCr & " غير موجود في القائمة " & vbCr & vbCr Msg = Msg & "هل تود إضافة هذا المورد ؟" If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then Response = acDataErrContinue MsgBox "تم إلغاء عملية الإضافة", vbInformation, "تنبية" Supplier = "" Exit Sub End If On Error GoTo CancelAddNew Set Db = CurrentDb Set Rs = Db.OpenRecordset("Table1", dbOpenDynaset) Rs.AddNew Rs![Supplier] = NewData Rs.Update Response = acDataErrAdded Rs.Close Set Rs = Nothing Set Db = Nothing Exit Sub CancelAddNew: Response = acDataErrContinue Set Rs = Nothing Set Db = Nothing Exit Sub End Sub الملف بعد التعديل تحياتي رسائل تنبية.accdb 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان