هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق

[أمير ادم]

لدي تقرير اكسل به مؤشرات النسب 

هل من الممكن تطبيقه على اكسس

مرفق لكم صوره التقرير اكسل والمراد تطيبقه في اكسس

New Database - .rar

تم تعديل يوليو 18, 2023 بواسطه أمير ادم

[أمير ادم]

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

[Barna]

40 دقائق مضت, أمير ادم said:

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

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

تقريرك في الاكسس ليس فيه مجموع ... اكمل المجموع .... الشيئ الثاني اعطينا النسب المطلوبة ( اقصد متى يكون السهم احمر ومتى يكون اخضر ومتى يكون اصفر ... بارك الله فيك

[أمير ادم]

22 ساعات مضت, أمير ادم said:

لدي تقرير اكسل به مؤشرات النسب 

هل من الممكن تطبيقه على اكسس

مرفق لكم صوره التقرير اكسل والمراد تطيبقه في اكسس

New Database - .rar 227.32 kB · 9 downloads

 

2 ساعات مضت, Barna said:

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

تقريرك في الاكسس ليس فيه مجموع ... اكمل المجموع .... الشيئ الثاني اعطينا النسب المطلوبة ( اقصد متى يكون السهم احمر ومتى يكون اخضر ومتى يكون اصفر ... بارك الله فيك

اخي الكريم بارك الله فيك واشكرك على مرورك الكريم

تم اكمال واضافة الاجماليات (بالنسبة للاسهم فاهي مرتبطة ومعتمده على اجمالي القيم اسفل التقرير احمر يدل على انه اقل رقم اصفر رقم متوسط واخضر هو اعلا رقم )

شكرا لك اخي الكريم

 

New Database - .rar

تم تعديل يوليو 19, 2023 بواسطه أمير ادم

[Barna]

46 دقائق مضت, أمير ادم said:

تم اكمال واضافة الاجماليات (بالنسبة للاسهم فاهي مرتبطة ومعتمده على اجمالي القيم اسفل التقرير احمر يدل على انه اقل رقم اصفر رقم متوسط واخضر هو اعلا رقم )

لاحظ الاجمالي في الحالتين ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

 

[أمير ادم]

الاجمالي المشار اليه اقصى اليمين هي قيمة مبيعات لاكثر من عام اما المناضق فهي تحتوي على عدد عملاء كل منطقه اي كل منطقه بها كم عميل ليس  بينهم اي شي

والاكسل كانت تجربة ليست فعليه حيث انني قمت بالتخطيط على اكسل حتى اصل لفكره اطبقها بالاكس

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

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

ولكن اخي الكريم لا يجمع معي الاستعلام الجدولي بعد ان ارحله لتقرير تظهر معي المربعات فارغه وعند عمل احتساب لمربعات النص التي تحتوي على ارقام لايظهر معي النتيجه صحيه حيث ان مربع النص فارغ ولا يحتوي على صفر ولا رقم وهذا للعلم لانني لست على دراية كامله بوضع اصفار داخل المربعات الفارغه

[Barna]

1 ساعه مضت, أمير ادم said:

ولكن اخي الكريم لا يجمع معي الاستعلام الجدولي بعد ان ارحله لتقرير تظهر معي المربعات فارغه وعند عمل احتساب لمربعات النص التي تحتوي على ارقام لايظهر معي النتيجه صحيه حيث ان مربع النص فارغ ولا يحتوي على صفر ولا رقم وهذا للعلم لانني لست على دراية كامله بوضع اصفار داخل المربعات الفارغه

طيب شوف الصورة هل هي مناسبة لك .....

 

[أمير ادم]

الله يحفظك استاذي الكريم بالفعل هذا ما نريده بالفعل  لكن كيف😀

[Barna]

5 ساعات مضت, أمير ادم said:

الله يحفظك استاذي الكريم بالفعل هذا ما نريده بالفعل  لكن كيف😀

امين واياك ....... طيب تفضل شوف كده

استخدمنا هذه الاكواد ...

Public Function PctMeter(varAmt As Variant, varTotal As Variant)
Dim sngPct As Single
    sngPct = varAmt / varTotal
    If sngPct <= 1 Then
        Me!baselbl.Caption = Int(sngPct * 100)
        Me!lblmeter.Width = CLng(Me!baselbl.Width * sngPct)
    Else
        Me!baselbl.Caption = " القيمة أكبر من  100%"
        Me!lblmeter.Width = CLng(Me!baselbl.Width * 1)
    End If
    Select Case sngPct
        Case Is < 0.15
            Me!lblmeter.BackColor = 255
        Me.red_p.Visible = True
        Me.gre_p.Visible = False
        Me.yel_p.Visible = False

        Case Is < 0.5
            Me!lblmeter.BackColor = 65535
        Me.red_p.Visible = False
        Me.gre_p.Visible = False
        Me.yel_p.Visible = True
        Case Else
            Me!lblmeter.BackColor = 65280
        Me.red_p.Visible = False
        Me.gre_p.Visible = True
        Me.yel_p.Visible = False
    End Select
End Function

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
i = 1
For i = i To 5
    If (Me("Text" & 19 + i) / Me.Text25) * 100 < 20 Then
        Me(i & "_red").Visible = True
        Me(i & "_ger").Visible = False
        Me(i & "_yel").Visible = False
    ElseIf (Me("Text" & 19 + i) / Me.Text25) * 100 > 20 Then
        Me(i & "_red").Visible = False
        Me(i & "_ger").Visible = True
        Me(i & "_yel").Visible = False
    End If
Next i
Call PctMeter(Me.bar, 100)
End Sub

 

 

New Database - .accdb

[أمير ادم]

الله يعطيك الف مليون عافية مشكور جدااااااااااااااااااااااااااااااا على المجهود الكريم من شخص كريم بمنتدى عظيم

جزاك الله الف خير

بالفعل هذا هو المطلوب شكرا

[Moosak]

3 ساعات مضت, Barna said:

استخدمنا هذه الاكواد ...

أستاذنا البرناوي .. عمل جميل ومميز ماشاء الله .. 😊
ياليتك تشرح لنا فكرة الكود؟ .... وهل لوضعية معاينة قبل الطباعة خاصية خاصة لتطبيق الكود؟ 🙂 

[Barna]

 

4 ساعات مضت, أمير ادم said:

الله يعطيك الف مليون عافية مشكور جدااااااااااااااااااااااااااااااا على المجهود الكريم من شخص كريم بمنتدى عظيم

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

3 ساعات مضت, Moosak said:

ياليتك تشرح لنا فكرة الكود؟ .... وهل لوضعية معاينة قبل الطباعة خاصية خاصة لتطبيق الكود؟ 

أخي @Moosak انا ضعيف جدا في الشروحات ولكن ... باختصار الطريقة هي عملنا ثلاث صور للاسهم ( أحمر - اصفر - اخضر )

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

اما بالنسبة للمؤشرات او الرسم البياني المبسط في تعتمد على مربعي تسمية ( احدهما لاعطاء اللون والاخر لنقل القيمة فيها) ..... يعمل الكود على تغيير حجم مربع التسمية الخاص باللون حسب القيمة الموجودة في حقل الاجمالي .... اتمنى اني وفقت في الشرح ... واسف ان لم اصتطع ايصال الفكرة .... ولكن مع تحليل التقرير يمكن ان تفهم الفكرة لأنها بسيطة جدا ..