View Full Version : حفظ فیلتر قبلی اعداد و اضافه نمودن فیلتر جدید در نتایج آن بدون استفاده از کوئیری
majid44
سه شنبه 31 مرداد 1402, 16:13 عصر
با سلام ودرود بر اساتید محترم ، لطفا در فایل پیوست می خواهم حفظ فیلتر قبلی اعداد و اضافه نمودن فیلتر جدید در نتایج آن بدون استفاده از کوئیری را انجام دهم سپاسگزارم
majid44
چهارشنبه 01 شهریور 1402, 00:52 صبح
سلام ، یک راهنمایی ارزشمند شما عزیزان می تواند کار ساز باشد در فایل پیوست کارها انجام شده فقط منتظر راهنمایی شما هستم
simorgh2000
چهارشنبه 01 شهریور 1402, 02:20 صبح
سلام
برای جستجو از یک دکمه استفاده کنید
اینم کدش
Private Sub Command_9_Click()
If Me.Textc <> "" And Me.Textd <> "" And Nz(Me.Texta, "") = "" And Nz(Me.Textb, "") = "" Then
StrFilt = StrFilt & "eb BETWEEN " & Me.Textc.Value & " AND " & Me.Textd.Value
ElseIf Me.Texta <> "" And Me.Textb <> "" And Nz(Me.Textc, "") = "" And Nz(Me.Textd, "") = "" Then
StrFilt = StrFilt & "lat BETWEEN " & Me.Texta.Value & " AND " & Me.Textb.Value
ElseIf Me.Textc <> "" And Me.Textd <> "" And Me.Texta <> "" And Me.Textb <> "" Then
StrFilt = StrFilt & "eb BETWEEN " & Me.Textc.Value & " AND " & Me.Textd.Value
StrFilt = StrFilt & " AND lat BETWEEN " & Me.Texta.Value & " AND " & Me.Textb.Value
Else
MsgBox "ÇØáÇÚÇÊ ÑÇ ˜Çãá æÇÑÏ ˜äíÏ"
Me.Texta.SetFocus
Exit Sub
End If
StrFilt = StrFilt
Me.Form.Filter = StrFilt
Me.Form.FilterOn = True
End Sub
majid44
چهارشنبه 01 شهریور 1402, 10:38 صبح
سلام استاد گرامی لطف کردی صمیمانه سپاسگزارم
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.