اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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


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

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

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

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

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

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

 

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

تم تعديل بواسطه حامد عبد الكريم
رابط هذا التعليق
شارك

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

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

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

جربت 

ColumnWidth=250 أو -1  

ولم تنفع 

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

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

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

نعم 

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

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

تم تعديل بواسطه حامد عبد الكريم
رابط هذا التعليق
شارك

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

نعم 

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

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

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

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

 

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

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

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

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


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

 

 

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

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