Report not Opening (5 Viewers)

[mloucel]

Hello gurus:

I have been working on a program for my office for the last year, many of you have helped me to accomplish many of the tasks, and I am grateful.

The application contains a few reports that are working perfectly fine, except for this one:
"ReportForAuthorizationsR"

Background:
I use some really cool techniques by @isladogs [Colin] that he has kindly provided in his website: [https://www.isladogs.co.uk]
This allows me to hide application window for access leaving a really clean environment.
Everything works fine, except for 1 report, that happens to be the most important report of all, since is the one that the administration will use the most.

The Problem as far as i figured out is with this module:
HideAppWindow Me
which is loaded in the MAIN program at the splash screen, but in this special TEST program I created I load this module in the form: ReportsMenuAllF
There is another module as well: HideRibbon which simply works fine and gives me no issues whatsoever.

If I disable the HideAppWindow Me from loading the report works fine, but as soon as I enable that module, all goes to the trash and access closes or stays hanging in the background and i have to use TASK MANAGER to close.

The Report is created first by selecting a range of dates, then opening this form: ReportFormForAuthorizationsF
This form allows the end user to sort and filter any of the presented data on screen, once the EU is happy, there is a Print button with the following code:

Private Sub PrintBtn_Click()
' Hides the Form NOT CLOSE so that the report can be created
' using the data sort and filter from the form
    Me.Visible = False

    DoCmd.OpenReport "ReportForAuthorizationsR", acViewPreview, windowmode:=acDialog
    'DoCmd.OpenReport "ReportForAuthorizationsR", acViewReport, windowmode:=acDialog
    
    Me.Visible = True
End Sub

Once the report is opening the following code must be run from the Report itself, to pass the filters and sorts to the report:

Private Sub Report_Open(Cancel As Integer)
    
    Me.Filter = Forms!ReportFormForAuthorizationsF.Filter
    Me.FilterOn = Forms!ReportFormForAuthorizationsF.FilterOn

    Me.OrderBy = Forms!ReportFormForAuthorizationsF.OrderBy
    Me.OrderByOn = Forms!ReportFormForAuthorizationsF.OrderByOn
    
End Sub

I have tried many different things but I cannot figure out why all the other reports work fine and only this one does not.

I was going to attach the program here in the forum but the small test version is about 16 mb zipped file and is too big, so the only way I can do that is using my google drive, so I uploaded the small test app version there if anyone wants to see what I have and hopefully figure out what is going on.

Here's the link:

Test - Google Drive

drive.google.com

THE PROGRAM CONTAINS NO IDENTIFIABLE DATA, ALL DATA HAS BEEN SCRAMBLED AND ALL NAMES ARE FAKE.

Thank you so much in advance for any help.

Maurice