Query button on form to open results on subform

[SierraJuliet]

I have multiple query buttons on one form. I have a datasheet subform that is a datasheet form itself (dragged and dropped onto main form). I did not bound/bind the subform to anything. I would like to update that datasheet subform based on clicking a button that is bound to a query. It almost wants to function but does not show any results. The purpose of this is for administrative things and not users entering data, as they will not see this function in their view.



The following is screenshot of wanting to append records (note grey with asterisk) when clicking query button but shows nothing and creates a separate datasheet tab outside of form:



The following code is the button:

Private Sub btnQueryCase_Click()

On Error GoTo btnQueryCase_Click_Err

DoCmd.OpenQuery "qlkpCase", acViewNormal, acEdit

Me.subfrmQueryAll.Form.RecordSource = "qlkpCase"

Me.subfrmQueryAll.Form.Requery

btnQueryCase_Click_Exit:

Exit Sub

btnQueryCase_Click_Err:

MsgBox Err.Description, vbOKOnly, ""

Resume btnQueryCase_Click_Exit

End Sub

[Minty]

You are opening the query, that's why it is appearing in a separate window. You don't need to.

Also It's not the RecordSource you need to change in the sub form - it's the SourceObject.

Try setting the source object to "query.qlkpCase"

[SierraJuliet]

That did the trick. It is one of those things were you try one thousand variables but it is the one someone else recommends, and makes sense, that functions as intended. The following is the adjusted code (red) for anyone interested.

Private Sub btnQueryCase_Click()

On Error GoTo btnQueryCase_Click_Err

Me.subfrmQueryAll.SourceObject = "query.qlkpCase"

btnQueryCase_Click_Exit:

Exit Sub

btnQueryCase_Click_Err:

MsgBox Err.Description, vbOKOnly, ""

Resume btnQueryCase_Click_Exit

End Sub