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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 23, 2023 مشاركة قام بنشر أغسطس 23, 2023 ارفع مثالك كي تمكن اخوانك من مساعدتك بشكل اسرع 1 رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر أغسطس 24, 2023 الكاتب مشاركة قام بنشر أغسطس 24, 2023 تم رفع المثال رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر أغسطس 24, 2023 الكاتب مشاركة قام بنشر أغسطس 24, 2023 تم رفع المثال رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 هذا ليس مثال بل مشروع كامل اولا .. يوجد مشاكل برمجية عند فتح المشروع حتى بعد ربط الجداول ثانيا مشروع vba مقفل بكلمة مرور المثال بارك الله فيك .. هو ان تنزع التقرير ومصدر بياناته فقط في قاعدة بيانات جديدة وترفقها هنا 1 رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر أغسطس 24, 2023 الكاتب مشاركة قام بنشر أغسطس 24, 2023 منذ ساعه, ابوخليل said: هذا ليس مثال بل مشروع كامل اولا .. يوجد مشاكل برمجية عند فتح المشروع حتى بعد ربط الجداول ثانيا مشروع vba مقفل بكلمة مرور المثال بارك الله فيك .. هو ان تنزع التقرير ومصدر بياناته فقط في قاعدة بيانات جديدة وترفقها هنا السلام عليكم اخي الكريم لقد قمت بفصل التقرير في قاعده بيانات جديده ارجو الضغط على مفتاح SHIFT عند فتح قاعده البيانات والضغط على التقرير وكتابه رقم 4111 لبظهر التقرير المراد التعديل عليه المثال المرفق https://www.mediafire.com/file/nvt5io4t19xa4kq/QRSystemManagerFinal.rar/file رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 كان الله في عونك تفضل QRSystem1.rar 1 رابط هذا التعليق شارك More sharing options...
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 اشكرك اخي الكريم على مجهودك ولكني عند كتابه اي قيمه في المقاسات المخفيه لا تظهر يجب عند وضع اي قيمه في المقاسات يظهر الخانه الموجود بها القيمه فقط والباقي يكون مخفي اذا لم يتم وضع قيمه فيه رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان