كيف اصنع بحث متقدم

السلام عليكم

العزيز sun12

الموضوع بيسط

طبعا تكون في الاول معرف متغير من نوع recordset و متغير من نوع database

public db as database 
public rs as recordset

و في النموزج الاول تضيف text box & command

و تكتب في الommand الاتـي :

Private Sub Command1_Click()
sql1 = " select * from tbl1 where sname=" & Chr(34) & text1.Text & Chr(34) & ""
Set rs = db.OpenRecordset(sql1, 2)
    With Form2
        .Text1.Text = rs!sname
        .Text2.Text = rs!saddress
        .Text3.Text = rs!sphone
        .Show
    End With
End Sub

و في النموزج الثاني form2 نـحتاج الي 3 text

طبعا tbl1 هنا هو اسم الجدول و sname هو اسم الحقل الذي نبحث به

و بالتوفيق ان شاء الله :)

السلام عليك اخي ابراهيم الطيب

الحقيقة اني عملت الانتقال من الفورمالاول الى الفورم الثاني ووفقت في النتيجه والحصول علي البحث المطلوب ولكن في غير الطريقة التي تفضلتم بها

والان انا بحاجه الى تطيوي هذه العملية بحيث تشمل الامور التالية

الاول : اذا لم تكن الكلمه المطلوبه بالبحث موجوده لا بد حينئذ عرض رساله بعدم وجودها فاين يمكن يكون عرض هذه الرساله هل في الفورم الاول ام في الفورم الثاني

الثاني: كيف اذا كان عندي اختيارات لمجال البحث هلمثلا هل يبحث في الاسم ام في رقم الهاتف وهكذا

ارجو ان يكون تبين الامر مع الشكر

اخي ابراهيم انا في انتظار لتطبيق حول الطريقه التي تفضلتم بها واذا تكرمتم علينا بالبحث المقتدم

مع بالغ الشكر والاحترام

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

ارجو شرح الكود اللى تفضلت واضافته للافادة

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

أخى العزيز صاحب المشكلة إليك مثال عملى أرجوا ان يفيدك هو من برمجتى من قلب شركتى

أرجوا عدم نسيان الدعاء بظهر الغيب وإتمام زواجى إن شاء الله

وأى إستفسار حول الملف لاتتردد أخبرنى فورا

البرنامج مرفق معة شرح لكل سطر برمجى للتسهيل على كل من سيستفيد من الملف إن شاء الله

shearer@naseej.com

Firstsoft2005@hotmail.com

بحث متقدم.zip

ساجرب الامر اخي ان شا الله

مع الشكر