حفظ فیلتر قبلی اعداد و اضافه نمودن فیلتر جدید در نتایج آن بدون استفاده از کوئیری

[majid44]

با سلام ودرود بر اساتید محترم ، لطفا در فایل پیوست می خواهم حفظ فیلتر قبلی اعداد و اضافه نمودن فیلتر جدید در نتایج آن بدون استفاده از کوئیری را انجام دهم سپاسگزارم

[majid44]

سلام ، یک راهنمایی ارزشمند شما عزیزان می تواند کار ساز باشد در فایل پیوست کارها انجام شده فقط منتظر راهنمایی شما هستم

[simorgh2000]

سلام

برای جستجو از یک دکمه استفاده کنید

اینم کدش

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]

سلام استاد گرامی لطف کردی صمیمانه سپاسگزارم