السلام عليكم
عندي نموذج يحتوي على عدة حقول .. واريد ان اكتب رقم الشخص في حقل الرقم تظهر باقي بيانات الشخص في النموذج
علماً بان نوع حقل رقم الشخص "نص" وليس رقم لانه قد يكون رقم الشخص مثلاً " 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