Button to close a form+report preview

[Jimjr]

I have one continuous form with a search feature. When a hyperlink field is clicked, a second form with a sublist opens. There is a button "cmdReset" to close the second form, that has been working correctly.


I added a button to preview a report and want the cmdReset button to close both the form and the report. For some reason it has to be clicked twice to work. I've tried different things including changing the order of the 2 objects closing.
TIA for any help.

Private Sub cmdReset_Click()
    'GROUP FORM
    'Purpose: Clear all the search boxes in the Form Header, and show all records again.
    Dim ctl As Control


    'Clear all the controls in the Form Header section.
    For Each ctl In Forms![AKAListForm].Section(acHeader).Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox
            ctl.Value = Null
        Case acCheckBox
            ctl.Value = False
        End Select
    Next


    'Remove the form's filter.
    Forms![AKAListForm].FilterOn = False
      
    DoCmd.Close acReport, "AKAGroupRpt"
    DoCmd.Close acForm, "AKAGroupForm"
    
End Sub

[Welshgasman]

Walk your code with F8 amd see what happens.
Move the close report to before the ctrl loop, experiment like that.

Code looks OK to me?

[Jimjr]

I did the debug and found that the first click of cmdReset doesn't go into cmdReset_Click() at all! I guessed that moving the focus to the report preview takes the power or something away from the buttons on the form.


So I added OpenForm AKAGroupForm to the openReport macro, and that fixes it EXCEPT if you click the report preview, say to print it, it goes back to doing nothing except bringing the top command ribbon down.

[Welshgasman]

No,
You need to set focus first to the form, then the button.
So the first click is just setting focus back to the form. If you click it again then the event will run.

Standard windows processing.

[Jimjr]

Ok, thanks

[Micron]

I tested with an open report and form. When I click on the report, then mouse over the form close button, the button mouseover highlight takes effect, indicating the button should work - which it does. The form closes.

There may be something about one or more of your form properties that are preventing it from working this way. I don't suppose your cf form is a subform and your buttons are on the subform? Consider posting a db copy (copy/compact, repair/zip and post here).

[Jimjr]

No, it's not a subform. When I mouseover the button after clicking the report, it does show the highlight but does not work.

[Jimjr]

You said the form closes. Do you mean both the form and report close?

[Micron]

No, but I will try that in case it makes a difference.

[Micron]

Private Sub cmdClose_Click()
DoCmd.Close
DoCmd.Close acReport, "EmployeeInfo"
End Sub

I open form and report, click on report (a row gets highlighted so I know that report is active), click on form button, both close.