طلب المساعدة فى البحث باستخدام ComboBox

[mmbakrey]

تم عمل ComboBox للبحث عن سجل معين داخل النموذج عن طريق الاسم وكتابة كود برمجى عن الحدث After Update ولكن لا يتم تحديث بيانات النموذج بعد اختيار الاسم الرجاء المراجعة والافادة بالخطأ .

ملحوظة : الرجاء تصحيح الخطأ فى هذه الطريقة دون اللجوء الى حل آخر

 

School.rar

[عبد الفتاح كيرة]

ضع هذا الكود فى حدث بعد التحديث

Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[studentid] = " & Str(Nz(Me![CmboStud], 0))
    If Not rs.EOF Then
       Me.Bookmark = rs.Bookmark

    End If

School22.rar

 

[mmbakrey]

شكرا لتفاعلكم الفورى ولكننى جربت اختار من combobox فى الملف الذى تم تحديثه بمعرفتكم ولم يظهر بيانات الخاص بالسجل المختار فى باقى النموذج وشكراً

[أبو آدم]

جربت المرفق المعدل لأخي عبدالفتاح ، وهو يعمل بشكل ممتاز

 

http://youtu.be/_9UhmIZaJzE

 

[mmbakrey]

شكراً اخوانى الأعزاء ، المشكلة إن كان هناك رسالة تنبيه خاصة بتشغيل الكود وتم السماح للتشغيل ، جزاكم الله خيراً.

وإن أمكنكم تصحيح المشكلة فى الكود الخاص بالمثال قبل التعديل وشكراً

[احمد الفقي]

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

عندي مشكلة في afterupdate event لا يعمل ويعطي new application error

مرفق الجدول

[.Azhar]

تفضل اخي انظر الى هذا التعديل

School.rar