عمل تقرير بشكل مخصص

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

لدي ملف بيانات الموظفين

اريد عمل تقرير مخصص كما في الصورة علما بان التقرير مبني على استعلام

وتكون كافة الحقول مساوي من حيث التصميم  لعدد حقول التقييم

لان احيانا يكون عدد التقييمات واحد او اثنان وهكذا لغاية خمسة كحد اقصى

تحياتي للجميع

 

تم تعديل فبراير 11, 2022 بواسطه Ahmed_J

[jjafferr]

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

 

انت تريد العمل على 4 اعمدة ، بينما عندي مثال لحقل واحد ، هنا

 

 

جعفر

[jjafferr]

ولكن ، يمكن عمل تقرير هكذا :

.

والطريقة مثل هذا الرابط :

 

 

. و

 

 

جعفر

[Ahmed_J]

السلام عليكم

استاذي العزيز @jjafferr الله يبارك فيك

انا عملت الملف زي الطريفة  الاولى لكن لم يضبط معي

تحياتي لك

Database1.accdb

تم تعديل فبراير 11, 2022 بواسطه Ahmed_J

[Ahmed_J]

up

[jjafferr]

السلام عليكم 🙂

 

هذا الاستعلام ، ينادي الدالة Add_Ev ونرسل لها قيم التقييم بالتسلسل (بسبب ان اسماء حقولك باللغة العربية ، للأسف نرى ان اسماء الحقول متلخبطة ، بينما ارسلت الحقول بالتسلسل)

.

وهذه هي الدالة تقوم بعمل القيم تحت بعضها البعض:

Function Add_Ev(E1, E2, E3, E4, E5) As String

    Dim LineBreaker As String
    LineBreaker = Chr(13)
'1
    If Len(E1 & "") <> 0 Then
        Add_Ev = E1
    End If
    
'2
    If Len(E2 & "") <> 0 Then
        Add_Ev = Add_Ev & Chr(13) & E2
    End If
    
'3
    If Len(E3 & "") <> 0 Then
        Add_Ev = Add_Ev & Chr(13) & E3
    End If
    
'4
    If Len(E4 & "") <> 0 Then
        Add_Ev = Add_Ev & Chr(13) & E4
    End If
    
'5
    If Len(E5 & "") <> 0 Then
        Add_Ev = Add_Ev & Chr(13) & E5
    End If
    
End Function

.

التقرير 2 يظهر بهذه الطريقة ، وبدون اي اكواد في التقرير ، وهذا ما اقترحته عليك سابقا

.

اما التقرير التالي ، فالخطوط بين القييمات تأتي من الكود

.

وهذا هو الكود :

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

    Dim i As Integer
    Dim x() As String
    Dim L As Single, T As Single, W As Single, H As Single
    
    L = Me.Ev.Left
    T = Me.Ev.Top
    W = Me.Ev.Width
    H = Me.Ev.Height
    
    x = Split(Me.Ev, Chr(13))
    
    For i = 1 To UBound(x)
    
        T = T + H
        Me.Line (L, T)-(W, T), vbBlack
        
    Next i
    
End Sub

 

جعفر

1468.Lines in Report.accdb.zip

[ابو جودي]

بسم الله ماشاء الله 

الله اكبر 

 

 

 

[Ahmed_J]

الى الاستاذ @jjafferr 

إلى منارة العلم والمعرفة، اشكرك شكراً جزيلاً بعدد ألوان الزهور وقطرات الندى على مجهوداتك الكبيرة التي لا تتوقف لأجل تحقيق التميز والتقدم.

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

الله يوفقك وينير لك طريقك يارب العالمين.

هل الوحدة النمطية mod_Draw_Box_Lines احذفها لان ليس لها دور ام لا ؟؟؟

 

تم تعديل فبراير 13, 2022 بواسطه Ahmed_J

[jjafferr]

شكرا على جميل كلماتك 🙂

نعم الدالة mod_Draw_Box_Lines  ليس لها دور الآن.


جعفر

[Ahmed_J]

العفو استاذ @jjafferr  انت بتستاهل اكثر من هيك والله

اخر طلب منك الله يبارك فيك

كيف اقدر اتحكم بارتقاع حقل التقييم (EV)  بالتقرير  rpt_Ev  (انقاص از زبادة الارتفاع)

لان عندما غيرت الارتفاع  الى 1 سم من التنسيق الحقول تلخبط حقل التقييم كما في الصورة

تحياتي

تم تعديل فبراير 13, 2022 بواسطه Ahmed_J

[jjafferr]

في ١٣‏/٢‏/٢٠٢٢ at 17:26, Ahmed_J said:

لان عندما غيرت الارتفاع  الى 1 سم من التنسيق الحقول تلخبط حقل التقييم

 

عملت تغيير على الكود ليصبح:

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

    Dim i As Integer, UB As Integer
    Dim x() As String
    Dim L As Single, T As Single, W As Single, H As Single
       
    x = Split(Me.Ev, Chr(13))
    UB = UBound(x)
    If UB = 0 Then Exit Sub
    
    L = Me.Ev.Left
    T = Me.Ev.Top
    W = Me.Ev.Width
    H = (Me.Ev.FontSize + 4) * 20	'convert Font size Points to Twips, but the number 4 can be adjusted
    
    For i = 1 To UB
    
        T = T + H
        Me.Line (L, T)-(W, T), vbRed   'vbBlack
        
    Next i
    
End Sub

.

والسطر المهم فيه هو ،

نأخذ الارتفاع على حسب حجم الخط * 20 (لتحويل حجم الخط الى twips) ، فلا يجب تغيير هذه المتغيرات ،

بينما يمكنك تغيير الرقم 4 حسب الحاجة (مع ان تجاربي يتضح منها انه لا يتغير كذلك) :

    H = (Me.Ev.FontSize + 4) * 20	'convert Font size Points to Twips, but the number 4 can be adjusted

.

والنتيجة :

.

او

.

وحتى اذا جعلنا الخط يساوي 18 نقطة

.

النتيجة

.

ونعم ، لتغيير اللون الى اللون الاسود ، بدل vbRed استعمل vbBlack 🙂

 

جعفر

 

1468.1.Lines in Report.accdb.zip

[Ahmed_J]

شكرا لك استاذ @jjafferr

بارك الله فيك

في مثل عندنا يقول (صاحب الحاجة اعمى)

1- هل يمكن توسيط  الكتابة داخل حقول الاسم والعمر والمهنة ام لا

2- في الكود رقم (4+) ورقم (20*)  هل ممكن توضح فائدتهم  لي اكثر 

 H = (Me.Ev.FontSize + 4) * 20

استاذي العزيز  هل افتح عنوان لموضوع جديد  او نكمل هنا 

تحياتي للجميع

1468.1.Lines in Report.accdb

تم تعديل فبراير 15, 2022 بواسطه Ahmed_J

[jjafferr]

منذ ساعه, Ahmed_J said:

1- هل يمكن توسيط  الكتابة داخل حقول الاسم والعمر والمهنة ام لا

2- في الكود رقم (4+) ورقم (20*)  هل ممكن توضح فائدتهم  لي اكثر 

 

1. قصدك توسيط عمودي. لا اعرف كيف يمكن ان يتم هذا ،

2. قمت بعمل توضيح اكثر في المشاركة السابقة:

في ١٤‏/٢‏/٢٠٢٢ at 00:03, jjafferr said:

نأخذ الارتفاع على حسب حجم الخط * 20 (لتحويل حجم الخط الى twips) ، فلا يجب تغيير هذه المتغيرات ،

بينما يمكنك تغيير الرقم 4 حسب الحاجة (مع ان تجاربي يتضح منها انه لا يتغير كذلك) :

    H = (Me.Ev.FontSize + 4) * 20	'convert Font size Points to Twips, but the number 4 can be adjusted

.

جعفر

[Ahmed_J]

شكرا لك أستاذ @jjafferr

تعبتك معي كتير

قصدي توسيط مثل الصورة

بارك الله فيك

[أبوبسمله]

السلام عليكم

معلمى العزيز @jjafferr جزاك الله خيرا على ما تقدمه لنا مساعدات ومعلومات 💐

استطعت جعلها كما يريد استاذ @Ahmed_J ولكن عالتقرير rpt_Ev2 ولم استطع تظبيطها مع التقرير الذى به الخطوط فلعلك تقدر ع ضبطها

 

1468.1.Lines in Report1.accdb

[أبوبسمله]

السلام عليكم

اتفضل استاذ احمد @Ahmed_J تم التعديل فقد كنت مستعجل عند المشاركه الاولى للنزول للعمل واستخدمت الموديول فحدث آخر لذلك لم يعمل

وجزاه الله خيرا معلمنا العزيز جعفر 💐🌹

تم تعديل التقرير الثالث rpt_Ev3

بالتوفيق

1468.1.Lines in Report2.accdb

[Ahmed_J]

بارك الله فيك استاذ @أبوبسمله

شكرا لكم اساتذتي الاعزاء

وفقكم الله