كيف اعمل مجموعه من الحقول في قروب واحد ؟

[عبد اللطيف سلوم]

السلام  عليكم 

هل استطيع عمل قروب مؤلف من مجموعه من الحقول في نموذج الاكسس بحيث اذا كتبت كود يطبق على الجميع مرة واحدة ؟؟

يعني مثلا بدل ما اكتب 

me.txt1.visible=true

me.txt2.visible=true

me.txt3.visible=tru

 

هل استطيع اعطاء امر واحد لما سبق كأن يكون قروب x  مثلا ؟؟

اتمنى فكرتي وصلت 

[Shivan Rekany]

هناك حلول لهذا الامر
الاول اذا تريد ان تعمل نفس الحركة على جميع مربعات نصية ستستخدم طريقة

واذا تريد ان تعمل نفس الحركة لبعض من المربعات النصية شيء اخر 

اي منها تريد ؟ ارفع نسخة مصغرة من قاعدة بسيطة لكي نعمل لك المطلوب 
والسلام عليكم ورحمة الله وبركاته

[عبد اللطيف سلوم]

40 دقائق مضت, Shivan Rekany said:

هناك حلول لهذا الامر
الاول اذا تريد ان تعمل نفس الحركة على جميع مربعات نصية ستستخدم طريقة

واذا تريد ان تعمل نفس الحركة لبعض من المربعات النصية شيء اخر 

اي منها تريد ؟ ارفع نسخة مصغرة من قاعدة بسيطة لكي نعمل لك المطلوب 
والسلام عليكم ورحمة الله وبركاته

مرفق مثال

عندي حقول مخفية

اريد اظهارها جميعا بنفس الامر 

اخفاء حقول.accdb

[Shivan Rekany]

18 دقائق مضت, عبد اللطيف سلوم said:

عندي حقول مخفية

اريد اظهارها جميعا بنفس الامر 

اتفضل اليك هذا

Private Sub نص2_AfterUpdate()
If IsDate(Me.نص0) = True And IsDate(Me.نص2) = True Then
   Dim Ctl As Access.Control
    For Each Ctl In Me.Form.Controls
        If Ctl.ControlType = acTextBox Or Ctl.ControlType = acLabel Then
            Ctl.Visible = True
        End If
    Next Ctl
End If
End Sub

 

اخفاء حقول.accdb

[عبد اللطيف سلوم]

5 دقائق مضت, Shivan Rekany said:

اتفضل اليك هذا

Private Sub نص2_AfterUpdate()
If IsDate(Me.نص0) = True And IsDate(Me.نص2) = True Then
   Dim Ctl As Access.Control
    For Each Ctl In Me.Form.Controls
        If Ctl.ControlType = acTextBox Or Ctl.ControlType = acLabel Then
            Ctl.Visible = True
        End If
    Next Ctl
End If
End Sub

 

اخفاء حقول.accdb

تسلم يدك اخي الكريم