زر ومربع بحث في نموذج

[قهرني الأوفيس]

السلام عليكم اخواني أعضاء أوفيسنا
لي طلب أريد عمل مربع نص في نموذج مع (زر بحث لإظهار البيانات )
البحث يحوي مربعين بحث برقم الموظف ومربع بحث باسم الموظف
الملف مرفق

تجريبي1.rar

[محمد أبوعبدالله]

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

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

Private Sub أمر11_Click()
        Dim rs As Object
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[no_m]=""" & Me.نص9 & """"
        Me.Bookmark = rs.Bookmark
End Sub

Private Sub أمر13_Click()
        Dim rs As Object
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[name]=""" & Me.نص12 & """"
        Me.Bookmark = rs.Bookmark
End Sub

تجريبي1.rar

تحياتي

[ازهر عبد العزيز]

3 ساعات مضت, محمد أبوعبدالله said:

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

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

Private Sub أمر11_Click()
        Dim rs As Object
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[no_m]=""" & Me.نص9 & """"
        Me.Bookmark = rs.Bookmark
End Sub

Private Sub أمر13_Click()
        Dim rs As Object
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[name]=""" & Me.نص12 & """"
        Me.Bookmark = rs.Bookmark
End Sub

تجريبي1.rar 25.68 kB · 4 تنزيلات

تحياتي

ولا اجمل ولا احلى روعه 

[قهرني الأوفيس]

14 ساعات مضت, محمد أبوعبدالله said:

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

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

Private Sub أمر11_Click()
        Dim rs As Object
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[no_m]=""" & Me.نص9 & """"
        Me.Bookmark = rs.Bookmark
End Sub

Private Sub أمر13_Click()
        Dim rs As Object
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[name]=""" & Me.نص12 & """"
        Me.Bookmark = rs.Bookmark
End Sub

تجريبي1.rar 25.68 kB · 6 تنزيلات

تحياتي

أشكرك أخي محمد أبوعبدالله على الرد 

لكن عند الضغط على زر البحث لم يتم البحث ،،، أي الزر لايعمل

[محمد أبوعبدالله]

[قهرني الأوفيس]

47 دقائق مضت, محمد أبوعبدالله said:

أشكرك أخي محمد أبوعبدالله

أعتقد أن المشكلة عندي في اعداد الزر " كفيت ووفيت يعطيك العافية "