اذهب الي المحتوي
أوفيسنا

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

Mohamed Khaled Galal

بواسطه Mohamed Khaled Galal
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

Mohamed Khaled Galal

Mohamed Khaled Galal

قام بنشر
قام بنشر (معدل)

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

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

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

image.png.3b6bf00f9fd9c2835864826f1d68e2cf.pngimage.png.56cc3c532639f7d5b8e9373c268b6416.png

 

 

وهذا هى الكود

  

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

Screenshot2023-08-23180421.png.a19407ea1bb58b370af02a43dad344b3.png

تم تعديل بواسطه Mohamed Khaled Galal
رابط هذا التعليق
شارك
ابوخليل

ابوخليل

قام بنشر
قام بنشر

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك
Mohamed Khaled Galal

Mohamed Khaled Galal

قام بنشر
  • الكاتب
قام بنشر
منذ ساعه, ابوخليل said:

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

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

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

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

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

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

image.png.616da6c9113e7896f50c9a98ab041a96.png

image.png.c1f29544dedf1fddfe7129d4fb19e921.png

 

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

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

رابط هذا التعليق
شارك
Mohamed Khaled Galal

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept