اظهار اعمدة وإخفائها حسب اختيار علامة (صح) وتصديرها مع مثال مرفق

[r3dx]

السالام عليكم ورحمة اللهوبركاته 

 

في المثال المرفق ارغب في اظهار اعمدة واخفائها  حسب خيارات في الفورم بعلامة صح

 

وايضا فتح التقرير حسب الاختيار وتصديرها الى اكسيل و pdf

 

شاكر لكم ومقدر

[عمر ضاحى]

اين المرفق 

ارفق ملف حتى يتمكن الاساتذه الكرام حفظهم الله من مساعدتك

[عبد الله قدور]

السلام عليكم

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

If DLookup("[show]", "subreport", "[idd]=" & Idd) = True Then
    

    Me.subform.Form.columnName.ColumnHidden = False
    
Else
    Me.subform.Form.columnName.ColumnHidden = True
End If

ايضا كود للتحكم بحجم العمود (كل 1 سم يساوي 567 )

Me.subform.Form.columnName.columnWidth = 567

ايضا كود للتحكم بترتيب الاعمدة في النموذج ( 1 هي مكان العمود في النموذج الفرعي ورقة بيانات)

Me.subform.Form.columnName.ColumnOrder = 1

 

تم تعديل أغسطس 17, 2022 بواسطه عبد الله قدور

[r3dx]

الف شكر للرد  استاذي  عمر ضاحى   وأستاذي عبد الله قدور

 

الملف كان مرف كوجود ولا اعلم ليش اختفى 

 

هذا رابط المرفق

 

all-by-yesno.accdb

 

عرفت الخطاء كان من عندي في المرفق لم اتمم الرفع بضغط insert   في الرابط

[Moosak]

تفضل أخي رعد 🙂 

هذا الكود عند فتح التقرير :

If Forms!emp!d1 = False Then Me.sname.Visible = False:   Me.sname.Width = 0
If Forms!emp!d2 = False Then Me.grade.Visible = False:   Me.grade.Width = 0
If Forms!emp!d3 = False Then Me.idcard.Visible = False:   Me.idcard.Width = 0
If Forms!emp!d4 = False Then Me.cart1.Visible = False:   Me.cart1.Width = 0
If Forms!emp!d5 = False Then Me.cart2.Visible = False:   Me.cart2.Width = 0
If Forms!emp!d6 = False Then Me.cart3.Visible = False:   Me.cart3.Width = 0
If Forms!emp!d7 = False Then Me.passport.Visible = False:   Me.passport.Width = 0
If Forms!emp!d8 = False Then Me.blod.Visible = False:   Me.blod.Width = 0

 

all-by-yesno.rar

[r3dx]

حبيبي استاذ موسى الله يسعدك 

 

عندي استفسار لو الكود نقلته الى فورم اخر عشان التنسيق في التصديرممكن رايك بارك الله فيك

 

اقصد وضع زريفتح فورم بنفس المطلوب ومنه تصدير الى تقرير او اكسل  

[Moosak]

9 دقائق مضت, r3dx said:

اقصد وضع زريفتح فورم بنفس المطلوب ومنه تصدير الى تقرير او اكسل

نعم يحتاج تعدل اسم الفورم الجديد في الكود أخي رعد 🙂 

[r3dx]

شكلي مشغل نفسي 

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

 

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

 

احس اني اصعب الموضوع على نفسي والحلول موجوده بكود صغير او منسدله او استعلام 🤗

[r3dx]

هل من حل او طريقة للموضوع ذا يا حلوين

[kanory]

12 دقائق مضت, r3dx said:

هل من حل او طريقة للموضوع ذا يا حلوين

انظر يا حلو  .... جرب الملف واعلمنا .....

 

all-by-yesno.accdb

والطرق كثيره .... انت ماذا تريد بالضبط .... هل المقصد تصدير التقرير ام ماذا ؟؟؟؟؟؟

 

[r3dx]

بارك الله فيك مجهود تشكر عليه 

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

 

[r3dx]

لو يظهر التقرير بالشكل ذا 

852.accdb

[أبوبسمله]

في 17‏/8‏/2022 at 22:45, kanory said:

انظر يا حلو 

وما فى احلى من هيك اخى واستاذى الغالى جزاك الله خيرا 💐

[kanory]

5 ساعات مضت, احمد الفلاحجي said:

وما فى احلى من هيك اخى واستاذى الغالى جزاك الله خيرا 💐

اشر اطراءك اخي واستاذي الفاضل احمد ...

بارك الله فيك

[r3dx]

في 17‏/8‏/2022 at 23:45, kanory said:

انظر يا حلو .... جرب الملف واعلمنا .....

بارك الله فيك وزادك من علمه فعلا ابداع ولكن مثل ما اشرت لك هل يوجد طريقة لضبطها في التصدسر بشكل احلى 

[kanory]

18 دقائق مضت, r3dx said:

بارك الله فيك وزادك من علمه فعلا ابداع ولكن مثل ما اشرت لك هل يوجد طريقة لضبطها في التصدسر بشكل احلى 

نعم ممكن ولكن باستخدام تصميم التقرير برمجيا ... 

[kanory]

[r3dx]

هذا هو الابداع اللي انتظره

 

ممكن الملف عشان اعدل عليه الله يسعدك

[kanory]

11 ساعات مضت, r3dx said:

ممكن الملف عشان اعدل عليه الله يسعدك

تفضل <><><><><><><><><>

 

all-by-yesno.accdb

[r3dx]

تعجز الكلمات عن شكرك

🤲

ولكن الأفضل الدعاء لك مع الشكر

 

بارك الله فيك ونفعك بعلمك وزادة بسطة في العلم والرزق 

 

تقبل اسمى معاني الشكر والعرفان