Combine the action of 2 buttons into 1 operation

[JimO]

The first button opens a form,

Private Sub Command188_Click()
    DoCmd.OpenForm "SportsMBLFrm", acNormal
End Sub

The second preforms a filter,

Private Sub InProgress_Click()
    Me.Filter = "[Progress] Is Not Null"
    Me.FilterOn = True
    Me.Caption = "Games in Progress"
    Me.lblSort.Caption = "Games Underway"
End Sub

Looking to combine into a single operation to open the form in the filtered configuration.

Not having any luck.

Jim O

[ssanfu]

The keyword "Me" is shorthand to refer to the form you currently are on. To refer to another form, you must use the fully qualified syntax.

Try

Private Sub Command188_Click()   ' "Command188" is a poor name.... I'm just sayin.........
    DoCmd.OpenForm "frmPatientDoc"  ', acNormal  <<---  acNormal is the default, so it is not needed
    Forms!SportsMBLFrm.Filter = "[Progress] Is Not Null"
    Forms!SportsMBLFrm.FilterOn = True
    Forms!SportsMBLFrm.Caption = "Games in Progress"
    Forms!SportsMBLFrm.lblSort.Caption = "Games Underway"
End Sub

[CJ_London]

assuming both buttons on the same form, why not

Private Sub Command188_Click()
DoCmd.OpenForm "SportsMBLFrm", acNormal,,"[Progress] Is Not Null"
forms!SportsMBLFrm.Caption = "Games in Progress"
forms!SportsMBLFrm.lblSort.Caption = "Games Underway"
End

[JimO]

Thank you for the help. That works as hoped.

Suggestions noted as well.

Thanks
Jim O

[JimO]

The buttons are not on the same form so ssanfu's solution works best but thanks for the input.

Jim O