مساعده في اخفاء المساحات الفارغه في التقرير

[Mohamed Khaled Galal]

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

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

هل يمكن عمل كود لازاله المسافات الفارغه .

 

 

وهذا هى الكود

 

If IsNull([XXS]) Then
Me.XXS.Visible = False
Me.Label122.Visible = False
Else
Me.XXS.Visible = True
Me.Label122.Visible = True
End If

If IsNull([XS]) Then
Me.XS.Visible = False
Me.Label121.Visible = False
Else
Me.XS.Visible = True
Me.Label121.Visible = True
End If

If IsNull([S]) Then
Me.S.Visible = False
Me.Label120.Visible = False
Else
Me.S.Visible = True
Me.Label120.Visible = True
End If

If IsNull([M]) Then
Me.M.Visible = False
Me.Label119.Visible = False
Else
Me.M.Visible = True
Me.Label119.Visible = True
End If

If IsNull([L]) Then
Me.L.Visible = False
Me.Label118.Visible = False
Else
Me.L.Visible = True
Me.Label118.Visible = True
End If

If IsNull([XL]) Then
Me.XL.Visible = False
Me.Label117.Visible = False
Else
Me.XL.Visible = True
Me.Label117.Visible = True
End If

If IsNull([XXL]) Then
Me.XXL.Visible = False
Me.Label116.Visible = False
Else
Me.XXL.Visible = True
Me.Label116.Visible = True
End If

If IsNull([XXXL]) Then
Me.XXXL.Visible = False
Me.Label115.Visible = False
Else
Me.XXXL.Visible = True
Me.Label115.Visible = True
End If

If IsNull([XXXXL]) Then
Me.XXXXL.Visible = False
Me.Label114.Visible = False
Else
Me.XXXXL.Visible = True
Me.Label114.Visible = True
End If

If IsNull([XXXXXL]) Then
Me.XXXXXL.Visible = False
Me.Label113.Visible = False
Else
Me.XXXXXL.Visible = True
Me.Label113.Visible = True
End If

If IsNull([XXXXXXL]) Then
Me.XXXXXXL.Visible = False
Me.Label112.Visible = False
Else
Me.XXXXXXL.Visible = True
Me.Label112.Visible = True
End If

If IsNull([Total]) Then
Me.Total.Visible = False
Me.Label143.Visible = False
Else
Me.Total.Visible = True
Me.Label143.Visible = True
End If

  وهذا اسم التقرير ومرفق معه المثال:

https://www.mediafire.com/file/q820bqvh960eorn/QR.rar/file

تم تعديل أغسطس 23, 2023 بواسطه Mohamed Khaled Galal

[ابوخليل]

ارفع مثالك كي تمكن اخوانك من مساعدتك بشكل اسرع

[Mohamed Khaled Galal]

تم رفع المثال

[Mohamed Khaled Galal]

تم رفع المثال

[ابوخليل]

هذا ليس مثال بل مشروع كامل

اولا .. يوجد مشاكل برمجية عند فتح المشروع حتى بعد ربط الجداول

ثانيا مشروع vba مقفل بكلمة مرور

المثال بارك الله فيك .. هو ان تنزع التقرير ومصدر بياناته فقط  في قاعدة بيانات جديدة وترفقها هنا

[Mohamed Khaled Galal]

منذ ساعه, ابوخليل said:

هذا ليس مثال بل مشروع كامل

اولا .. يوجد مشاكل برمجية عند فتح المشروع حتى بعد ربط الجداول

ثانيا مشروع vba مقفل بكلمة مرور

المثال بارك الله فيك .. هو ان تنزع التقرير ومصدر بياناته فقط  في قاعدة بيانات جديدة وترفقها هنا

السلام عليكم اخي الكريم

لقد قمت بفصل التقرير في قاعده بيانات جديده ارجو الضغط على مفتاح SHIFT عند فتح قاعده البيانات والضغط على التقرير وكتابه رقم 4111 لبظهر التقرير المراد التعديل عليه 

 

المثال المرفق

https://www.mediafire.com/file/nvt5io4t19xa4kq/QRSystemManagerFinal.rar/file

[ابوخليل]

كان الله في عونك

تفضل

QRSystem1.rar

[Mohamed Khaled Galal]

في 24‏/8‏/2023 at 15:15, ابوخليل said:

كان الله في عونك

تفضل

QRSystem1.rar 1.53 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads

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

[Mohamed Khaled Galal]

في 26‏/8‏/2023 at 07:51, Mohamed Khaled Galal said:

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

اخي الكريم لقد قمت بعمل ماهو مطلوب من خلال الكود التالي واشكرك جدا عل مجهودك الاكثر من رائع

If IsNull([S]) Then
Me.S.Height = 0
Me.S.Top = 0
Me.Label120.Height = 0
Me.Label120.Top = 0
Me.Detail.Height = 0
Else
Me.S.Height = 217
Me.S.Top = 510
Me.Label120.Height = 217
Me.Label120.Top = 291
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([M]) Then
Me.M.Height = 0
Me.M.Top = 0
Me.Label119.Height = 0
Me.Label119.Top = 0
Me.Detail.Height = 0
Else
Me.M.Height = 218
Me.M.Top = 510
Me.Label119.Height = 218
Me.Label119.Top = 291
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([L]) Then
Me.L.Height = 0
Me.L.Top = 0
Me.Label118.Height = 0
Me.Label118.Top = 0
Me.Detail.Height = 0
Else
Me.L.Height = 217
Me.L.Top = 510
Me.Label118.Height = 217
Me.Label118.Top = 291
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XS]) Then
Me.XS.Height = 0
Me.XS.Top = 0
Me.Label121.Height = 0
Me.Label121.Top = 0
Me.Detail.Height = 0
Else
Me.XS.Height = 217
Me.XS.Top = 510
Me.Label121.Height = 217
Me.Label121.Top = 291
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XXS]) Then
Me.XXS.Height = 0
Me.XXS.Top = 0
Me.Label122.Height = 0
Me.Label122.Top = 0
Me.Detail.Height = 0
Else
Me.XXS.Height = 217
Me.XXS.Top = 510
Me.Label122.Height = 217
Me.Label122.Top = 291
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XL]) Then
Me.XL.Height = 0
Me.XL.Top = 0
Me.Label117.Height = 0
Me.Label117.Top = 0
Me.Detail.Height = 0
Else
Me.XL.Height = 217
Me.XL.Top = 510
Me.Label117.Height = 217
Me.Label117.Top = 291
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XXL]) Then
Me.XXL.Height = 0
Me.XXL.Top = 0
Me.Label116.Height = 0
Me.Label116.Top = 0
Me.Detail.Height = 0
Else
Me.XXL.Height = 217
Me.XXL.Top = 979
Me.Label116.Height = 217
Me.Label116.Top = 760
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XXXL]) Then
Me.XXXL.Height = 0
Me.XXXL.Top = 0
Me.Label115.Height = 0
Me.Label115.Top = 0
Me.Detail.Height = 0
Else
Me.XXXL.Height = 217
Me.XXXL.Top = 979
Me.Label115.Height = 217
Me.Label115.Top = 760
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XXXXL]) Then
Me.XXXXL.Height = 0
Me.XXXXL.Top = 0
Me.Label114.Height = 0
Me.Label114.Top = 0
Me.Detail.Height = 0
Else
Me.XXXXL.Height = 217
Me.XXXXL.Top = 979
Me.Label114.Height = 217
Me.Label114.Top = 760
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XXXXXL]) Then
Me.XXXXXL.Height = 0
Me.XXXXXL.Top = 0
Me.Label113.Height = 0
Me.Label113.Top = 0
Me.Detail.Height = 0
Else
Me.XXXXXL.Height = 217
Me.XXXXXL.Top = 979
Me.Label113.Height = 217
Me.Label113.Top = 760
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([XXXXXXL]) Then
Me.XXXXXXL.Height = 0
Me.XXXXXXL.Top = 0
Me.Label112.Height = 0
Me.Label112.Top = 0
Me.Detail.Height = 0
Else
Me.XXXXXXL.Height = 217
Me.XXXXXXL.Top = 979
Me.Label112.Height = 217
Me.Label112.Top = 760
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If

If IsNull([Total]) Then
Me.Total.Height = 0
Me.Total.Top = 0
Me.Label143.Height = 0
Me.Label143.Top = 0
Me.Detail.Height = 0
Else
Me.Total.Height = 217
Me.Total.Top = 979
Me.Label143.Height = 217
Me.Label143.Top = 760
Me.Items.Top = 0
Me.Items.Height = 218
Me.Cons_Pc.Top = 0
Me.Cons_Pc.Height = 218
Me.Other.Top = 0
Me.Other.Height = 218
Me.Detail.Height = 1
End If