اخفاء واظهار الحقول

[naguib_3778]

فى الملف المرفق

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

وعند الضغط على زر (خدمة جديده) تظهر الحول وتفتح سجل جديد

وعند الضغط على زر حفظ - تحفظ البيانات وتختفي الحقول

 

Database41.accdb

[دروب مبرمج]

تفضل التعديل

اخفاء العناصر

Dim ctl As Control
For Each ctl In Me.Controls
    If TypeName(ctl) = "TextBox" Then
        Form(ctl.Name).Visible = False
    End If
Next ctl

عدم تمكين الكتابة داخل مربع النص لجميع العناصر

Dim ctl As Control
For Each ctl In Me.Controls
    If TypeName(ctl) = "TextBox" Then
        Form(ctl.Name).Enabled = False
    End If
Next ctl

 

Database41.accdb

[AbuuAhmed]

ويمكن اختصار الإجراءين كالتالي:
 

Dim ctl As Control
    
For Each ctl In Me.Controls
    ctl.Visible = ctl.ControlType <> acTextBox
Next ctl
    
Set ctl = Nothing



    

Dim ctl As Control
    
For Each ctl In Me.Controls
    ctl.Enabled = ctl.ControlType <> acTextBox
Next ctl
    
Set ctl = Nothing

 

[naguib_3778]

كنت نسيت اوضح نقطة بس
فى بعض الحقول مطلوب اخفاءها فقط وليس الكل

بمعني أن النموذج مكون من 7 حقول

كنت عايز اخفى 3حقول فقط بالضغط على زر

ويتم اظهرهم ايضاً بزر اخر 

بسبب وجود حقول اخري بالفعل مخفيه لا اريد ازهارها

 

تم تعديل يونيو 18, 2023 بواسطه naguib_3778

[AbuuAhmed]

جرب الآن

Database41_02.accdb