البحث في السجلات وعرض الحقول

[القادم من هناك]

السلام عليكم

عندي نموذج يحتوي على عدة حقول .. واريد ان اكتب رقم الشخص في حقل الرقم  تظهر باقي بيانات الشخص في النموذج

علماً بان نوع حقل رقم الشخص "نص" وليس رقم لانه قد يكون رقم الشخص مثلاً   " 21a " 

ووجدت هذا الكود لكن لا يعمل الا مع الرقم فقط  ،،، ولا يعمل مع النص 

فهل من تعديل على هذا الكود او حل لهذه المشكلة

وشكرا

Private Sub text1_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id] = " & Me![text1]
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

 

[محمد أبوعبدالله]

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

اذا كان نوع الحقل نص استخدم الكود التالي

rs.FindFirst "[id] ='" & Me![text1] & "'"

اذا كان نوع الحقل تاريخ استخدم الكود التالي

rs.FindFirst "[id] = #" & Me![text1] & "#"

اذا كان نوع الحقل رقم استخدم الكود التالي

rs.FindFirst "[id] = " & Me![text1]

تحياتي

[القادم من هناك]

شكرا بارك الله فيك .. تمت التجربة وتعمل بصورة صحيحة 100 100☺️☺️

 

[أبوبسمله]

في ٦‏/٣‏/٢٠٢٠ at 19:00, jjafferr said:

ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) :

.

شكرا 🙂

تم تعديل مارس 19, 2020 بواسطه أحمد الفلاحجى