تغير اسماء الموقعين في التقرير

[طاهر الوليدي]

الاخوة الافاضل بارك الله فيكم وفي اعمالكم 

عندي تقرير  على سبيل المثال سند صرف 

عندما اختار اسم نوع الصرف من قائمة منسدله بين مالي واداري تتغير اسماء الموقعين في التقرير

اذا تم اختيار  من القائمة المنسدله مالي 

يكون الموقعين

المحاسب.       المدير المالي.         المدير العام

وعند اختيار من القائمة المنسدله اداري

المحاسب. المدير الاداري.   المدير المالي.  المدير العام

 

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

السلام عليكم

يمكنك استخدام الكود التالي مع نغيير ما يلزم ( اسم النموذج - مربعات النص ... الخ )

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)

      Dim X As Integer
       X1 = Forms!frm1!combobox1
    If X1 = 1 Then
       Me.Text1.Visible = True
       Me.Text3.Visible = False
    Else
    If X1 = 2 Then
       Me.Text1.Visible = False
       Me.Text3.Visible = True

End Sub

تحياتي

[طاهر الوليدي]

14 ساعات مضت, محمد أبوعبدالله said:

السلام عليكم

يمكنك استخدام الكود التالي مع نغيير ما يلزم ( اسم النموذج - مربعات النص ... الخ )

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)

      Dim X As Integer
       X1 = Forms!frm1!combobox1
    If X1 = 1 Then
       Me.Text1.Visible = True
       Me.Text3.Visible = False
    Else
    If X1 = 2 Then
       Me.Text1.Visible = False
       Me.Text3.Visible = True

End Sub

تحياتي

شكرا استاذي الفاضل  حاولت وفشلت محاولاتي 

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

ولك مني خالص الشكر

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

12 دقائق مضت, طاهر الوليدي said:

اين يتم ادراج الكود

في التقر حسب طلبك

18 ساعات مضت, طاهر الوليدي said:

عندي تقرير  على سبيل المثال سند صرف 

كما بالصورة

13 دقائق مضت, طاهر الوليدي said:

ممكن مثال

ضع مثال ليتم التعديل عليه باذن الله

تحياتي

[طاهر الوليدي]

المثال استاذي الفاضل

نموذج.mdb

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

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

نموذج.rar

تحياتي

[طاهر الوليدي]

شكرا لك استاذي 

وبارك الله فيك