تقييد الادخال فى textbox

[Abdelaziz Osman]

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

لدى حقل   داخل احد النماذج باسم kindse.   

من نوع.  Textbox

اريد كود عند حدث بعد التحديث

يقييد الادخال هذا الحقل بحيث مدخل البيانات لا يستطيع ادخال اي البيانات غير البيانات التالية

محمود او. عصام.  او. مدحت

وفى حالة ادخال بيانات أخرى يعطى رسالة 

" ادخل اسم صحيح "

مع العلم ان الحقل textbox وليس combobox

تم تعديل ديسمبر 4, 2023 بواسطه Abdelaziz Osman

[عمر ضاحى]

47 دقائق مضت, Abdelaziz Osman said:

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

لدى حقل   داخل احد النماذج باسم kindse.   

من نوع.  Textbox

اريد كود عند حدث بعد التحديث

يقييد الادخال هذا الحقل بحيث مدخل البيانات لا يستطيع ادخال اي البيانات غير البيانات التالية

محمود او. عصام.  او. مدحت

وفى حالة ادخال بيانات أخرى يعطى رسالة 

" ادخل اسم صحيح "

مع العلم ان الحقل textbox وليس combobox

ممكن بهذه الطريقة 
 

If TxT1 <> "محمود" And TxT1 <> "عصام" And TxT1 <> "مدحت" Then
MsgBox "خطأ ادخل الاسم الصحيح"
End If

 

طبعا استبدل txt1 باسم مربع النص

تم تعديل ديسمبر 4, 2023 بواسطه عمر ضاحى
تصحيح الكود

[Abdelaziz Osman]

مش قابل

انا حملت النموذج  يرجى تطبيق الحل  على النموذج المرفقvdata.rar

[Foksh]

6 دقائق مضت, Abdelaziz Osman said:

مش قابل

انا حملت النموذج  يرجى تطبيق الحل  على النموذج المرفقvdata.rar

بعد اذن استاذي @عمر ضاحى

تفضل الملف بما قام به الأستاذ

vdata.accdb

[Abdelaziz Osman]

اشكرك جدا. 

بس سؤال تانى من فضلك 

اذا كانت اختيارات الادخال 

موجودة داخل حقل اخر باسم sat داخل جدول باسم  tabon

فكيف يكون سطر الأمر بالكود

بحيث تكون الاختيارات مقيدة بما يستجد داخل هذا الحقل

[عمر ضاحى]

46 دقائق مضت, Abdelaziz Osman said:

اشكرك جدا. 

بس سؤال تانى من فضلك 

اذا كانت اختيارات الادخال 

موجودة داخل حقل اخر باسم sat داخل جدول باسم  tabon

فكيف يكون سطر الأمر بالكود

بحيث تكون الاختيارات مقيدة بما يستجد داخل هذا الحقل

هنا انت هتستخدم دالة Dlookup مع الكود السابق ذكره

[Abdelaziz Osman]

@عمر ضاحى

تقصد هكذا يكون الكود كالتالى

Private Sub kind_Res_BeforeUpdate(Cancel As Integer)
If kind_Res <> DLookUp([Valueco]![txtdatay]) Then
MsgBox "تعبير غير صحيح"
Undo
End If
End Sub

عندما كتيته كذلك اظهر لى رسالة خطأ

[Foksh]

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

جرب هذا التعديل 

[Abdelaziz Osman]

للاسف سيدى لم يتم الموضوع بنجاح

مرفق الملف لبحث الموضوع بشكل عملى رجاء

vdata.rar

[Foksh]

منذ ساعه, 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

 

[ابوخليل]

في 4‏/12‏/2023 at 11:44, عمر ضاحى said:

ممكن بهذه الطريقة 
 

If TxT1 <> "محمود" And TxT1 <> "عصام" And TxT1 <> "مدحت" Then
MsgBox "خطأ ادخل الاسم الصحيح"
End If

 

 تقصد OR ؟ 

[عمر ضاحى]

11 ساعات مضت, ابوخليل said:

 تقصد OR ؟ 

فى الاول كتبهتا OR من غير ما اجرب النتائج 

لكن كانت النتيجة غير مظبوطه 

فعدلت الاجابة وكتبتها and وجربت ظبطة ممكن علشان كلها لنفس الحقل مفيش حاجه خارجية فتمشي كانها OR 

😅

[شايب]

2 ساعات مضت, عمر ضاحى said:

فعدلت الاجابة وكتبتها and وجربت ظبطة ممكن علشان كلها لنفس الحقل مفيش حاجه خارجية فتمشي كانها OR 

ممكن ايضا الوصول للنتيجة باستخدام دالة العد

Dim x  As Byte
x = DCount("*", "[Valueco]", "[txtdatay]='" & Me.name2 & "'")
If x = 0 Then
MsgBox "أدخل الإسم الصحيح"
End If

الشايب