البحث في نموذج فرعي و الانتقال إلى السجل المناسب في النموذج الرئيسي

[Hamdi Edlbi-khalf]

السلام عليكم 

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

 

مثلاً 

النموذج الرئيسي يتضمن أسماء الدول

النموذج الفرعي المدن التي توجد بهذه الدول 

عند الحاجة إلى البحث عن اسم مدينة ينتقل العرض إلى. السجل المناسب في النموذج الرئيسي .

و كأنه حقل من حقول النموذج الرئيسي .

و شكرا. 

[Hamdi Edlbi-khalf]

و هل يمكن أن يكون البحث لكافة حقول سجلات النموذج الفرعي و بجزء أو بكل محتويات الحقل ؟

[Hamdi Edlbi-khalf]

سأضع مثالاً للمطلوب

 

شكراً لكم مقدماً ..

[Hamdi Edlbi-khalf]

البحث في النموذج الفرعي و الرئيسي معاً ...

أرجو إفادتي بمدى إمكانية ذلك حيث يتم البحث بكافة سجلات النموذج الفرعي و حقولها و بنفس الوقت في كافة حقول و سجلات النموذج الرئيسي .

 

SearchInSubandMain.accdb

[Hamdi Edlbi-khalf]

كل ما توصلت إليه حتى الآن  يحتاج إلى نموذج بحث مساعد

[Hamdi Edlbi-khalf]

النتيجة:

لا يمكن البحث بما يشبه ctr +f في النموذجين الفرعي و الرئيسي .

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

[jjafferr]

وعليكم السلام 🙂

 

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

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

.

تقدر تعمل استعلام بهذه الطريقة ، وهو يعمل المطلوب:

.

ولكن ، كبف تريد البحث في النموذج الرئيسي والفرعي في نفس الوقت!! ما قصدي انه ما يصير ، وانما ياريت تعمل لنا مثال عن اللي تريده ، من واقع بياناتك (وزيد في البيانات شوي) ، 

 

جعفر

[فارس بني هلال]

السلام عليكم جرب هذا المرفق

1010.rar

[Hamdi Edlbi-khalf]

الان, jjafferr said:

كبف تريد البحث في النموذج الرئيسي والفرعي في نفس الوقت!! ما قصدي انه ما يصير ، وانما ياريت تعمل لنا مثال عن اللي تريده ، من واقع بياناتك (وزيد في البيانات شوي) ، 

 

السلام عليكم

أولاً أعتذر لتأخري عن الرد و لكن تأخرت حتى أتيح لي استخدام الحاسوب .

لقد قمت بعمل هذا الاستعلام في بداية تصميمي للبرنامج ، و لكن حاولت إيجاد  طريقة تمكنني   من  البحث بمثل طريقة مربع البحث الافتراضي في برنامج أكسس حيث استطيع البحث بكافة حقول النموذج الفرعي و الرئيسي و كأنهما حقول في نموذج واحد ، كون البحث في النموذج الفرعي يقتصر في نتائجه على السجلات المرتبطة بالسجل الحالي في النموذج الرئيسي و لا ينتقل  عير السجلات في النموذج الرئيسي .( أخشى ألا أكون و اضحاً في هذه النقطة )

أي عند استخدام المفتاح Ctr+ F

و اختيار البحث في الحقل الحالي

و تاشير حقل في النموذج الفرعي

فإنه سيبحث فقط بالسجلات الظاهرة في السجل الرئيسي فقط و لن ينتقل عبر السجلات في النموذج الرئيسي .

أما عن عبارة النموذج الرئيسي والفرعي في نفس الوقت!

فقد صادفتني أثناء البحث عبر جوجل Search in Mainform and subform

و كان الموضوع مماثلاً لما أبحث عنه إلا أن الحل لم يرقني .

و الآن أضع بين يديك الكريميتين نموذجاً لما قمت به كبديل عما كنت أصبو إليه و هو من حيث المبدأ ما كنت به بدأت و هو مماثل لاقتراحكم  باستخدام استعلام .

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

بالتفصيل :

نموذج البحث Form1

فيه نموذج فرعي SubTableSearch

بنموذج البحث الفرعي زر GO TO

عند الضغظ عليه ينتقل إلى السجل في النموذج الرئيسي الذي أبخث ضمنه MainTable و يؤشر  على السجل في النموذج الفرعي SubTable الذي له رقم ID مماثل لما في نموذج البحث الفرعي SubTableSearch إلا أنه  من المفترض أن يستمر بحالة SetFocus و لكنه ينتقل إلى السجل الأعلى في النموذج الفرعي .

الكود الخاص بالانتقال هو :

DoCmd.OpenForm "MainTable", acNormal, , "[Employer] =  '" & Forms![form1]![SubTableSearch].Form("[Employer]") & "'", acFormEdit
'الكود من الأستاذ ALWAZEER
'يسمح بفتح النموذج على السجل المطلوب 

[Forms]![MainTable]![DateEmploying] = [Forms]![form1]![SubTableSearch]![DateEmploying]
'الغرض من هذه الأمر استدعاء البيانات المناسبة عبر التاريخ أي البيانات القديمة المخزنة إذا كان هدف البحث ضمنها 

[Forms]![MainTable]![Txt01] = [Forms]![form1]![SubTableSearch]![ID]
'نسخ قيمة معرف النموذج الفرعي الخاص بالبحث إلى حقل غير منضم لجأت إلى ذلك  كوني غير واثق من إمكانية تطبيق الكود التالي 
'بالنسخ مباشرة من نموذج البحث الفرعي

[Forms]![MainTable]!SubTable.Form.Recordset.FindFirst "id =" & [Forms]![MainTable]![Txt01]
'يؤشر على السجل المطلوب 
[Forms]![MainTable]!SubTable.Form.ID.SetFocus

تعديل :

لقد أستبدلت السطر الآخير من الكود بهذا و أصبح يقوم بالتأشير على الحقل المطلوب و لكنه لا زال لا يستقر على السجل

[Forms]![MainTable]!SubTable.SetFocus
[Forms]![MainTable]!SubTable.Form.ID.SetFocus

و لك جزيل الشكر

SearchInSubandMain2.accdb

تم تعديل نوفمبر 20, 2018 بواسطه Khalf

[Hamdi Edlbi-khalf]

شكراً أستاذ

@فارس بني هلال

ليس هذا طلبي ، مع أنه نموذج بحث أنيق و جيد .

عذبتك معي ، بارك الله بك و جزاك كل خير .

[Hamdi Edlbi-khalf]

لقد وجدت أن 

Ctr + F

تبحث على أساس الجداول مما يمنع بحثها في جدولين معاً 

فلو كان المؤشر على حقل ضمن النموذج الرئيسي فلم يبحث عن التتائح ضمن النموذج الفرعي 

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

[jjafferr]

وعليكم السلام 🙂

 

ممكن نعمل بحث في النموذج الفرعي ، بالطريقة اللي اخبرتك عنها ، ولما نحصل على النتيجة ، نوقف المؤشر على الحقل اللي فيه المعلومه ، وتكون كلمات البحث مُختاره في هذا الحقل 🙂

 

ولكن ، هل هذا اللي تريده؟

 

جعفر

[Hamdi Edlbi-khalf]

السلام عليكم

استاذ

@jjafferr

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

 

منذ ساعه, jjafferr said:

وعليكم السلام 🙂

 

ممكن نعمل بحث في النموذج الفرعي ، بالطريقة اللي اخبرتك عنها ، ولما نحصل على النتيجة ، نوقف المؤشر على الحقل اللي فيه المعلومه ، وتكون كلمات البحث مُختاره في هذا الحقل 🙂

 

ولكن ، هل هذا اللي تريده؟

 

جعفر

تماماً هو طلبي .

و لكن هل يمكن أن يكون التركيز بعد عملية البحث  على أي حقل في النموذج الفرعي أو الرئيسي ؟

و خاصة أن الكود الذي وجدته يشير إلى حقل من السجل في النموذج الفرعي فقط مع مشكلة انتقال التركيز إلى سجل آخر .

[jjafferr]

اللي اتكلم عنه لا علاقة له بالكود اللي انت ارفقته 🙂

البحث الجديد هي طريقة انا اعملها ، وبالطريقة اللي اريدها 🙂

 

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

 

جعفر

[Hamdi Edlbi-khalf]

بارك الله بك و ألف شكر 

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

 

[Hamdi Edlbi-khalf]

السلام عليكم

أعتذر عن التأخر حتى تمكنت من استخدام  حاسب متصل بالإنترنت .

هذا المرفق دون أية إضافات  

و قد عرفت سبب عدم ثبات المؤشر في الكود السابق

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

و خلال البحث كان أحد الاقتراحات أن استخدم Recordsetclone و Bookmark

إلا أنها لم تعمل أيضاً

SearchInSubandMain3.accdb