[Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

Boas,
tenho o seguinte módulo:
Option Compare Database
Option Explicit

Global Const SW_HIDE = 0

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

Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

Como digo acima precisava de mostrar a barra nos relatórios,
existe por aí algum código já feito?

Obrigado

Como você chama a função para "amoitar" a janela do Access?

É assim:

Private Sub Form_Open(Cancel As Integer)

Call FSetAccessWindow(SW_HIDE)
DoCmd.Restore

End Sub

Obrigado

fsetaccesswindow(3) para mostrar e 0 para esconder

Obrigado,

Neste caso terei que criar outra função:
Option Compare Database
Option Explicit

Global Const SW_HIDE = 3

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

Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

Abraço

Peço desculpa pela minha ignorância, era só
fazer isto:

Private Sub Report_Open(Cancel As Integer)

Call FSetAccessWindow(3)
DoCmd.Restore

End Sub

Desculpem a burrice
Abraço