ABCD Search Box - Access Developer Network


	Back to Access Developer Network Comments List

Upload Images Link Email

ABCD Search Box

JoAnn Brookover

8 months ago

I am working in the ABCD Database and using the search that Richard set up for it. It works great except when I have a subform that has a subform and it wont search fields on that second subform. I'm looking for someone familiar with the ABCD Search that can fix this for me.

	Adam Schwanz 8 months ago
If you want to send me the database along with what you are trying to do, I'll look at it and give you a price. My email is [email protected]

	Shaun Olivera 8 months ago
Is the VBA set to search the subForms as well as the main form?

Shaun Olivera

8 months ago

I haven't tested this yet.

Details

Public Sub SearchAllForms()



    Dim mainForm As Form

    Dim subForm As Form

    Dim subSubForm As Form

    

    Dim searchTerm As String

    searchTerm = "SearchValue" ' Change this to your search term

    

    ' Adjust "MainFormName" to the name of your main form

    Set mainForm = Forms("MainFormName")

    

    ' Search in Main Form

    ' Assuming "FieldName" is the name of the field you want to search in

    mainForm.Recordset.FindFirst "[FieldName] = '" & searchTerm & "'"

    If mainForm.Recordset.NoMatch Then

        MsgBox "No record found in Main Form"

    Else

        MsgBox "Record found in Main Form"

    End If

    

    ' Adjust "SubFormControlName" to the name of the subform CONTROL on the main form

    Set subForm = mainForm.Controls("SubFormControlName").Form

    

    ' Search in Sub Form

    subForm.Recordset.FindFirst "[FieldName] = '" & searchTerm & "'"

    If subForm.Recordset.NoMatch Then

        MsgBox "No record found in Sub Form"

    Else

        MsgBox "Record found in Sub Form"

    End If

    

    ' Adjust "SubSubFormControlName" to the name of the sub-subform CONTROL on the subform

    Set subSubForm = subForm.Controls("SubSubFormControlName").Form

    

    ' Search in Sub-Sub Form

    subSubForm.Recordset.FindFirst "[FieldName] = '" & searchTerm & "'"

    If subSubForm.Recordset.NoMatch Then

        MsgBox "No record found in Sub-Sub Form"

    Else

        MsgBox "Record found in Sub-Sub Form"

    End If



End Sub

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Developer Network.