طلب مساعد طباعة

[عالم الهندسة]

اطلب من اخواني واساتذتي في الموقع بمالمساعد في كود الطباعة

الطلب عندي نموذج من قائمة منسدلة في حين يكون في القائمة "كشف حساب" اريده ان يطبع التقرير رقم 1 واذا كان في القائمة "كشف حساب تفصيلي" اريده ان يطبع التقرير رقم 2

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

Database10.rar

[Foksh]

أخي الكريم ، تفضل أن كان هذا طلبك ..

استخدم الكود التالي في حدث بعد التحديث للكومبوبوكس كما يلي ..

    Select Case Me.vool.Value
        Case "كشف حساب"
            DoCmd.OpenReport "aa1", acViewPreview
        Case "كشف اجمالي الديون"
            DoCmd.OpenReport "a2", acViewPreview
        Case Else
            MsgBox "يرجى اختيار تقرير لطباعة", vbExclamation
    End Select

طبعاً تستطيع الاضافة والتغيير كما تريد ..

Database10.accdb

[عالم الهندسة]

جزاكم الله اخي ونتمنى ان يرزقكم الله من واسع فضله  

[عالم الهندسة]

ممكن شرح بسيط على الدالة cas

 

[Foksh]

6 ساعات مضت, عالم الهندسة said:

ممكن شرح بسيط على الدالة cas

 

اخي الكريم أنا استخدمت الدالة Select Case لأننا كنا سنتعامل مع متغير واحد له العديد من القيم المحتملة كما في حالتك أعلاه ..

والمتغير الذي قصدته هنا هو الكومبوبوكس

وكان بالإمكان استخدام الدالة الشرطية If ولكني أعتقد - ومن وجهة نظري - أنها تستخدم للحالات المعقدة أو التي تحتوي شروط كثيرة أو في تقييم عدة متغيرات أو شروط مركبة.

تم تعديل مايو 20 بواسطه Foksh
توضيح