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