1: 2: 3: 4: 5: 6:
Private Sub OpenFormFilter_Click() DoCmd.OpenForm "frm_ApplicationsMatrix", acNormal Form_frm_ApplicationsMatrix.Filter = "Forms!frm_ChangeManagement!AppID" Form_frm_ApplicationsMatrix.FilterOn = True End Sub