اخفاء السحلات التي تحتوي على قيمة الصفر

[كريمو2]

السلام عليكم اساتدتنا الكريم

هل يوجد كود اخفاء سجلات بالتقرير عندما يكون المبلغ (مصادر التمويل) يساوي 0 وتعويضه بالسجل الذي ياليه مباشرة

كما في الصورة 02

20231220.mdb

تم تعديل ديسمبر 20, 2023 بواسطه كريمو2

[Foksh]

لعدم توافر جهاز كمبيوتر في الوقت الحالي..

اقتراح بسيط ، وهو اجعل الشرط لهذا الهقل في مصدر التقرير أن يكون أكبر من صفر .

[كريمو2]

منذ ساعه, Foksh said:

لعدم توافر جهاز كمبيوتر في الوقت الحالي..

اقتراح بسيط ، وهو اجعل الشرط لهذا الهقل في مصدر التقرير أن يكون أكبر من صفر .

حاولت ولكن لم يفي بالحل يمكن المشكلة في التصميم 

[كريمو2]

ارجو المساعدة 

[عمر ضاحى]

بما ان مصدر البيانات هي اكواد vba

وليس استعلام 

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

If tt5 = 0 Then
tt5.Visible = False
تسمية400.Visible = False
تسمية397.Visible = False
تسمية399.Visible = False
تسمية398.Visible = False
'Or
tt5.Height = 0
تسمية400.Height = 0
تسمية397.Height = 0
تسمية399.Height = 0
تسمية398.Height = 0
End If

طبعا هتعملها سطر سطر ^_^

فالله  يعينك

[كريمو2]

4 ساعات مضت, عمر ضاحى said:

بما ان مصدر البيانات هي اكواد vba

وليس استعلام 

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

If tt5 = 0 Then
tt5.Visible = False
تسمية400.Visible = False
تسمية397.Visible = False
تسمية399.Visible = False
تسمية398.Visible = False
'Or
tt5.Height = 0
تسمية400.Height = 0
تسمية397.Height = 0
تسمية399.Height = 0
تسمية398.Height = 0
End If

طبعا هتعملها سطر سطر ^_^

فالله  يعينك

شكرا استاذ عمر  صاحي على الرد

جربت الكود ولكم كيف يحذف الفراغ الذي اختفى محتواه

 

تم تعديل ديسمبر 23, 2023 بواسطه كريمو2

[عمر ضاحى]

6 دقائق مضت, كريمو2 said:

شكرا استاذ عمر  صاحي على الرد

جربت الكود ولكم كيف يحذف الفراغ الذي اختفى محتواه

 

امممممممممممممم
مش متأكد صراحتا لكن هتحتاج فكره مشابه لفكرة لبرنامج للاستاذ @Moosak

لكن معرفش صراحتا فكره (او لا تحضرني اى فكره حاليا)

[كريمو2]

7 دقائق مضت, عمر ضاحى said:

امممممممممممممم
مش متأكد صراحتا لكن هتحتاج فكره مشابه لفكرة لبرنامج للاستاذ @Moosak

لكن معرفش صراحتا فكره (او لا تحضرني اى فكره حاليا)

في انتظار استحضار فكرتك استاذ عمر 

في راي نستغني عن مصدر البيانات اكواد vba

ونعمل استعلام  تجميع  يكون اسهل

ولكن كيف تتم تجميع المعلومات بالاستعلام  من عدة جداول  ؟

[kanory]

6 دقائق مضت, كريمو2 said:

ولكن كيف تتم تجميع المعلومات بالاستعلام  من عدة جداول  ؟

كم عدد الجداول المستقاة منها البيانات الخاصة بالحسابات ؟

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

[كريمو2]

7 دقائق مضت, kanory said:

كم عدد الجداول المستقاة منها البيانات الخاصة بالحسابات ؟

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

اهلا استاذ kanory 

شكرا على الاهتمام والرد

الجداول عدة 

ولكن التقارير الفرعية كيف هل تقصد كل تقرير خاص لوخده ام ماذا

[kanory]

1 ساعه مضت, كريمو2 said:

ولكن التقارير الفرعية كيف هل تقصد كل تقرير خاص لوخده ام ماذا

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

 

[كريمو2]

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

الطلب هو اخذ المبالغ المالية  من الجداول المعنية فقط 

اليس عمل استعلام توحيد او تجميع يكون ياختصار عن هذه التقارير استاذ kanory

[kanory]

في 24‏/12‏/2023 at 20:31, كريمو2 said:

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

الطلب هو اخذ المبالغ المالية  من الجداول المعنية فقط 

اليس عمل استعلام توحيد او تجميع يكون ياختصار عن هذه التقارير

جرب واعلمنا بالنتائج .... على العموم هل هذه الصورة المطلوبة للتقرير ؟؟؟؟

 

[كريمو2]

منذ ساعه, kanory said:

جرب واعلمنا بالنتائج .... على العموم هل هذه الصورة المطلوبة للتقرير ؟؟؟؟

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

تم تعديل ديسمبر 25, 2023 بواسطه كريمو2

[kanory]

8 ساعات مضت, كريمو2 said:

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

سقط سهوا ....

 

20231220.mdb

[كريمو2]

5 ساعات مضت, kanory said:

سقط سهوا ....

 

شكرا استاذ على تعبك

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

نعم هو المطلوب وبأفكار ذكية ربي يبارك فيك

 

 

تم تعديل ديسمبر 26, 2023 بواسطه كريمو2

[كريمو2]

استاذ kanory ممكن تصحيح

    rs.AddNew
    rs!a = " اتعاب المحاسب "
    rs!b = Nz(DSum("[bill_Value]", "[bill]", Cretiria10 & "And ([Trans_ID]='1')"), 0) - Nz(DSum("[Facon_Value]", "[Faconce]", "Year ([Facon_Date])=" & Me.txtYear), 0) - Nz(DSum("[Omra_Value]", "[Omra]", "([année])=" & Me.txtYear), 0)
    rs!c = "03- المصاريف (النفقات)"
    rs!d = Nz(DCount("*", "[bill]", Cretiria10 & "And ([Trans_ID]='2')"), 0)
    rs.Update

عملت اشارة - بينهم ولكن لم تعطيني المطلوب في b

المطلوب b= 30000.00 في اتعاب المحاسب

[kanory]

4 ساعات مضت, كريمو2 said:

المطلوب b= 30000.00 في اتعاب المحاسب

هل المطلوب 30000 ام تريدها 30000-

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

[كريمو2]

4 دقائق مضت, kanory said:

هل المطلوب 30000 ام تريدها 30000-

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

استاذ خلاص لقيتها الفكرة هذه والان شوفلي كيفاش اذا كان مبلغ b اكبر 0 تكتب في الملاحظات "بسبب الوفاة"

    rs.AddNew
    rs!a = "منحة الأعفاء من دين القرض "
    rs!b = Nz(DSum("[Loan_Remise]", "[tbl_Loans]", "Year ([Payment_Month])=" & Me.txtYear), 0)
    'rs!Obsérvation = IIf(([b]) > 0, "[Obsérvation]" = "بسبب الوفاة", "")
    'rs!Obsérvation = IIf([b] > "0", "Obsérvation", "بسبب الوفاة", " ")
    If b < 0 Then
    Obsérvation = "بسبب الوفاة"
    End If

 

[kanory]

1 دقيقه مضت, كريمو2 said:

استاذ خلاص لقيتها

اكتب الفكرة هنا ليستفيد منها غيرك ممن يمر على هذا الموضوع 

[كريمو2]

8 دقائق مضت, kanory said:

اكتب الفكرة هنا ليستفيد منها غيرك ممن يمر على هذا الموضوع 

استاذ عفوا نقصد لغيتها اي تنازلت عليها وليس لقيتها ههههه لاحول ولاقوة الا بالله انا اسف استاذي العزيز وحاولي في الطلب الي بعدها

[kanory]

19 دقائق مضت, كريمو2 said:

استاذ عفوا نقصد لغيتها اي تنازلت عليها وليس لقيتها ههههه

هههههه ..... طيب بالنسبة للطلب ... انظر الصور وطبق لديك ....

 

[كريمو2]

جربت الكود ولكن ظهرت مشكلة

[kanory]

33 دقائق مضت, كريمو2 said:

جربت الكود ولكن ظهرت مشكلة

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

 

20231220.mdb

لاحظ اتعاب المحاسب .... ههههههه

[كريمو2]

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

لاحظ اتعاب المحاسب .... ههههههه

تستاهل اكثر من هذا المبلغ ههههههه  استاذي الكريم بارك الله فيك