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

[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")

یا علی