Hide و Un Hide کردن فیلدهای سابفرم با استفاده از چک باکس

[m2326499]

سلام بهمه دوستای عزیز.
جهت اطلاع بهتر میتونید فایل رو دریافت کنید . همه چی واضح هست

Hide

[alirezabahrami]

سلام بهمه دوستای عزیز.
جهت اطلاع بهتر میتونید فایل رو دریافت کنید . همه چی واضح هست

Hide

کد زیر برای مخفی و آشکار کردن ستون ID سابفرم است . همین کد را در در رویداد AfterUpdate هرکدام از چک باکس های دیگر وارد کن و بجای ID نام ستون مربوطه را جایگزین کن !

 Dim ctrl As Control 

 Set ctrl = Me!Table1_s.Form!id

 ctrl.ColumnHidden = (Not ctrl.ColumnHidden)

یاعلی

[m2326499]

کد زیر برای مخفی و آشکار کردن ستون ID سابفرم است . همین کد را در در رویداد AfterUpdate هرکدام از چک باکس های دیگر وارد کن و بجای ID نام ستون مربوطه را جایگزین کن !

 Dim ctrl As Control 

 Set ctrl = Me!Table1_s.Form!id

 ctrl.ColumnHidden = (Not ctrl.ColumnHidden)

یاعلی

----------------------------

بینهایت ممنون استاد گرامی ...
کاملا هم عالی دست شما درد نکنه

حالا دقیقا با همین فعال یا غیرفعال چک باکس ، اگر بخواهیم فیلد ID را سورت کنیم (صعودی به نزولی و برعکس) چه کدی را استفاده کنم؟؟

ممنون

[alirezabahrami]

----------------------------

بینهایت ممنون استاد گرامی ...
کاملا هم عالی دست شما درد نکنه

حالا دقیقا با همین فعال یا غیرفعال چک باکس ، اگر بخواهیم فیلد ID را سورت کنیم (صعودی به نزولی و برعکس) چه کدی را استفاده کنم؟؟

ممنون

سلام مجدد !
1- ابتدا فانکشن زیر را در قسمت ماژول عمومی فرم وارد کن !

Function SortForm(frm As Form, ByVal sOrderBy As String) As Boolean

If Len(sOrderBy) > 0 Then

If frm.OrderByOn And (frm.OrderBy = sOrderBy) Then

sOrderBy = sOrderBy & " DESC"

End If

frm.OrderBy = sOrderBy

frm.OrderByOn = True

SortForm = True

End If

End Function

2-در آخر کدهای مخفی و آشکار کردن ستون ها( غیر از ستون id ) کد زیر را وارد کن !

Call SortForm(Me!Table1_s.Form, "id")

یا علی

[m2326499]

سلام مجدد !
1- ابتدا فانکشن زیر را در قسمت ماژول عمومی فرم وارد کن !

Function SortForm(frm As Form, ByVal sOrderBy As String) As Boolean

If Len(sOrderBy) > 0 Then

If frm.OrderByOn And (frm.OrderBy = sOrderBy) Then

sOrderBy = sOrderBy & " DESC"

End If

frm.OrderBy = sOrderBy

frm.OrderByOn = True

SortForm = True

End If

End Function

2-در آخر کدهای مخفی و آشکار کردن ستون ها( غیر از ستون id ) کد زیر را وارد کن !

Call SortForm(Me!Table1_s.Form, "id")

یا علی

-----------------------
ممنون و آرزوی موفقیت و سلامتی برای شما