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

[hosam-IT-ENG]

السلام عليكم اخواني  انا عندي نموزج مبني علي جدول المطلوب ان لما اكتب id  في النموزج يستكمل باقي البيانات الموجوده في الجدول 

[ابوخليل]

اعمل حقل بحث جديد  غير  منضم  اسمه  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