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

[Abdelaziz Osman]

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

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

من نوع.  Textbox

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

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

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

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

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

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

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

[عمر ضاحى]

  في 4‏/12‏/2023 at 07:58, Abdelaziz Osman said:

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

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

من نوع.  Textbox

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

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

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

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

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

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

Expand  

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

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

 

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

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

[Abdelaziz Osman]

مش قابل

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

[Foksh]

  في 4‏/12‏/2023 at 09:35, Abdelaziz Osman said:

مش قابل

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

Expand  

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

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

vdata.accdbFetching info...

[Abdelaziz Osman]

اشكرك جدا. 

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

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

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

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

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

[عمر ضاحى]

  في 4‏/12‏/2023 at 11:00, Abdelaziz Osman said:

اشكرك جدا. 

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

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

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

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

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

Expand  

هنا انت هتستخدم دالة 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]

  في 4‏/12‏/2023 at 19:12, Abdelaziz Osman said:

@عمر ضاحى

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

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

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

Expand  

أستاذي ومعلمي @عمر ضاحى ، مداخلة

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.rarFetching info...

[Foksh]

  في 4‏/12‏/2023 at 20:06, Abdelaziz Osman said:

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

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

vdata.rar 33 kB · 0 downloads

Expand  

اخي الكريم ، تم تصحيح الكود

Private Sub kind_Res_AfterUpdate()
If IsNull(DLookup("[txtdatay]", "Valueco", "[txtdatay] = '" & Me.kind_Res & "'")) Then
MsgBox "تعبير غير صحيح", , ""
End If
End Sub

 

[ابوخليل]

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

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

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

 

Expand  

 تقصد OR ؟ 

[عمر ضاحى]

  في 5‏/12‏/2023 at 15:43, ابوخليل said:

 تقصد OR ؟ 

Expand  

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

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

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

😅

[شايب]

  في 6‏/12‏/2023 at 03:37, عمر ضاحى said:

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

Expand  

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

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

الشايب