Abdelaziz Osman قام بنشر ديسمبر 4, 2023 مشاركة قام بنشر ديسمبر 4, 2023 (معدل) السلام عليكم ورحمة الله لدى حقل داخل احد النماذج باسم kindse. من نوع. Textbox اريد كود عند حدث بعد التحديث يقييد الادخال هذا الحقل بحيث مدخل البيانات لا يستطيع ادخال اي البيانات غير البيانات التالية محمود او. عصام. او. مدحت وفى حالة ادخال بيانات أخرى يعطى رسالة " ادخل اسم صحيح " مع العلم ان الحقل textbox وليس combobox تم تعديل ديسمبر 4, 2023 بواسطه Abdelaziz Osman رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر ديسمبر 4, 2023 مشاركة قام بنشر ديسمبر 4, 2023 (معدل) 47 دقائق مضت, Abdelaziz Osman said: السلام عليكم ورحمة الله لدى حقل داخل احد النماذج باسم kindse. من نوع. Textbox اريد كود عند حدث بعد التحديث يقييد الادخال هذا الحقل بحيث مدخل البيانات لا يستطيع ادخال اي البيانات غير البيانات التالية محمود او. عصام. او. مدحت وفى حالة ادخال بيانات أخرى يعطى رسالة " ادخل اسم صحيح " مع العلم ان الحقل textbox وليس combobox ممكن بهذه الطريقة If TxT1 <> "محمود" And TxT1 <> "عصام" And TxT1 <> "مدحت" Then MsgBox "خطأ ادخل الاسم الصحيح" End If طبعا استبدل txt1 باسم مربع النص تم تعديل ديسمبر 4, 2023 بواسطه عمر ضاحى تصحيح الكود رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر ديسمبر 4, 2023 الكاتب مشاركة قام بنشر ديسمبر 4, 2023 مش قابل انا حملت النموذج يرجى تطبيق الحل على النموذج المرفقvdata.rar رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 4, 2023 مشاركة قام بنشر ديسمبر 4, 2023 6 دقائق مضت, Abdelaziz Osman said: مش قابل انا حملت النموذج يرجى تطبيق الحل على النموذج المرفقvdata.rar بعد اذن استاذي @عمر ضاحى تفضل الملف بما قام به الأستاذ vdata.accdb 1 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر ديسمبر 4, 2023 الكاتب مشاركة قام بنشر ديسمبر 4, 2023 اشكرك جدا. بس سؤال تانى من فضلك اذا كانت اختيارات الادخال موجودة داخل حقل اخر باسم sat داخل جدول باسم tabon فكيف يكون سطر الأمر بالكود بحيث تكون الاختيارات مقيدة بما يستجد داخل هذا الحقل رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر ديسمبر 4, 2023 مشاركة قام بنشر ديسمبر 4, 2023 46 دقائق مضت, Abdelaziz Osman said: اشكرك جدا. بس سؤال تانى من فضلك اذا كانت اختيارات الادخال موجودة داخل حقل اخر باسم sat داخل جدول باسم tabon فكيف يكون سطر الأمر بالكود بحيث تكون الاختيارات مقيدة بما يستجد داخل هذا الحقل هنا انت هتستخدم دالة Dlookup مع الكود السابق ذكره رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر ديسمبر 4, 2023 الكاتب مشاركة قام بنشر ديسمبر 4, 2023 @عمر ضاحى تقصد هكذا يكون الكود كالتالى Private Sub kind_Res_BeforeUpdate(Cancel As Integer) If kind_Res <> DLookUp([Valueco]![txtdatay]) Then MsgBox "تعبير غير صحيح" Undo End If End Sub عندما كتيته كذلك اظهر لى رسالة خطأ رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 4, 2023 مشاركة قام بنشر ديسمبر 4, 2023 37 دقائق مضت, Abdelaziz Osman said: @عمر ضاحى تقصد هكذا يكون الكود كالتالى Private Sub kind_Res_BeforeUpdate(Cancel As Integer) If kind_Res <> DLookUp([Valueco]![txtdatay]) Then MsgBox "تعبير غير صحيح" Undo End If End Sub عندما كتيته كذلك اظهر لى رسالة خطأ أستاذي ومعلمي @عمر ضاحى ، مداخلة Private Sub kind_Res_BeforeUpdate(Cancel As Integer) If Me.kind_Res <> DLookup("[txtdatay]", "[Valueco]", "[txtdatay]='" & Me.kind_Res & "'") Then MsgBox "تعبير غير صحيح" Cancel = True End If End Sub جرب هذا التعديل رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر ديسمبر 4, 2023 الكاتب مشاركة قام بنشر ديسمبر 4, 2023 للاسف سيدى لم يتم الموضوع بنجاح مرفق الملف لبحث الموضوع بشكل عملى رجاء vdata.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر ديسمبر 4, 2023 أفضل إجابة مشاركة قام بنشر ديسمبر 4, 2023 منذ ساعه, Abdelaziz Osman said: للاسف سيدى لم يتم الموضوع بنجاح مرفق الملف لبحث الموضوع بشكل عملى رجاء vdata.rar 33 kB · 0 downloads اخي الكريم ، تم تصحيح الكود Private Sub kind_Res_AfterUpdate() If IsNull(DLookup("[txtdatay]", "Valueco", "[txtdatay] = '" & Me.kind_Res & "'")) Then MsgBox "تعبير غير صحيح", , "" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 5, 2023 مشاركة قام بنشر ديسمبر 5, 2023 في 4/12/2023 at 11:44, عمر ضاحى said: ممكن بهذه الطريقة If TxT1 <> "محمود" And TxT1 <> "عصام" And TxT1 <> "مدحت" Then MsgBox "خطأ ادخل الاسم الصحيح" End If تقصد OR ؟ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر ديسمبر 6, 2023 مشاركة قام بنشر ديسمبر 6, 2023 11 ساعات مضت, ابوخليل said: تقصد OR ؟ فى الاول كتبهتا OR من غير ما اجرب النتائج لكن كانت النتيجة غير مظبوطه فعدلت الاجابة وكتبتها and وجربت ظبطة ممكن علشان كلها لنفس الحقل مفيش حاجه خارجية فتمشي كانها OR 😅 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر ديسمبر 6, 2023 مشاركة قام بنشر ديسمبر 6, 2023 2 ساعات مضت, عمر ضاحى said: فعدلت الاجابة وكتبتها and وجربت ظبطة ممكن علشان كلها لنفس الحقل مفيش حاجه خارجية فتمشي كانها OR ممكن ايضا الوصول للنتيجة باستخدام دالة العد Dim x As Byte x = DCount("*", "[Valueco]", "[txtdatay]='" & Me.name2 & "'") If x = 0 Then MsgBox "أدخل الإسم الصحيح" End If الشايب 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها