نموذج البحث المتعدد في الاكسس 2007

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

ملفك بعد التعديل

اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )

za-Search.rar

بالتوفيق

أشكرك جزيل الشكر أخت زهرة ورزقك الله الخير الكثير

ولكن هل ممكن تخبريني التعديل اللي حصل عشان اطبقه على بقية الملفات معي واستفيد

جربت المثال الي ارفقتيه وما شاء الله ابداع

ولكن عندما حاولت اعمل نفس الخطوات على قاعدتي السابقة وذلك حتى أتعلم ظهرت عندي مشكلة وهي

اذا كان هناك اكثر من نتيجة لنفس البحث فقط تظهر واحده لا غير

شو السر ف الموضوع ؟؟

مع العلم اتبعت نفس الي عملتيه ف القاعده

وشكرا

أشكرك جزيل الشكر أخت زهرة ورزقك الله الخير الكثير

صباح الخير أخواني

ما زلت أنتظر ردا لمداخلتي

اخي الفاضل : سعيد

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

1. قم بإنشاء مربع نص غير منضم واعطه اسم مثلا  Text2  وضعه بجوار زر امر البحث 

2. اسناد جميع مربعات التحرير والسرد الخاصة بالبحث  الى مربع النص Text2 حتى يقوم مربع النص بأخذ القيمة المعروضة من اي مربع تحرير وسرد يتم اختياره بهذه الطريقة

Private Sub mession_AfterUpdate()
Me.Text2 = Me.mession
End Sub
 
Private Sub came_from_AfterUpdate()
Me.Text2 = Me.came_from.Column(1)
End Sub
 
Private Sub letter_no_if_any_AfterUpdate()
Me.Text2 = Me.letter_no_if_any.Column(1)
End Sub
 
Private Sub multisearch_Click()
DoCmd.OpenForm "Search1"
Me.mession = ""
Me.came_from = ""
Me.letter_no_if_any = ""
Me.Text2 = ""
End Sub

Like "*" & [FORMS]![search]![Text2] & "*"

 

 

 

 

بالتوفيق

صباح الخير أختي

الحمد لله هذه عرفتها قبل لا اعمل المادخلة

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

الملف المرفق نفس اللي عدلتي عليه ولكن انا طبقت الشرح من تطبيقك

للعلم المثال الي عملتيه شغال مية مية

said.rar

سعيد1986 كتب:

صباح الخير أختي

الحمد لله هذه عرفتها قبل لا اعمل المادخلة

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

 

الملف المرفق نفس اللي عدلتي عليه ولكن انا طبقت الشرح من تطبيقك

للعلم المثال الي عملتيه شغال مية مية

اخي الفاضل : سعيد

اتمنى ان تركز معي في الشرح جيدا ولا تترك اي خطوه حتى تضعها في مكانها الصحيح

طبعا انت لم تطبق الشرح الذي وضعته لك لأنك وضعته ناقص 

لاحظ معي بارك الله بك اكواد بعد التحديث لمربعات الترحير والسرد الموجوده في ملفك الأخير

Private Sub came_from_AfterUpdate()
Me.text2 = Me.came_from
End Sub
 
Private Sub letter_no_if_any_AfterUpdate()
Me.text2 = Me.letter_no_if_any
End Sub

Private Sub came_from_AfterUpdate()
Me.Text2 = Me.came_from.Column(1)
End Sub
 
Private Sub letter_no_if_any_AfterUpdate()
Me.Text2 = Me.letter_no_if_any.Column(1)
End Sub

هلا فيك أختي

نعم لقد وجدت الخطأ والذي هو راح يكون التعديل

Private Sub came_from_AfterUpdate()
Me.text2 = Me.came_from.Column(1)
End Sub


Private Sub letter_no_if_any_AfterUpdate()
Me.text2 = Me.letter_no_if_any.Column(1)
End Sub

الحين بالنسبة ل   (

Column(1)

)

شو وظيفته في العميلة ؟؟  حتى اتمكن من فهمه بالضبط

اشكرك وربي الموفق

بالنسبة للـ Column  فهو يمثل العمود في مربع التحرير والسرد الخاص بك لذا لو نظرت الى عدد الأعمدة لديك في خصائص مربعات النص ستجد ان عددها 2  

الأول مخفي لأننا وصعنا حجمه  صفر  ( 0 )  والثاني 2.54 

لذا فإن اول عمود في مربع التحرير والسرد هو  0  Column   و العمود الثاني المطلوب هو  1  Column  وهو الموجود في الكود

اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )

بالتوفيق