البحث في الموقع

السلام عليكم رداً على السؤال التالي: سؤال عن كود البحث في جدولين قمت بعمل محاولة بناء على ما تبين لي من مقصد السائل، وبناء على ملاحظة الأستاذ @د.كاف يار عن كون الفكرة مبتكرة، أعيد رفع المرفقات مع شرح مختزل للفكرة عارٍ من الصور، مع إضافة طريقة أخرى. الفكرة قد تحتاج إلى تهذيب بحكم أنها كانت استجابة عفوية للسائل، أضعها بين أيديكم الغالية، عسى أن يُستفاد منها: أللهم صلِ على سيدنا محمد وعلى آله وصحبه وسلم. تنقسم الطريقة إلى جزئين رئيسيين، الأول منهما ثابت والثاني اقترحت طريقتين له: الجزء الأول: عمل استعلام توحيد بين الجدول الرئيسي والفرعي، يكون فيه من الجدول الفرعي Figlio : 1- الحقل الذي نرغب بالبحث ضمنه. 2- حقل المتسلسل. 3- حقل الربط. ومن الجدول الرئيسي Padre: 1- الحقل الذي نرغب بالبحث ضمنه 2- حقل المتسلسل 3- حقل محسوب قيمته صفر (نستحصل عليها بضرب حقل المتسلسل بالقيمة صفر). بالنسبة لي، قد اخترت أن يكون في نموذج البحث مربع قائمة -على مبدأ (البحث عن الكل) في الإكسل- يكون مصدره الاستعلام الذي سميته في الأنموذج المرفق (SearchQ)، وربطته بفلاتر تُستدعى بناء على معيار حقل البحث (طريقة العرض يمكن تغييرها والتفنن بها وهذه الجزئية ليست موضوع المنشور)، بعد ذلك يتم الانتقال من نموذج البحث إلى نموذج الإدخال (بقسمين الرئيسي والفرعي) بتمرير قيمة حقل الربط وحقل المتسلسل. إلى مربعين غير مرتبطين في نموذج البحث ومن ثم إلى نموذج هدف البحث. (ويمكن ذلك باستخدام المتغيرات). ملحوظة: يوجد في النموذج الفرعي حقل خفي مصدره المتسلسل في الجدول الفرعي. الجزئية الثانية: كيفية تحديد الحقل والسجل الذي يتضمن الهدف! هنا لدينا طريقتان: الأولى: بنقل التركيز إلى الحقل المطلوب : Dim Padre As Integer ' متغير باسم (الأب) لحفظ قيمة معرف السجل في الجدول الرئيسي Dim Figli As Integer ' متغير باسم (الابناء) لحفظ قيمة معر السجل في الجدول الفرعي Padre = Me.id ' حقل خفي في نموذج البحث Figli = Me.ID2 ' حقل خفي في نموذج البحث If Me.ID2 = 0 Then ' هذا الشرط لجعل الكود يتحقق بالانتقال ووقوف في النموذج الرئيسي أو الانتقال ومتابعة البحث في النموذج الفرعي DoCmd.OpenForm "form1" ' إعادة فتح النموذج الهدف لنقل التركيز إليه DoCmd.GoToRecord acDataForm, "Form1", acGoTo, Padre ' فتح النموذج على السجل المنشود DoCmd.GoToControl "[اسم رب العائلة]" ' التركيز على حقل فيه Else DoCmd.OpenForm "form1" DoCmd.GoToRecord acDataForm, "Form1", acGoTo, Padre 'Me.id DoCmd.GoToControl "SubForm" ' نقل التركيز إلى النموذج الفرعي DoCmd.GoToControl "[الاسم]" ' نقل التركيز إلى حقل في النموذج الفرعي ' هذا الجزء لنقل التركيز في النموذج الفرعي إلى السجل المطلوب Dim rstt As dao.recordset Dim rstrng As String rstrng = "[id0]=" & Figli 'Forms!search!Figli Set rstt = Forms!form1!Subform.Form.RecordsetClone rstt.FindFirst rstrng Forms!form1!Subform.Form.Bookmark = rstt.Bookmark Set rstt = Nothing End If الثانية: باستخدام التنسيق الشرطي وهي الطريقة الأفضل برأيي. ويزاد فيها وجود معادلة للتنسيق الشرطي لحقل الهدف في النموذج الرئيسي وأخرى لحقل الهدف في النموذج الفرعي ، ووجود حقلين خفيين في النموذج الرئيسي يأخذان قيمتها من المتغيرين (الأب) و(الأبناء)، ستكون قيمتهما هي محددات معادلتي التنسيق الشرطي. ' سيبدو الكود بهذه الطريقة Dim Padre As Integer Dim Figli As Integer Padre = Me.id Figli = Me.ID2 Forms!form1!CondScnd.Value = Figli ' هنا نجعل حقل المعيار للتنسيق الشرطي يأخذ قيمته من المتغيرات المبين معناها في الكود السابق Forms!form1!CondFrst.Value = Padre DoCmd.GoToRecord acDataForm, "Form1", acGoTo, Padre Forms!form1.Refresh ' مع اختصار المراحل ' وتوفير ضرورة إعادة التركيز إلى نموذج البحث مع كل انتقال إلى الهدف أرجو ممن يعرج على الموضوع التفضل بوضع ملاحظاته أو اقتراحاته أو إضافته. والحمد لله رب العالمين أخيراً المثال من وضع السائل في الرابط المذكور أعلاه (مشكوراً مأجوراً إن شاء الله تعالى) Search in Main form and Sub Form Simultaneously Search_MaiForm_SubFormConditionl.accdb Search_MainF=SubFormSetFocus.accdb

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

السلام عليكم ورحمه الله احبتي اريد اعدل الفاتوره مثلا عندما ادخل علي فورم frm_Search_sales و ابحث عن فاتوره واضغط زر تعديل اريد اعدل الفاتوره الذي تم حفظها انا عملت لنص الطريق صار يجلب لي رقم الفاتوره وتفاصيلها بالنموذج الريسي بنموذج التعديل بقي معي التفاصيل بالفرعي مادريت شو الحل معاها اي التفاصيل الذي كانت بفاتوره البيع بالفرعي اريدها تظهر معي بنموذج التعديل بالفرعي ان شاء الله يكون وصلتكم الفكره احبتي تحياتي اليكم تعديل فاتوره.rar

السلام و عليكم و ررحمة الله تقبل الله منكم الصيام و القيام إنشاء الله ، أرجو المساعدة لقد صممت نموذج رئيسي tbl_mowadef و به نموذج فرعي tbl_Affectation به مربعات سرد و تحرير مترابطة إذا فتحته كنموذج مستقل لوحده يعمل بكفاءة لكن من داخل النموذج الرئيسي لا يتم التحديث برغم من أنه يفتح في الوضع المخفي و عامل تحديث لحقل DIRECTION ارجو المساعدة مع الشرح أين يكمن الخطأ Database1.rar

عملت جدول خاص بمعلوات لرحلات سياحية فيها الحقول التالية تاريخ الرحلة _ الوجهة _ الفندق _ شركة الطيران _ العدد وجدول خاص بمعلومات المسافر الاسم _ رقم الموبايل _ العنوان _ رقم الجواز جدول خاص بالمدفوعات المبلغ _ رقم الايصال _ تاريخ الدفع جدول خاص بالمرافقين الاسم _ علامات اختيار ( كبير _ طفل _ رضيع ) وعملت نموذج لكل جدول على حدة والنموذج الرئيسي هو الخاص برزمة الرحلات على ان يكون هناك زر خاص بفتح نموذج بيانات الزبون المسافر وبه نموذجان فرعيان لبيان المدفوعات وآخر لبيان المرافقين لذا احتاج طريقة الربط بين هذه الجداول والنماذج وشكرا للجميع

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