السلام عليكم
عندي نموذج يحتوي على عدة حقول .. واريد ان اكتب رقم الشخص في حقل الرقم تظهر باقي بيانات الشخص في النموذج
علماً بان نوع حقل رقم الشخص "نص" وليس رقم لانه قد يكون رقم الشخص مثلاً " 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
السلام عليكم :
عندي قاعدة بيانات موظفين وبها نموذج اسمه F3 مصدر بياناته جدول T1 لإدخال وتعديل البيانات..
ارجو من السادة الخبراء مساعدتي في ما يلي:
اريد من النموذج عند كتابة الرقم الوطني والضغط على المفتاح انتر يظهر باقي السجلات المرتبطة بالرقم الوطني في النموذج ... وفي حالة عدم وجود الرقم تظهر رسالة تفيد ان الرقم غير موجود هل ترغب في ادخال جديد ؟ ، وتتم عملية الادخال في نفس النموذج .
قاعدة البيانات في المرفقات
ولكم جزيل الشكر
t3leem.rar