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