سرچ در ساب فرم

[sama84]

با سلام
فرمی دارم که در آن از ساب فرم استفاده کردم مثلا اطلاعات چمنکاری یک پروژه ، حالا در این فرم می خوام سرچ بذارم یه چیزی مثل قسمت پایین فرم در خود اکسس.

[Abbas Amiri]

از تابع زیر استفاده کنید


Public Sub FindInFormRecords(frm As Form, strSearch As String, FieldName As String)

Dim rs As DAO.Recordset
Dim strFind As String
Set rs = frm.RecordsetClone
strFind = FieldName & " Like '*" & strSearch & "*'"
rs.FindNext strFind
If rs.NoMatch Then
Else
frm.Bookmark = rs.Bookmark
If frm(FieldName).Visible Then frm(FieldName).SetFocus
Set rs = Nothing
Exit Sub
End If
rs.FindFirst strFind
Set rs = Nothing

End Sub



مثال


Private Sub cmdSearch_Click()
Me![MySubform].SetFocus
FindInFormRecords Me![MySubform].Form, TextBox1, "MyField"
End Sub


می توانید یک تکست باکس داشته باشید(TextBox1) که درآن مقدار مورد جستجورا بنویسید ویک باتن که 2 خط کد فوق را جهت صدا زدن تابع درآن بنویسید . MyField نام فیلد موردجستجو است
ضمنا باتن وتکست باکس در فرم اصلی باید باشند