
نوشته شده توسط
m2326499
سلام بهمه دوستای عزیز.
جهت اطلاع بهتر میتونید فایل رو دریافت کنید . همه چی واضح هست
Hide
کد زیر برای مخفی و آشکار کردن ستون ID سابفرم است . همین کد را در در رویداد AfterUpdate هرکدام از چک باکس های دیگر وارد کن و بجای ID نام ستون مربوطه را جایگزین کن !
Dim ctrl As Control
Set ctrl = Me!Table1_s.Form!id
ctrl.ColumnHidden = (Not ctrl.ColumnHidden)
یاعلی