كيفية عمل فلتره في النموذج الفرعي

للتذكير (clock)

الاخوه المشرفين : فيصل الحربي وأشرف خليل

والاخوان : ( فهد الدوسري أحمد الحربي ابن مسقط )

وجميع الاعضاء الكرام بدون إستثناء .

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

وللجميع كل احترام وتقدير

السلام عليكم

الطلب اكتر من مره

صرت شايفه

كيفية عمل فلتره في النموذج الفرعي

مش عم نفهم عليك

اولا البرنامج لاشو معمول

شو معنا فلتر؟؟؟؟؟؟؟؟؟

متلا عمليه مقارنه

متلا طلب رقم محدد

متلا استعلام رقم محفظ

ارجو ان توضح اكتر

ان شاء الله يوجد حل من الاخوه

اشرح اكتر نحنا في الانتظار

الاستاذ الفاضل :samir_samir

أولا : شكر على تفاعلك مع الموضوع .

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

دواء السكري رقم الصنف 1 والرقم التسلسلي هو 1

دواء السعال رقم الصنف 2 والرقم التسلسلي هو 2

هناك نموذج فرعي بداخله رقم الصنف الفرعي مثال :

دواء السكري ( خاص بالكبار ) رقم الصنف الفرعي 11

دواء السكري ( خاص بالاطفال ) رقم الصنف الفرعي 12 وعلى هذا الشكل يستمر الادخال من قبل المستخدم

1- عند إدخال المستخدم من خلال الصفحة الرئيسية صنف دواء جديد وإعطاء هذا الصنف رقم 10 على سبيل المثال تظهر له رسالة ( تدقيق إدخال ) تفيد بأن هذا الرقم مستخدم من قبل .

المطلوب : أن تشير هذه الرسالة إلى الرقم التسلسلي الذي تم تسجيل الصنف فيه . الرسالة المتوقعه هي ( رقم الصنف 10 تم إدخاله مسبقاً فى رقم التسلسل 5 ) . وذلك تسهيل الرجوع إليها والتعديل فيها إذا لزم .

2- عند البحث من قبل المستخدم عن رقم صنف فرعي ( دواء السكري للكبار ) وهو 12 وذلك من خلال النموذج الفرعي . يقوم بدخال الرقم 12 في خانة TEXT79 ثم الضغط على زر البحث المقابل

المطلوب : تفعيل عملية البحث بإستخدام دالة Filter ( بالعربي تصفية ) وعرضها على الشاشة . لتصبح الشاشة الرئيسية على النحو التالي

رقم الصنف = 1 الرقم التسلسلي =1

الشاشة الفرعية ( النموذج الفرعي )

رقم الصنف الفرعي = 12 .

هذا كل المطلوب وأسف على التطويل فى الشرح ولكن ليس باليد حيله .

وشكرا للجميع .

جرب هذه رغم عدم اقتناعي بها

fahad_55.zip

الاستاذ :فهد الدوسري

الف الف شكر على تفاعلك مع الموضوع وفي نفس الوقت جزاك الله كل خير على المثال ولكن هناك مجموعة استفسارات لو سمحت لى :

أولا : ماذا تقصد بالعبارة التالية -

اقتباس

هذا ما توصلت إليه رغم عدم اقتناعي بهذه الطريقة الغير دقيقة ولكن لعل الله أن يدلني على طريقة أفضل وأقصر من هذه اللفة

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

ثالثا : وانا عارف انى طولت عليك أكثر من الازم ولكن ثقتى بكرمك وباقي الاعضاء كبير جد .

هل من المكن استخدام مصدر المعلومات في النموذج الاساسي والفرعي الجدول مباشرة ( عدم إنشاء إستعلام ) ارجو الافاده

الله يزيدك بسطه في العلم والمال والولد على حبك للخير ويجعل ماتقوم به وباقي الاعضاء في موازين أعمالكم

الاستاذ :فهد الدوسري وجميع الاخوه الاعضاء

إلحاقً لما تقدم من إستفسارات سابقة في نفس الموضوع ( والتي لم يعلق عليها الاستاذ فهد حتي الان أو أي عضو من الاعضاء فى المنتدي ) وأعتقد لضيق وقتهم

أسمحوا لى بإضافة هذا الاستفسار أيضا

رابعا : كيف يمكن أن يكون هذا الكود

AA = DLookup("ID", "tbl1", "[fileno]=" & Me![fileno])

عند تغير نوعية الحقل في الجدول إلى (نص) بدلاُُ من ( رقم )

مازلت في أنتظار تعليقات الجميع والتدخل في إنهاء الموضوع ولكم الشكر والتقدير

يكون هكذا

AA = DLookup("ID", "tbl1", "[fileno]='" & Me![fileno] & "'")

السلام عليكم

بعد إذن الإخوة الكرام

إن شاء الله يكون هذا المطلوب

ملاحظة : أضفت حقل LinkNo في الجدول tbl2 ليرتبط بالجدول الرئيسي tbl1 للحاجة الماسة إليه

êُ‎يé_ْلى_çلنموًى_çل‎ٌْي__.zip

الأستاذ: فهد الدوسري

جزاك الله خير على تعديل الكود

الأستاذ : احمد الحربي

جزاك الله كل خير. فإن ما قمت به من تعديل وشرح رائع جدا بل ممتاز وموصل للهدف بكل اقتدار

أدعو الله أن يثيب الجميع ويزيدكم بسطه في العلم والمال والولد

قبل قفل الموضوع نهائيا

أنا كلي خجل منكم ومن المشرفين وباقي الأعضاء في كثرة الأسئلة ولكن ثقتي بكرمكم وتعاونكم كبيره جد

كيف يمكن أن يكون هذا الكود

I = Nz(DLookup("[filenosub]", "tbl2", "filenosub=" & Me.txtNo), 0)

عند تغير نوعية الحقل (filenosub ( في الجدول ( TBL2 ) إلى (نص) بدلاُُ من ( رقم )

مع الشكر والتقدير للجميع

عزيزي .. سيكون هكذا

I = Nz(DLookup("[filenosub]", "tbl2", "filenosub='" & Me.txtNo & "'"), 0)

الاستاذ : احمد

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

تم نسخ الكود ولصقه مع تعديل نوع الحقل إلى ( نص )

ولكن مازال يظهر رسالة خطاء TYPE MISMATCH وذلك عند البحث عن كلمة ( بدون )

ورسالة خطاء YOU CANCELED THE PREIVIOUS OPERATION عند البحث عن رقم ( 22 )

الملف مرفق

êُ‎يé_ْلى_çلنموًى_çل‎ٌْي___.zip

تفضل يا عزيزي ماجد

القاعدة بعد التعديل المطلوب

êُ‎يé_ْلى_çلنموًى_çل‎ٌْي_من_çلçî_çليٌèي__.zip

الاخوان : أحمد الحربي / فهد الدوسري

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

مع الشكر والتقدير للجميع

اقتباس

تم الحصول على المطلوب وعليه تم قفل الموضوع

نهاية جميلة استاذ majed99

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

والشكر موصول لك يا أستاذ فهد .. فلقد قدمت الكثير واستفاد منك الكثير

فجعلها الله في ميزان حسناتك