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

[sarah_rose]

 

🌺 السلام عليكم ورحمة الله وبركاته 🌺

إخوتي في الله ...

 

عندي نموذج رئيسي يتضمن نموذج فرعي ومربوطان عن طريق ( id )

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

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

 

Search.rarFetching info...

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

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

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

Private Sub أمر14_Click()
        Dim Rs As Object
        Set Rs = Me.Recordset.Clone
        Rs.FindFirst "[no]= '" & Me.Text15 & "'"
        Me.Bookmark = Rs.Bookmark
End Sub

وللبحث في النموذج الفرعي ( تصفية )

Private Sub أمر11_Click()

    Dim myCriteria As String
    myCriteria = myCriteria & "[no]= '" & Me.Text17 & "'"
    Debug.Print myCriteria
    Me.sub_tb_f.Form.Filter = myCriteria
    Me.sub_tb_f.Form.FilterOn = True
    
End Sub

Search_2.rarFetching info...

تحياتي

[jjafferr]

  في 6‏/11‏/2020 at 20:10, sarah_rose said:

1. واريد عمل نافذة بحث لحقل (رقم الكتاب الفرعي)

2. عند الضغط على ( ايقونة البحث عن رقم الكتاب الفرعي )

Expand  

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

 

قمت بتغيير اسم زر الامر (2) الى cmd_Find_in_SubForm ،

فيصبح الكود على حدث النقر على هذا الزر:

Private Sub cmd_Find_in_SubForm_Click()

    'نقل التركيز على النموذج الفرعي
    Me.sub_tb_f.SetFocus
    
    'اختيار الحقل الذي نريد ان نجري عليه البحث
    DoCmd.GoToControl "no"

    
    'نافذة البحث حسب الاعدادات اعلاه
    DoCmd.RunCommand acCmdFind
End Sub

.

ولكن للتحكم بإعدادات نافذة البحث :

.

فنستطيع عن طريق الكود التالي:

.

والتفاصيل :

.

وبالإعدادات التالية:

 

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

.

وعند جمع كود التحكم في نافذة البحث ، مع كود البحث ، يكون الكود هكذا :

Private Sub cmd_Find_in_SubForm_Click()

    'نقل التركيز على النموذج الفرعي
    Me.sub_tb_f.SetFocus
    
    'اختيار الحقل الذي نريد ان نجري عليه البحث
    DoCmd.GoToControl "no"
    
    'التحكم في اعدادات نافذة البحث
    DoCmd.FindRecord 0, acEntire, False, acSearchAll, False, acAll, True
    
    'نافذة البحث حسب الاعدادات اعلاه
    DoCmd.RunCommand acCmdFind
End Sub

 

جعفر

[sarah_rose]

السلام عليكم ورحمة الله وبركاته

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

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

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

السجلات المدخلة سابقا والخاصة بالجدول الفرعي وتحديدا ( رقم الكتاب للجدول الفرعي )

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

واكرر شكرا مقدما للجميع ... واسفة على الاطالة

 

search33.rarFetching info...

[jjafferr]

  في 7‏/11‏/2020 at 15:09, sarah_rose said:

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

Expand  

 

البحث يمكن ان يكون فقط في السجلات التي تم تصفيتها وابرازها في النموذج/النموذج الفرعي ، يعني البحث يكون على البيانات الظاهرة امامنا ،

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

.

بينما لو تم حذف هذه العلاقة (طبعا هذه افتراضية) ، فسنرى جميع السجلات ، وعليه يكون البحث لجميع هذه السجلات 🙂

.

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

 

جعفر

[sarah_rose]

😀صباح الخير أستاذتي الكرام  استاذ jjafferr   واستاذ محمد أبو عبدالله😀

شكرا لمعلوماتكم القيمة . بارك الله فيكم وجعلها في ميزان حسناتكم

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

لو توجد هنالك طريقة لعمل خاصية البحث هذه أكون ممنونه جدا منكم🌷

[jjafferr]

  في 8‏/11‏/2020 at 06:30, sarah_rose said:

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

Expand  

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

  في 7‏/11‏/2020 at 19:01, jjafferr said:

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

Expand  

 

وكذلك كما اشرت لك ، اذا اردتي البحث في جميع البيانات :

  في 7‏/11‏/2020 at 19:01, jjafferr said:

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

Expand  

.

.

  في 8‏/11‏/2020 at 06:30, sarah_rose said:

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

Expand  

تفضلي ، هكذا يكون الاستعلام ، مثلا :

.

وعليه اصبح النموذج (جعلته كنموذج فرعي) (وكذلك عملت مثال كنموذج رئيسي) :

.

ويظل الكود كما هو ، مع تغيير اسماء الكائنات ليتناسب مع الاسماء الجديدة:

Private Sub cmd_Find_in_SubForm_Click()

    'نقل التركيز على النموذج الفرعي
    Me.sfrm_Both.SetFocus
    
    'اختيار الحقل الذي نريد ان نجري عليه البحث
    DoCmd.GoToControl "no"
    
    'التحكم في اعدادات نافذة البحث
    DoCmd.FindRecord 0, acEntire, False, acSearchAll, False, acCurrent, True
    
    'نافذة البحث حسب الاعدادات اعلاه
    DoCmd.RunCommand acCmdFind
End Sub

.

جعفر

 

1273.sarah.accdb.zipFetching info...

[sarah_rose]

شكرا لك اخي العزيز  jjaffer     🌺  🌺  🌺   

اتعبتك معي تسلم ايدك وربي يوفقك دائما  

[jjafferr]

🙂

[sarah_rose]

صباح الخير أستاذ  jjafferr

كيف الحال أتمنى ان تكون بخير وصحة وعافية

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

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

123.rarFetching info...

[jjafferr]

وعليكم  السلام اختي الفاضلة 🙂

 

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

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

 

والكود الذي يقوم بعمل البحث في المرفق ، هو طريقة اخرى للبحث ، ولكنه يحتاج الى تعديل ، لأنه سيكون جدا بطيء اذا كان عندك آلاف السجلات !!
 

دائما علشان يكون عملك صحيح ، احسبي حساب اسوء الاحتمالات ، واحسبي حساب انك تتعاملين مع 50 الف سجل على الاقل ، وبهذه الطريقة يكون عملك مُتقن 🙂

 

جعفر

 

[sarah_rose]

صباح الخير أستاذ jjafferr

شكرا لك لاستجابتك لي عند السؤال  🌼 

كلامك الذي قلته صحيح بأن اعمل حساب اسوء الاحتمالات، واحسب حساب إني اتعامل مع 50 ألف سجل على الاقل

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

لأني اسعى دائما ان اتعلم من أستاذه خبراء مثلك ومثل باقي أساتذة المنتدى لك مني جزيل الشكر والامتنان 💐