سلام بهمه دوستای عزیز.
جهت اطلاع بهتر میتونید فایل رو دریافت کنید . همه چی واضح هست
Hide
Printable View
سلام بهمه دوستای عزیز.
جهت اطلاع بهتر میتونید فایل رو دریافت کنید . همه چی واضح هست
Hide
کد زیر برای مخفی و آشکار کردن ستون ID سابفرم است . همین کد را در در رویداد AfterUpdate هرکدام از چک باکس های دیگر وارد کن و بجای ID نام ستون مربوطه را جایگزین کن !نقل قول:
نوشته شده توسط m2326499
Dim ctrl As Control
Set ctrl = Me!Table1_s.Form!id
ctrl.ColumnHidden = (Not ctrl.ColumnHidden)
یاعلی
----------------------------نقل قول:
نوشته شده توسط alirezabahrami
بینهایت ممنون استاد گرامی ...
کاملا هم عالی دست شما درد نکنه
حالا دقیقا با همین فعال یا غیرفعال چک باکس ، اگر بخواهیم فیلد 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")
یا علی
-----------------------نقل قول:
نوشته شده توسط alirezabahrami
ممنون و آرزوی موفقیت و سلامتی برای شما