اخفاء العمود إذا كان مجموعه صفر

[حامد عبد الكريم]

يعطيكم العافية 

سؤالي بسيط وهو كيف يمكن أن أخفي العمود في النموذج في وضع ورقة البيانات إذا كان كل العمود أصفار (مجموعه صفر) 

 جربت أن أضع هذا الأمر في حدث النموذج عند التحديث أو الحالي ولم أنجح 
 

Private Sub Form_GotFocus()
If sum([رياضيات]) = 0 Then
[رياضيات].ColumnWidth = 0
 End If
End Sub

فما هي المشكلة وكيف الحل 

وجزاكم الله خيرا

اخفاء العمود صفر.rar

[Shivan Rekany]

Private Sub Form_Current()
If DSum("[رياضيات]", "اسماء") = 0 Then
[رياضيات].ColumnWidth = 0
 End If
End Sub

تحياتي

[حامد عبد الكريم]

جزاكم الله خيرا وأحسن الله إليكم 

هذا ما أريده بالضبط

 

لكن هل هناك طريقة لتكرير الشرط لكل الأعمدة أم علي تكرار كتابته لكل عمود باسمه

تم تعديل مارس 27, 2017 بواسطه حامد عبد الكريم

[حامد عبد الكريم]

لا مشكلة في تكريرها 

لكن كيف أظهر العمود بعد اخفائه 

جربت 

ColumnWidth=250 أو -1  

ولم تنفع 

فما هي الالة العكسية

[Shivan Rekany]

2 دقائق مضت, حامد عبد الكريم said:

لا مشكلة في تكريرها 

لكن كيف أظهر العمود بعد اخفائه 

جربت 

ColumnWidth=250 أو -1  

ولم تنفع 

فما هي الالة العكسية

سؤال : هل تريد بعد اخفاءه اذا كان اكبر من صفر بيرجع مثل القبل ؟
او تريد في اي حالة بيرجع مثل القبل

[حامد عبد الكريم]

نعم 

إذا تغيرت القيمة وصارت في الجدول أكبر من الصفر يرجع للظهور 

أنا أفكر أن أضعه في حدث عند الفتح لترجع كل الحقول إلى طبيعتها (حتى ولو كان بدون شرط أن يكون أكبر من الصفر) وبعدها يعمل الأمر الآخر للإخفاء

تم تعديل مارس 27, 2017 بواسطه حامد عبد الكريم

[Shivan Rekany]

23 دقائق مضت, حامد عبد الكريم said:

نعم 

إذا تغيرت القيمة وصارت في الجدول أكبر من الصفر يرجع للظهور 

أنا أفكر أن أضعه في حدث عند الفتح لترجع كل الحقول إلى طبيعتها (حتى ولو كان بدون شرط أن يكون أكبر من الصفر) وبعدها يعمل الأمر الآخر للإخفاء

الكود غيير كالاتي

Private Sub Form_Current()
If DSum("[رياضيات]", "اسماء") = 0 Then
[رياضيات].ColumnHidden = True
Else
[رياضيات].ColumnHidden = False
End If
End Sub

 

[حامد عبد الكريم]

تم بنجاح شكراً لكم كثيراً

2 دقائق مضت, Shivan Rekany said:

الكود غيير كالاتي

Private Sub Form_Current()
If DSum("[رياضيات]", "اسماء") = 0 Then
[رياضيات].ColumnHidden = True
Else
[رياضيات].ColumnHidden = False
End If
End Sub