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

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

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

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

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

Database1.accdbFetching info...

[Foksh]

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

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

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

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

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

  في 26‏/9‏/2023 at 14:22, Foksh said:

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

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

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

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

Expand  

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

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

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

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

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

[شايب]

  في 26‏/9‏/2023 at 14:22, Foksh said:

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

Expand  

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

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

اخونا الشايب

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

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

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

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

Database1.accdbFetching info...

تم تعديل سبتمبر 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).accdbFetching info...

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

  في 27‏/9‏/2023 at 05:36, د.كاف يار 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

Expand  

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

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

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

[شايب]

  في 26‏/9‏/2023 at 14:22, Foksh said:

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

Expand  

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

الان للفلترة نحتاج الى اضافة حقل غير منضم كما اشار دكتور حسين وانا اسميت الحقل 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.accdbFetching info...

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

  في 27‏/9‏/2023 at 07: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

Expand  

اخوى @شايب

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

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

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

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

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

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

[شايب]

  في 27‏/9‏/2023 at 08:39, ابو طارق سعيد said:

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

Expand  

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

  في 27‏/9‏/2023 at 08:39, ابو طارق سعيد said:

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

Expand  

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

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

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

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

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

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

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

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

Database1.accdbFetching info...

[شايب]

  في 27‏/9‏/2023 at 09:51, ابو طارق سعيد said:

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

Expand  

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

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

جرب الان

 

Database1(1).accdbFetching info...

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

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

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

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

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

[شايب]

  في 27‏/9‏/2023 at 11:05, ابو طارق سعيد said:

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

Expand  

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

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

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

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

اخونا الشايب

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

  في 27‏/9‏/2023 at 12:16, شايب said:

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

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

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

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

Expand  

 

[Foksh]

  في 27‏/9‏/2023 at 07:51, شايب said:

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

Expand  

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

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

  في 27‏/9‏/2023 at 14:39, Foksh said:

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

Expand  

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

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

[Foksh]

  في 27‏/9‏/2023 at 15:08, ابو طارق سعيد said:

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

Expand  

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

[Foksh]

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

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

 

Database1(1).zipFetching info...

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

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

  في 27‏/9‏/2023 at 18:06, Foksh said:

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

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

 

Database1(1).zip 139.62 kB · 1 download

Expand  

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

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

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

foksh.accdbFetching info...

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

[Foksh]

  في 28‏/9‏/2023 at 02:14, ابو طارق سعيد said:

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

Expand  

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

foksh.zipFetching info...

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

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

  في 28‏/9‏/2023 at 09:23, Foksh said:

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

foksh.zip 100.48 kB · 0 downloads

Expand  

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

سلمت يمناك