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

[طاهر اوفيسنا]

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

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

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

20231220.mdbFetching info...

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

[Foksh]

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

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

[طاهر اوفيسنا]

  في 20‏/12‏/2023 at 20:43, Foksh said:

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

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

Expand  

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

[طاهر اوفيسنا]

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

[عمر ضاحى]

بما ان مصدر البيانات هي اكواد 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‏/12‏/2023 at 06:49, عمر ضاحى 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

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

فالله  يعينك

Expand  

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

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

 

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

[عمر ضاحى]

  في 23‏/12‏/2023 at 11:14, كريمو2 said:

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

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

 

Expand  

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

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

[طاهر اوفيسنا]

  في 23‏/12‏/2023 at 11:23, عمر ضاحى said:

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

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

Expand  

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

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

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

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

[kanory]

  في 23‏/12‏/2023 at 11:34, كريمو2 said:

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

Expand  

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

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

[طاهر اوفيسنا]

  في 23‏/12‏/2023 at 11:42, kanory said:

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

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

Expand  

اهلا استاذ kanory 

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

الجداول عدة 

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

[kanory]

  في 23‏/12‏/2023 at 11:51, كريمو2 said:

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

Expand  

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

 

[طاهر اوفيسنا]

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

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

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

[kanory]

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

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

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

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

Expand  

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

 

[طاهر اوفيسنا]

  في 25‏/12‏/2023 at 18:23, kanory said:

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

Expand  

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

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

[kanory]

  في 25‏/12‏/2023 at 18:43, كريمو2 said:

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

Expand  

سقط سهوا ....

 

20231220.mdbFetching info...

[طاهر اوفيسنا]

  في 26‏/12‏/2023 at 02:45, kanory said:

سقط سهوا ....

 

Expand  

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

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

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

 

 

تم تعديل ديسمبر 26, 2023 بواسطه كريمو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]

  في 26‏/12‏/2023 at 09:04, كريمو2 said:

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

Expand  

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

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

[طاهر اوفيسنا]

  في 26‏/12‏/2023 at 13:16, kanory said:

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

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

Expand  

استاذ خلاص لقيتها الفكرة هذه والان شوفلي كيفاش اذا كان مبلغ 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]

  في 26‏/12‏/2023 at 13:23, كريمو2 said:

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

Expand  

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

[طاهر اوفيسنا]

  في 26‏/12‏/2023 at 13:25, kanory said:

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

Expand  

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

[kanory]

  في 26‏/12‏/2023 at 13:34, كريمو2 said:

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

Expand  

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

 

[طاهر اوفيسنا]

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

[kanory]

  في 26‏/12‏/2023 at 14:49, كريمو2 said:

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

Expand  

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

 

20231220.mdbFetching info...

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

[طاهر اوفيسنا]

  في 26‏/12‏/2023 at 15:23, kanory said:

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

Expand  

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