مشكلتي في البحث

عمل دليل للهاتف

عبارة عن جدول " tblitems "

الاسم بالعربي

الاسم بالانجليزي

رقم الهاتف

رقم الجوال

------

استعلام " Qse "

الاسم بالعربي => المعاير Like Trim([forms]![se]![s_CODE]) & "*"

الاسم بالانجليزي

رقم الهاتف

رقم الجوال

--------

النماذج

عبارة عن

اسم مربع النص " s_code "

النموذج الفرعي " se "

--------

كود في منشي البرامج

Private Sub Form_Open(Cancel As Integer)

Me.s_code.SetFocus

End Sub


Private Sub s_code_Change()

Forms![se1]![se].Form.RecordSource = "qse"
Forms![se1].Refresh
SendKeys "{f2}"

End Sub

كل ماسوي عملية البحث يطلعلي