الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اخفي حقول معينة في نموذج

مغلقمُجاب
بدأه iisys في 23 فبراير 2013 · 5 رد · 703 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هناك مجموعة حقول في نموذج واحد / مصدر تلك الحقول جدول AA  / من ضمن تلك الحقول ليس لها  مصدر في الجدول AA

 

السؤال : كيف اخفي الحقول في النموذج التي ليس لها مصدر في الجدول AA

 

مرفق المثال

db1.rar

#2

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

 

post-15367-0-12613900-1361621347_thumb.g

 

 

في حدث الحالي  للنموذج  ضع هذا الكود

 

 

Private Sub Form_Current()
Me![a3].Visible = IsNull(Me![a3])
Me![a6].Visible = IsNull(Me![a6])
Me![a7].Visible = IsNull(Me![a7])
Me![a10].Visible = IsNull(Me![a10])
End Sub

 

 

اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )

za-db1-UP.rar

 

 

بالتوفيق

−1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3

بارك الله فيكي اختي الكريمة .

 

 

هل من الممكن - ان يتم اخفاء الحقول التي في النموذج الغير موجوده في الجدول آليا بدل من تحديد الحقول  واحد واحد .

 

 

بمعني اي حقل ليس له مصدر في الجدول يتم اخفاءه آليا . بدون تحديد .

#4 أفضل إجابة

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

 

سوف نستخدم هذا الكود الجديد بدون اي تحديد لأي حقل 

 

Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me.Controls
     If ctl.ControlType = acTextBox Then
       ctl.Visible = IsNull(ctl)
    End If
Next
End Sub

za-db1-END.rar

1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#5

أختي زهراء جزاك الله خيرا .. ودائما نستفيد منك ونتعلم ..

 

لاحظت ان الكود السابق يقوم بحذف أي حقل يحتوى علي بيانات حتى وإن كان موجود في الجدول AA .. ما فهمته انه يريد الحقول الغير موجوده في الجدول الاساسي يتم حذفها .. أضفت للكود الخاص بك بعض الاسطر .. ربما تؤدي المطلوب ..

db1.zip

#6
zahrah كتب:

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

 

سوف نستخدم هذا الكود الجديد بدون اي تحديد لأي حقل 

 

 

Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me.Controls
     If ctl.ControlType = acTextBox Then
       ctl.Visible = IsNull(ctl)
    End If
Next
End Sub

بارك الله فيك اختي الكريمه / هذا هو المطلوب

هذا الموضوع مغلق.

مواضيع مشابهة