محرك بحث بسيط - كيف أعمله

بعد تجارب اكتشفت إجابة سؤالي الثاني

من الخصائص أختار

multiple بدلا من single form

:D

وبقي السؤال الأول :)

هذا مثال آخر:

/index.ph...e=post&id=23621

يوجد فورمة اسمها بحث

أيضا متستطيل تكتب فيه ما تريد وتظهر لك الحقول المتوافقة

ما هو الكود الذي أضعه في ال command button

لا أريده معقدا، فقط كود بسيط.

شكرا :)

للرفع والاستعجال

وعذرا على إلحاحي المزعج :)

اخي الكريم

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

يكل بساطه تستطيع عمل زر البحث حيث يعتبر من ابسط الامور والطريقه كالتالي

1. انشاء جدول وليكن اسمه مثلا tblEMP وبه الحقول التاليه

1. ID .... ترقيم تلقائي

2. Name .... نص

بقية حقول الجدول التي تريدها

3. انشئ نموذج مبني على الجدول ويأخذ بياناته منه وليكن اسمه مثلا frmEMP

4. اعرض النموذج في وضع التصميم وقم بوضع مربع نص غير منضم في اي موقع من النموذج وليكن اسمه مثلا Text

5. انشئ زر امر وليكن اسمه مثلا " ابحث " او Search بجانب مربع النص

6. الان اختر خصائص زر الامر Search وفي حدث عند النقر ضع هذا الكود

Private Sub Search_Click()
Dim MyStr As String
MyStr = Nz(Me.Text, "")
If MyStr = "" Then
  Form.RecordSource = "SELECT tblEMP.* FROM tblEMP;"
Else
    Form.RecordSource = "SELECT tblEMP.* FROM tblEMP" _
    & " WHERE (((tblEMP.Name) Like '" & MyStr & "' & '*'));"
End If
End Sub

وهذا مثال مرفق

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

اختكم

زهره

شكر الله لك أستاذتي وأجزل لك العطاء :D

جربته وكل حاجة تمام.

استفساران بسيطان:

1-

الآن المحرك يبحث في الاسم فقط. ماذا لو أردت توسعته ليبحث في حقول أخرى؟ يعني الاسم او الرقم؟

2- جربت المحرك في صنع صفحة إنترنت HTML لكن الزر لا يوجد فيه مكان ل On click كما هو الحال مع الفورمة، فأين أضع الكود؟

ولك كل الشكر وبارك الله فيك.