البحث بالاسم في ثلاث جداول من فورم واحد

[StarTefa]

طلب من اعضاء المنتدي الكرام ... إنشاء نموذج بحث بالاسم في ثلاث جداول 

Database1.rar

[obaid70]

تفضل ارجو ان يكون هذا ما قصدت

Database2.rar

[StarTefa]

1 ساعه مضت, obaid70 said:

تفضل ارجو ان يكون هذا ما قصدت ... ( بتمني شرح الخطوات لو حبيت اعملها في قاعدة تانية )..

Database2.rar

شكرا اخي الكريم علي تعاونك :D

تم تعديل نوفمبر 25, 2017 بواسطه StarTefa

[obaid70]

بسم الله الرحمن الرحيم

الخطوات بسيطة وواضحة وهي كالتالي :

1-      انشاء استعلام مبني على الجدول الأول ( جدول1) نسمي الاستعلام (frm1) ونضع المعيار التالي في حقل الاسم / طبعا بعد الدخول الى تصميم الاستعلام :

Like "*" & [Forms]![Form]![Text2] & "*"

2-      انشاء استعلام مبني على الجدول الثاني ( جدول2) نسمي الاستعلام (frm2) ونضع المعيار التالي في حقل الاسم  :

Like "*" & [Forms]![Form]![Text3] & "*"

3-      انشاء استعلام مبني على الجدول الثالث ( جدول3) نسمي الاستعلام (frm3) ونضع المعيار التالي في حقل الاسم  :

Like "*" & [Forms]![Form]![Text4] & "*"

4-      ننشئ نموذج مبني على الاستعلام  frm1 ونسميه frm1   وعلى الاستعلام frm2 ونسميه frm2 وعلى الاستعلام frm3 ونسميه frm3.

5-      نأخذ نموذج جديد فارغ ونسميه (form)  ونضيف اليه النماذج (frm1) و (frm2) و (frm3) كنماذج فرعية .

6-      نأخذ مربع نص نسميه (text1) ونضع في حدث عند التغيير :

 

Private Sub Text1_Change()

Dim x

Dim m

Dim n

 x = Text1.Text

Text2 = x

Me.frm1.Requery

 m = Text1.Text

Text3 = m

Me.frm2.Requery

 n = Text1.Text

Text4 = n

Me.frm3.Requery

 End Sub

 

6-نأخذ ثلاث مربعات نصية ونسميها (text2) و (text3) و (text4)

ونجعل الخاصية / مرئي / الى   لا

 ارجو ان يكون الشرح واضح