مساعدة فى رأس التقرير

[sayedaboalnasr]

السلام عليكم
عندى تقرير باسماء الموظيفين تجميع ادارات
ما اريده هو :ـ
بعد أول صفحة وعند رأس الصفحة التالية  دالة وظيفتها انها  تكتب   ( تابع الادارة .................. )    أخر ادارة فى الصفحة السابقة .

ولكم جزيل الشكر ,,,,,,

[jjafferr]

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

 

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

 

جعفر

[sayedaboalnasr]

لو سمحت انا عايز الداله اللى بتعمل الكلام ده

ومش هاقدر ارفق قاعدة البيانات لحساسية البيانات التى بها ....

 

[jjafferr]

مافي دالة ، وانما يجب ان نجرب كود !!

[sayedaboalnasr]

المثال المرفق فيه تقرير فى الصفحة رقم (3) الموظفين اللى فوق تبع ادارة القاهرة 

عايز كود يعمل عنوان فى اول الصفحة اللى اولها موظفين تكمله لللادارة اللى فى الصفحة السابقة يقولى ( تابع ادارة القاهرة ) مثلا 

ملحوظة فيه صفحات بيبقى اولها ادارة ........ دى عادى مش عايز فيها الكود يشتغل ..

مع العلم انى عايز كل الادارات ورا بعض فى الصفحات ومش عايز اعمل ( فاصل صفحات ) ...

ارجو المساعدة لو أمكن ,,,,,,,

test1.rar

[jjafferr]

السلام عليكم

 

.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    
    If Me.Count_Each_ED <> Me.S_Ed Then
        Me.Cont = "continue..." & Me.edara
        Me.Cont.Visible = True
        
        Me.edara.Visible = False
        Me.lbl_Ed.Visible = False
    Else
        Me.Cont.Visible = False
        
        Me.edara.Visible = True
        Me.lbl_Ed.Visible = True
    End If
    
End Sub

.

.

.

جعفر

849.test1.accdb.zip

849.test1.mdb.zip

[sayedaboalnasr]

تسلم ايد يا باشمهندس

[jjafferr]

هلا والله

[Amr Ashraf]

 

18 ساعات مضت, jjafferr said:

هلا والله

ماشاء الله استاذنا الجليل زادك الله من علمه