مساعدة فى مستطيل بحث

[ابو طارق سعيد]

كما هو موضح بالصورة

لنفترض انه مسجل بالقاعدة عدة زبائن

المطلوب عند كتابة جزء من الاسم ان تظهر اسماء الزبائن التى تحمل نفس الحروف وعند النقر على الاسم المعنى تظهر بياناته وكل ما سلحق به فى النموذج الفرعى والرئيسي

Database1.accdb

[Foksh]

أخي الكريم لاحظت ما يلي :-

1- النموذج zboooooon مصدر بياناته الجدول zboon وعليه فانت لا تستطيع البحث داخل الجدول وهو قيد الإستخدام من النموذج ( من وجهة نظري ) ، وستضطر حينها غلى انشاء نموذج و مصدر بياناته استعلام يقوم بالبحث ضمن الشوط التي تريدها .

2- في الجدول buy المرتبط بعلاقة غير مكتملة مع الجدول zboon بالحقل fatora_name ، لاحظت ان هذا الحقل ليس له قيمة تلقائية ليتم الارتباط بشكل صحيح وعليه سيتم جلب البيانات .

,,, هذه النقاط لم تخلصت منها وقمت بتصويب أوضاعها فاعتقد أن ثلثي المشكلة سيتم حلها , فقم بالتغيير حسب متطلبات برنامجك وسنكمل معك بهمة الأساتذة .

[ابو طارق سعيد]

24 دقائق مضت, Foksh said:

أخي الكريم لاحظت ما يلي :-

1- النموذج zboooooon مصدر بياناته الجدول zboon وعليه فانت لا تستطيع البحث داخل الجدول وهو قيد الإستخدام من النموذج ( من وجهة نظري ) ، وستضطر حينها غلى انشاء نموذج و مصدر بياناته استعلام يقوم بالبحث ضمن الشوط التي تريدها .

2- في الجدول buy المرتبط بعلاقة غير مكتملة مع الجدول zboon بالحقل fatora_name ، لاحظت ان هذا الحقل ليس له قيمة تلقائية ليتم الارتباط بشكل صحيح وعليه سيتم جلب البيانات .

,,, هذه النقاط لم تخلصت منها وقمت بتصويب أوضاعها فاعتقد أن ثلثي المشكلة سيتم حلها , فقم بالتغيير حسب متطلبات برنامجك وسنكمل معك بهمة الأساتذة .

الاخ @Foksh المحترم

احذف نموذج zbooooooon واعتمد نموذج zboon

وعدل فى العلاقة بين جدولى buy و zboon كما تريد

المهم ان تظهر نتيجة البحث عن الاسم فى نموذج zboon كما هو مطلوب

تم تعديل سبتمبر 26, 2023 بواسطه ابو طارق سعيد

[شايب]

4 ساعات مضت, Foksh said:

النموذج zboooooon مصدر بياناته الجدول zboon وعليه فانت لا تستطيع البحث داخل الجدول وهو قيد الإستخدام من النموذج ( من وجهة نظري ) ، وستضطر حينها غلى انشاء نموذج و مصدر بياناته استعلام يقوم بالبحث ضمن الشوط التي تريدها .

معلومة جديدة وقيمة

الف شكر استاذنا الغالي

اخونا الشايب

[ابو طارق سعيد]

هذه قاعدة بنموذج واحد هو zboon وهو المطلوب ان نعمل البحث له

حذفنا النموذج الاخر 

الله يمسيك بالخير يا @ابو خليل @عبد اللطيف سلوم ويا  @Eng.Qassim ويا @ابو جودي   @kanory@ @Moosak

Database1.accdb

تم تعديل سبتمبر 27, 2023 بواسطه ابو طارق سعيد

[د.كاف يار]

اليك اسهل الطرق

اضف مربع نص آخر بجانب الأساسي

و لنفرض ان اسمه Text114

و الآن ضع الكود التالي في حدث عند التغيير في مربع النص الاساسي

Dim SetTexta As String
    SetText = cus_name.Text
    Text114 = SetText
    Child1.Form.RecordSource = "SELECT * FROM buy where [bian] Like '*" & Text114 & "*'"
    Child1.Requery

 

التعديل في المرفقات

 

 

Database1 (1).accdb

[ابو طارق سعيد]

6 دقائق مضت, د.كاف يار said:

اليك اسهل الطرق

اضف مربع نص آخر بجانب الأساسي

و لنفرض ان اسمه Text114

و الآن ضع الكود التالي في حدث عند التغيير في مربع النص الاساسي

Dim SetTexta As String
    SetText = cus_name.Text
    Text114 = SetText
    Child1.Form.RecordSource = "SELECT * FROM buy where [bian] Like '*" & Text114 & "*'"
    Child1.Requery

 

التعديل في المرفقات

 

 

Database1 (1).accdb 532 kB · 1 download

العزيز @د.كاف يار

اشكر لك مساعدتك

ولكنى اعتقد انك ارفقت القاعدة قبل التعديل

[شايب]

17 ساعات مضت, Foksh said:

النموذج zboooooon مصدر بياناته الجدول zboon وعليه فانت لا تستطيع البحث داخل الجدول وهو قيد الإستخدام من النموذج

بداية هذا الامر لا يشكل اي مانع بل يمكن البحث او الفلترة وبالتالي لا داعي لاي تعديلات

الان للفلترة نحتاج الى اضافة حقل غير منضم كما اشار دكتور حسين وانا اسميت الحقل tx_name

وسوف اتحدث عن طريقتين للوصول للمطلوب

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

ولتنفيذ الطريقة في حدث بعد التحديث للحقل tx_name نضع الامر التالي

DoCmd.ApplyFilter , "[cus_name]= '" & [tx_name] & " '"

ولو اردنا البحث بجزء من الاسم نستخدم * للدالة على الاحرف المفقودة ليكون الامر

DoCmd.ApplyFilter , "[cus_name]like '*" & [tx_name] & "*'"

الطريقة الثانية وهي الفلترة اثناء الكتابة وهي مطلوب صاحب المشاركة

وهنا في حدث عند التغيير للحقل tx_name نضع الامر

Dim strWhere As String
Dim strtxt As String
If Me.tx_name.Text <> "" Then
strtxt = Me.tx_name.Text
strWhere = "[cus_name] like '*" & strtxt & "*'"
Me.Filter = strWhere
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
Me.tx_name.SetFocus
Me.tx_name.SelStart = Len(Me.tx_name.Text)

وللتحكم في موقع المؤشر نضع في حدث عند مفتاح اعلى الامر التالي

If KeyCode = 32 Then
Me.tx_name.Value = Me.tx_name.Text & Chr$(32)
Me.tx_name.SelStart = Len(tx_name.Text)
End If

الملف مرفق

اخونا الشايب

Database1.accdb

[ابو طارق سعيد]

51 دقائق مضت, شايب said:

بداية هذا الامر لا يشكل اي مانع بل يمكن البحث او الفلترة وبالتالي لا داعي لاي تعديلات

الان للفلترة نحتاج الى اضافة حقل غير منضم كما اشار دكتور حسين وانا اسميت الحقل tx_name

وسوف اتحدث عن طريقتين للوصول للمطلوب

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

ولتنفيذ الطريقة في حدث بعد التحديث للحقل tx_name نضع الامر التالي

DoCmd.ApplyFilter , "[cus_name]= '" & [tx_name] & " '"

ولو اردنا البحث بجزء من الاسم نستخدم * للدالة على الاحرف المفقودة ليكون الامر

DoCmd.ApplyFilter , "[cus_name]like '*" & [tx_name] & "*'"

الطريقة الثانية وهي الفلترة اثناء الكتابة وهي مطلوب صاحب المشاركة

وهنا في حدث عند التغيير للحقل tx_name نضع الامر

Dim strWhere As String
Dim strtxt As String
If Me.tx_name.Text <> "" Then
strtxt = Me.tx_name.Text
strWhere = "[cus_name] like '*" & strtxt & "*'"
Me.Filter = strWhere
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
Me.tx_name.SetFocus
Me.tx_name.SelStart = Len(Me.tx_name.Text)

وللتحكم في موقع المؤشر نضع في حدث عند مفتاح اعلى الامر التالي

If KeyCode = 32 Then
Me.tx_name.Value = Me.tx_name.Text & Chr$(32)
Me.tx_name.SelStart = Len(tx_name.Text)
End If

الملف مرفق

اخونا الشايب

Database1.accdb 832 kB · 1 download

اخوى @شايب

جربت العمل على حقل البحث وارجو ان يتسغ صدرك للملاحظات التالية

1- اول عملية بحث تكون صحيحة ولكن العملية الثانية او الثالثة تعطى اسما اخر غير الاسم المراد البحث عنه

لاحظ فى الصورة قمت بالبحث عن سعيد فاظهر لى سليمان

2- عند كتابة اول حرف من الاسم المراد البحث عنه من المفترض ان يجلب الاسماء التى تحتوى نفس الحرف ومن ثم تتم التصفية عند اضافة حرف اخر و هكذا

تم تعديل سبتمبر 27, 2023 بواسطه ابو طارق سعيد

[ابو طارق سعيد]

[شايب]

59 دقائق مضت, ابو طارق سعيد said:

1- اول عملية بحث تكون صحيحة ولكن العملية الثانية او الثالثة تعطى اسما اخر غير الاسم المراد البحث عنه

جربت عمليات البحث عدة مرات ولم اواجه هذه المشكلة  واتمنى اذا احد اخر جرب يفيدنا

59 دقائق مضت, ابو طارق سعيد said:

2- عند كتابة اول حرف من الاسم المراد البحث عنه من المفترض ان يجلب الاسماء التى تحتوى نفس الحرف ومن ثم تتم التصفية عند اضافة حرف اخر و هكذا

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

مثلا كتبت س يكون اول اسم معروض سعيد ولكن عند كتابة حرف ل يكون المكتوب سل فيعرض سليمان وهكذا

[ابو طارق سعيد]

@شايب كنت اتمنى مثل ما تقول 

ولكن للاسف لا يحدث عندى فى عملية البحث ما تقول

عموما انت عملت البحث فى نموذج zbooooon

وحتى لو كتبت اى اسم لا يظهر ابدا

وهذا مثال كتبت سليمان فى النموذج لم يظهر شىء والصورة مرفقة وقاعدة البيانات مرفقة مرة اخرى

Database1.accdb

[شايب]

16 دقائق مضت, ابو طارق سعيد said:

وهذا مثال كتبت سليمان فى النموذج لم يظهر شىء والصورة مرفقة وقاعدة البيانات مرفقة مرة اخرى

في مرفقك الاخير لا يوجد سجل باسم سليمان

فقط سعيد ومازن وحسن وحسين وانا اضفت محمد ومحمود و البحث يعمل

جرب الان

 

Database1(1).accdb

[ابو طارق سعيد]

@شايب اشكرك يا غالى

تعرف فتحت القاعدة فى ويندوز اخر وعملت بشكل ممتاز كما اريد

الخلل كان فى الويندوز

اشكرك واحلى اجابة

[شايب]

منذ ساعه, ابو طارق سعيد said:

اشكرك واحلى اجابة

بالتوفيق والشكر لله وحده

مع ذلك فان الاخ العزيز شايب سبق ان اشار في موضوع سابق ان الفلترة اثناء الكتابة ليست الخيار الافضل وخصوصا عند وجود عدة مستخدمين للبرنامج اضافة الى مشاكل في ازاحة الاحرف

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

ولكن لو حرف امتناع لامتناع فلا انا مبرمج ولن اعمل برنامج

اخونا الشايب

[ابو طارق سعيد]

منذ ساعه, شايب said:

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

الحقيقة يا غالى انا ما رضيت اغلبك

ولكن بالفعل ان تكتب الاسم فى مربع البحث وتظهر قائمة منسدلة تضم كل الاسماء التى تحتوى على نفس الحرف يكون اجمل 

ياريت تطبق الفكرة لو ما فيها ازعاج

 

[Foksh]

6 ساعات مضت, شايب said:

بداية هذا الامر لا يشكل اي مانع بل يمكن البحث او الفلترة وبالتالي لا داعي لاي تعديلات

معلومة قيمة ، جزاك الله كل خير أخونا @شايب 

[ابو طارق سعيد]

27 دقائق مضت, Foksh said:

معلومة قيمة ، جزاك الله كل خير أخونا @شايب 

كنت اعرف ان لا علاقة له ولا يشكل اى مانع ولكن اردت التزام الصمت

عموما ارنا همتك بان يكون البحث بمربع سرد كما ذكر الاخ شايب

[Foksh]

15 دقائق مضت, ابو طارق سعيد said:

كنت اعرف ان لا علاقة له ولا يشكل اى مانع ولكن اردت التزام الصمت

هههههه  ، تخفي عني ما تعلم وانا الذي لا يعلم ، نقطة محسوبة لك 1 - 0 

[Foksh]

هل تقصد كهذه الفكرة  

بعد الكتابة في القائمة المنسدلة ؛ اضغط Enter 

 

Database1(1).zip

تم تعديل سبتمبر 27, 2023 بواسطه Foksh
تعديل الملف

[ابو طارق سعيد]

8 ساعات مضت, Foksh said:

هل تقصد كهذه الفكرة  

بعد الكتابة في القائمة المنسدلة ؛ اضغط Enter 

 

Database1(1).zip 139.62 kB · 1 download

يا عينى عليك يا احلى @Foksh

كمل جميلك وطبق الفكرة على القاعدة المرفقة لانى تعبت فى تنسيقها

وياريت التطبيق يكون على نموذجين zboooooon و zboon

foksh.accdb

تم تعديل سبتمبر 28, 2023 بواسطه ابو طارق سعيد

[Foksh]

7 ساعات مضت, ابو طارق سعيد said:

ياريت التطبيق يكون على نموذجين zboooooon و zboon

اخي الكريم انا لم افعل شيئاً ، فقد نقلت الكود من أخونا @شايب  الى مربع السرد فقط 

foksh.zip

تم تعديل سبتمبر 28, 2023 بواسطه Foksh

[ابو طارق سعيد]

10 دقائق مضت, Foksh said:

اخي الكريم انا لم افعل شيئاً ، فقد نقلت الكود من أخونا @شايب  الى مربع السرد فقط 

foksh.zip 100.48 kB · 0 downloads

احلى منسف بجميد كركى لعيونك احلى فوكش

سلمت يمناك