Mohamed Khaled Galal قام بنشر أغسطس 23, 2023 قام بنشر أغسطس 23, 2023 (معدل) السلام عليكم اخواني عندي تقرير يوجد به خانات بها بيانات اسفل كل خانه يوجد خانات مخفيه لاني وضعت كود باخفاء الخانات التي لا يوجد بها بيانات ولكن المشكله انها تركت فراغات كبيره بين كل خانه والثانيه كما هو موضح بالصوره هل يمكن عمل كود لازاله المسافات الفارغه . وهذا هى الكود 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
ابوخليل قام بنشر أغسطس 23, 2023 قام بنشر أغسطس 23, 2023 ارفع مثالك كي تمكن اخوانك من مساعدتك بشكل اسرع 1
ابوخليل قام بنشر أغسطس 24, 2023 قام بنشر أغسطس 24, 2023 هذا ليس مثال بل مشروع كامل اولا .. يوجد مشاكل برمجية عند فتح المشروع حتى بعد ربط الجداول ثانيا مشروع vba مقفل بكلمة مرور المثال بارك الله فيك .. هو ان تنزع التقرير ومصدر بياناته فقط في قاعدة بيانات جديدة وترفقها هنا 1
Mohamed Khaled Galal قام بنشر أغسطس 24, 2023 الكاتب قام بنشر أغسطس 24, 2023 منذ ساعه, ابوخليل said: هذا ليس مثال بل مشروع كامل اولا .. يوجد مشاكل برمجية عند فتح المشروع حتى بعد ربط الجداول ثانيا مشروع vba مقفل بكلمة مرور المثال بارك الله فيك .. هو ان تنزع التقرير ومصدر بياناته فقط في قاعدة بيانات جديدة وترفقها هنا السلام عليكم اخي الكريم لقد قمت بفصل التقرير في قاعده بيانات جديده ارجو الضغط على مفتاح SHIFT عند فتح قاعده البيانات والضغط على التقرير وكتابه رقم 4111 لبظهر التقرير المراد التعديل عليه المثال المرفق https://www.mediafire.com/file/nvt5io4t19xa4kq/QRSystemManagerFinal.rar/file
Mohamed Khaled Galal قام بنشر أغسطس 26, 2023 الكاتب قام بنشر أغسطس 26, 2023 في 24/8/2023 at 15:15, ابوخليل said: كان الله في عونك تفضل QRSystem1.rar 1.53 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads اشكرك اخي الكريم على مجهودك ولكني عند كتابه اي قيمه في المقاسات المخفيه لا تظهر يجب عند وضع اي قيمه في المقاسات يظهر الخانه الموجود بها القيمه فقط والباقي يكون مخفي اذا لم يتم وضع قيمه فيه
Mohamed Khaled Galal قام بنشر أغسطس 27, 2023 الكاتب قام بنشر أغسطس 27, 2023 في 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.