[Resolvido]Não consigo visualizar o relatório quando escondo a janela do Access

Olá,

Coloquei o seguinte código para esconder a janela do access.

Option Compare Database

Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Dim dwReturn As Long

Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3


Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function


A janela do Access esconde mas ao clicar nos relatórios a janela fica praticamente fechada e não há como visualizar os dados.
Tenho relatórios em botões e em menus de combinação, em nenhum dos dois o relatório abre.

Alguem sabe o que deveria fazer para sanar esse problema ?

Segue imagem de como fica a tela do relatório Clientes.

Obrigado

Caso as propriedades Popup e Janela restrita dos relatórios estejam como Não, coloque em Sim e tente novamente.

Continua na mesma, só aparece aquela janela mínima conforme imagem enviada anteriormente.

Tente colocar um DoCmd.Maximize no evento "Ao carregar" do relatório. Coloque como sendo a última linha do evento, logo antes de End Sub.

Quando coloco o codigo abre na tela toda mas some o topo e o rodapé do relatório.

Antes de colocar o código para ocultar a janela do Access a tela do relatório abria em diálogo, popup marcado em sim.

Mais alguma sujestão para me ajudar ?

Obrigado

Tente borda fina.

Nada feito viu, continua na mesma, será que há um conflito com esse código de ocultar a tela do access que passou despercebido ?

Segue Código.

Option Compare Database

Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Dim dwReturn As Long

Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3


Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

Temos outras formas de se ocultar a janela do Access. Dê uma olhada aqui:

https://www.google.com/search?hl=pt&as_q=&as_oq=ocultar+janela&as_sitesearch=maximoaccess.forumeiros.com

Consegui resolver com ajuda de uma amigo que não esta nesse forum.

Foi o seguinte, no form principal estava chamando o comando para ocultar a janela do access, mas com isso não abria os relatórios. A solução foi simples, na tela os então todos os comando eu coloquei a ação ao abrir Call fAccessWindow("Show", False, False) para não mais ocultar a janela do access, pronto, funcionou. Como essa janela já ficava em full screen não fez diferença pra mim, pois eu queria ocultar pricipalmente o form de quando esta carregando o banco e o form de usuario e senha.

Ainda estou com um topico em aberto que não teve solução, se alguem puder me ajudar.
http://maximoaccess.forumeiros.com/t5126-como-atualizar-campo-usuario-data-e-hora

Resolvido.