PDA

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


m2326499
چهارشنبه 17 اردیبهشت 1393, 17:54 عصر
سلام بهمه دوستای عزیز.
جهت اطلاع بهتر میتونید فایل رو دریافت کنید . همه چی واضح هست

Hide (http://cld.persiangig.com/download/XIghyMscFp/Hide.accdb/dl)
alirezabahrami
چهارشنبه 17 اردیبهشت 1393, 20:19 عصر
سلام بهمه دوستای عزیز.
جهت اطلاع بهتر میتونید فایل رو دریافت کنید . همه چی واضح هست

Hide (http://cld.persiangig.com/download/XIghyMscFp/Hide.accdb/dl)

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


Dim ctrl As Control
Set ctrl = Me!Table1_s.Form!id
ctrl.ColumnHidden = (Not ctrl.ColumnHidden)


یاعلی
m2326499
چهارشنبه 17 اردیبهشت 1393, 20:38 عصر
کد زیر برای مخفی و آشکار کردن ستون ID سابفرم است . همین کد را در در رویداد AfterUpdate هرکدام از چک باکس های دیگر وارد کن و بجای ID نام ستون مربوطه را جایگزین کن !


Dim ctrl As Control
Set ctrl = Me!Table1_s.Form!id
ctrl.ColumnHidden = (Not ctrl.ColumnHidden)


یاعلی
----------------------------

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

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

ممنون
alirezabahrami
چهارشنبه 17 اردیبهشت 1393, 21:04 عصر
----------------------------

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

حالا دقیقا با همین فعال یا غیرفعال چک باکس ، اگر بخواهیم فیلد 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
چهارشنبه 17 اردیبهشت 1393, 21:20 عصر
سلام مجدد !
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")




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