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

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

قام بنشر

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

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

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

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

 

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

  • Like 1
قام بنشر

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

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

 

  • Like 1
قام بنشر (معدل)

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

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

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

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

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

 

تم تعديل بواسطه naguib_3778

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information