Report is not shown despite I have property modal and emerge as Yes

[charly.csh]

Hello everyone,

I have a question with my application.
I've created a query form (continuos form) with a click button to open an specific report. I used the next code:

Private Sub OpenPcmd_Click()
On Error GoTo Err_cmdReport_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim NC_Record_ID As String

stDocName = "Sys_NCTotal_Rpt"
stLinkCriteria = "[sCode]=" & "'" & Me.Code & "'" 
NC_Record_ID = Me.Code

DoCmd.OpenReport stDocName, acViewReport, , stLinkCriteria

MsgBox "Report NC: " & NC_Record_ID, vbInformation, "Sys Management Tool"
Exit_cmdReport_Click:
Exit Sub

Err_cmdReport_Click:
MsgBox Err.Description
Resume Exit_cmdReport_Click

End Sub

it works normal in general an open the report needed, but I have a second code to hidde all the access screens and when I use this the report is not shown

Option Compare DatabaseOption Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)

End Function

Note: My report setting has the Property Modal: Yes and Emerge: Yes
I don't know why when the function fsetaccesswindows is call this report is not shown, it looks like it would be opened but I don't see it, in fact any report is not shown and I don't know why

Please your help will be highly appreciated

[Welshgasman]

You appear to have amended that code as it does not look completely 64bit to me.
Perhaps that is why?

How is that code meant to know which screen is the report screen?

[charly.csh]

Hi Welshgasman enclosed I prepared the example and it would be easy to see
One example is without hidding any element and other example it hiddes all the access screens but it does not pop out the report despite it has the property modal and emerge as Yes
I hope it could help or you have a better code what would be help will be greatAccess two examples hidding and no hidding elements.zip

[Welshgasman]

I do not have 64 bit Access.

[charly.csh]

Any idea how to solve this or other code to hidde the Access Screens?
The help will be highly appreciated this is the last part I need to solve to finish my application

[Gicu]

Have a look at Colin's site here:
https://www.isladogs.co.uk/control-a...ace/index.html

Cheers,

[charly.csh]

Thank you very much for the post shared Vlad, it was very useful, I loaded the example fixed and maybe can be useful for somebody else! =)

[isladogs]

I responded to your other thread earlier today but it would appear you already have a solution