البحث عن بيانات بناءا على قيمة فى مربع نص

تفضل اخي الكريم

ملفك بعد التعديل

يحب ان يكون الكود بهذه الطريقة

Private Sub texSearch_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ChekID] = '" & Nz(Me![texSearch] & "'", 0)
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

za-RostSys-UP.rar

بالتوفيق

zahrah كتب:

تفضل اخي الكريم

ملفك بعد التعديل

يحب ان يكون الكود بهذه الطريقة

Private Sub texSearch_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ChekID] = '" & Nz(Me![texSearch] & "'", 0)
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

كل الشكر للاخت زهرة

وحمد الله على السلامة

وشكرا للمنتدى

za-RostSys-UP.rar

بالتوفيق