اذهب الي المحتوي
أوفيسنا

عرض سجلات الجدول


hosam-IT-ENG

الردود الموصى بها

اعمل حقل بحث جديد  غير  منضم  اسمه  cmd_search

وفي حدث بعد التحديث لهذا الحقل  الصق الكود التالي :

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

لاحظ  يجب ان يكون نوع حقل   id رقميا

اما ان كان نصيا فاستخدم هذا :

Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = '" & Me![cmd_search] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information