Searching a Subform

[desireemm1]

hi all I have an access database with a main form which is the people_tbl and a subform which is called the TanfActivity_tbl and the childrens_tbl. The users and myself are unable to do a search in the subforms, is there some way I can make it so that the users can search fields in the subforms as well as the main form. For instance the TanfActivity_tbl has dates that they need to search a persons Activity by. Is there some kind of code I can use to do that??

[June7]

Yes, it can be coded. Or can use the intrinsic Access tools for search and filter. Click in any field and select Sort or Filter from the ribbon or right click to get sort/filer options or if in Datasheet view click on the field heading to get dropdown.

Coding filter or goto a record on subform is a little trickier than for a main form. But basic concept is same. Use an unbound data control to enter search criteria and set filter property of form. Only for a subform have to go through the subform container, like:
Me.subformcontainername.Form.FilterOn = False
Me.subformcontainername.Form.Filter = "fieldname=" & Me.controlname
Me.subformcontainername.Form.FilterOn = True

[desireemm1]

Yes, it can be coded. Or can use the intrinsic Access tools for search and filter. Click in any field and select Sort or Filter from the ribbon or right click to get sort/filer options or if in Datasheet view click on the field heading to get dropdown.

Coding filter or goto a record on subform is a little trickier than for a main form. But basic concept is same. Use an unboud data control to enter search criteria and set filter property of form. Only for a subform have to go through the subform container, like:
Me.subformcontainername.Form.FilterOn = False
Me.subformcontainername.Form.Filter = "fieldname=" & Me.controlname
Me.subformcontainername.Form.FilterOn = True

What I have on the subform is a command button called search
The code that is in the form propety is

Private Sub SearchCmd_Click()
On Error GoTo Err_SearchCmd_Click

    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind
Exit_SearchCmd_Click:
    Exit Sub
Err_SearchCmd_Click:
    MsgBox Err.Description
    Resume Exit_SearchCmd_Click
    
End Sub

Would I integrate the code you have with that code. (sorry I dont know Visual basic)

[June7]

Correction on my earlier post. I was assuming the unbound search criteria control would be on the main form.

I have never used the code you show but it looks okay. What happens when you execute it?

If you have only the one criteria for the search, could use the AfterUpdate event of the unbound combobox instead of button Click.

[desireemm1]

Correction on my earlier post. I was assuming the unbound search criteria control would be on the main form.

I have never used the code you show but it looks okay. What happens when you execute it?

If you have only the one criteria for the search, could use the AfterUpdate event of the unbound combobox instead of button Click.

I used a command button on the design tab when I put it on the main form a wizard comes up and gives me options, I picked the one where find a record. the only problem is you can find one on the main form not the subform. So do I put the command button on the main form and put this code in the property event tab of the button

Me.subformcontainername.Form.FilterOn = False
Me.subformcontainername.Form.Filter = "EventDate=" & Me.controlname
Me.subformcontainername.Form.FilterOn = True

[June7]

It is technique I use. Try it and let us know how it goes.

The code doesn't go in the property. Select [Event Procedure] in the event property then click the ellipses (...) to go to the procedure in the VBA editor. Put code there. I don't use macros, only VBA.