حامد عبد الكريم قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 يعطيكم العافية سؤالي بسيط وهو كيف يمكن أن أخفي العمود في النموذج في وضع ورقة البيانات إذا كان كل العمود أصفار (مجموعه صفر) جربت أن أضع هذا الأمر في حدث النموذج عند التحديث أو الحالي ولم أنجح Private Sub Form_GotFocus() If sum([رياضيات]) = 0 Then [رياضيات].ColumnWidth = 0 End If End Sub فما هي المشكلة وكيف الحل وجزاكم الله خيرا اخفاء العمود صفر.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 Private Sub Form_Current() If DSum("[رياضيات]", "اسماء") = 0 Then [رياضيات].ColumnWidth = 0 End If End Sub تحياتي 1 رابط هذا التعليق شارك More sharing options...
حامد عبد الكريم قام بنشر مارس 27, 2017 الكاتب مشاركة قام بنشر مارس 27, 2017 (معدل) جزاكم الله خيرا وأحسن الله إليكم هذا ما أريده بالضبط لكن هل هناك طريقة لتكرير الشرط لكل الأعمدة أم علي تكرار كتابته لكل عمود باسمه تم تعديل مارس 27, 2017 بواسطه حامد عبد الكريم رابط هذا التعليق شارك More sharing options...
حامد عبد الكريم قام بنشر مارس 27, 2017 الكاتب مشاركة قام بنشر مارس 27, 2017 لا مشكلة في تكريرها لكن كيف أظهر العمود بعد اخفائه جربت ColumnWidth=250 أو -1 ولم تنفع فما هي الالة العكسية رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 2 دقائق مضت, حامد عبد الكريم said: لا مشكلة في تكريرها لكن كيف أظهر العمود بعد اخفائه جربت ColumnWidth=250 أو -1 ولم تنفع فما هي الالة العكسية سؤال : هل تريد بعد اخفاءه اذا كان اكبر من صفر بيرجع مثل القبل ؟ او تريد في اي حالة بيرجع مثل القبل رابط هذا التعليق شارك More sharing options...
حامد عبد الكريم قام بنشر مارس 27, 2017 الكاتب مشاركة قام بنشر مارس 27, 2017 (معدل) نعم إذا تغيرت القيمة وصارت في الجدول أكبر من الصفر يرجع للظهور أنا أفكر أن أضعه في حدث عند الفتح لترجع كل الحقول إلى طبيعتها (حتى ولو كان بدون شرط أن يكون أكبر من الصفر) وبعدها يعمل الأمر الآخر للإخفاء تم تعديل مارس 27, 2017 بواسطه حامد عبد الكريم رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 23 دقائق مضت, حامد عبد الكريم said: نعم إذا تغيرت القيمة وصارت في الجدول أكبر من الصفر يرجع للظهور أنا أفكر أن أضعه في حدث عند الفتح لترجع كل الحقول إلى طبيعتها (حتى ولو كان بدون شرط أن يكون أكبر من الصفر) وبعدها يعمل الأمر الآخر للإخفاء الكود غيير كالاتي Private Sub Form_Current() If DSum("[رياضيات]", "اسماء") = 0 Then [رياضيات].ColumnHidden = True Else [رياضيات].ColumnHidden = False End If End Sub 2 رابط هذا التعليق شارك More sharing options...
حامد عبد الكريم قام بنشر مارس 27, 2017 الكاتب مشاركة قام بنشر مارس 27, 2017 تم بنجاح شكراً لكم كثيراً 2 دقائق مضت, Shivan Rekany said: الكود غيير كالاتي Private Sub Form_Current() If DSum("[رياضيات]", "اسماء") = 0 Then [رياضيات].ColumnHidden = True Else [رياضيات].ColumnHidden = False End If End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.