اخفاء مربع نص مع الحقل واظهاره بشرط

[ابو هاله النبلسي]

السلام عليكم ادناه مرفق بمربعات نصوص يرجى اخفاء مربع النص مع الحقل المقابل له في حالة الحقل تساوي قيمة 0 واضهارهما في حالة كان الحقل اكبر او يساوي 1 

وشكرا 

hid.accdb

[محمد أبوعبدالله]

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

تفضل اخي الكريم

يمكنك استخدام الكود التالي لاخفاء مربعات النص التي قيمتها = 0

    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If ctl.Value = 0 Then ctl.Visible = False
        End If
    Next ctl

hid.rar

تحياتي

[ابو هاله النبلسي]

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

تم تعديل نوفمبر 2, 2021 بواسطه ابو عبد الرحمن العراقي

[Eng.Qassim]

5 ساعات مضت, ابو عبد الرحمن العراقي said:

كيف يتم رفع الحقول الى الاعل لكي يتم تنسيقها

اعتقد ان الموضوع معقد لان فيه الكثير من الاحتمالات

[ابو هاله النبلسي]

بارك الله فيك استاذي ورحم الله ذويك