فیلتر ساب فرم توسط تکست باکس [بایگانی]

ESHAGHDEHGHANI

پنج شنبه 17 اسفند 1402, 16:37 عصر

سلام
من یک فرم شامل ساب فرم دارم که میخوام توسط تکست باکس فیلتر بشه راهنمایی میکنید
تشکر

reza_1199

پنج شنبه 17 اسفند 1402, 20:16 عصر

سلام . بروی فرمتون یه تکست باکس بزار ( به فرض text1) و یه کامند باتن ( به فرض cmd1) و فرض می کنیم نام سابفرمتون ( sub1) باشه و نام یکی از فیلداتون REMARK حالا در خاصیت chick مربوط به کامند باتن اینو بنویس

If Nz(Me.Text1) <> "" Then
If Len(StrFilt) > 0 Then
StrFilt = StrFilt & " And "
End If
StrFilt = StrFilt & "[REMARK] like'" & "*" & Me.TexT1 & "*'"
End If

Me.sub1.Form.filter = StrFilt
Me.sub1.Form.FilterOn = True
یه راه حل هم استفاده از کویری هست
امیدوارم کمکت کنه .