اکسس/vba/چگونه میتوان در هنگام ورود همه کنترل های داخل یک فرم را پنهان کرد؟

[narpco]

اکسس/vba/چگونه میتوان در هنگام ورود همه کنترل های داخل یک فرم را پنهان کرد؟
یعنی visible در حالت false باشد بعد با کنترل هر شرط دلخواه .....کنترل دلخواه نمایش داده شود البته بیشت مشکل من همون بخش اول هست ...
کد های زیادی رو تو سطح وب تست کردم عملا عمل نمی کنن..یا در فرم هایی با کارکرد عادی کارمی کنن
ولی روی فرم هایی که در هنگام ورود اطلاعاتی را واکشی می کنن کار نمی کنن
مثلا فرمی داریم که در هنگام ورود تاریخ روز را باید بخواند و در یک تکست باکس نمایش دهد
وقتی این کد را می گذاریم چون در حال واکشی اطلاعات هست کارنخواهد کرد.بسیار ممنون میشم اگر کسی میتونه به من کمک کنه ....کد برای اکسس 2013 مورد نیاز است .با سپاس
نمونه کد
For Each ctl in Me.Controls
ctl.Visible = False
Next ctl

[saeed1234n]

سلام

ابتدا برای کنترل هایی که می خواهید خاصیت مورد نظر رو داشته باشند از تگ استفاده کنید

یعنی تگ اونها رو برابر مقداری قرار می دید بعد مطابق شرط هاتون اونها رو مورد ارزیابی قرار می دید

از یه همچون کدی استفاده کنید:





For Each ctrl In Screen.ActiveForm
If ctrl.Tag = "1" Then
ctrl.Visible = True


Else
ctrl.Visible = False
End If
Next ctrl