[Resolvido]tornar Access Transparente no Repositório ( ajuda)

Bom dia,
Estou utilizando esse codigo para deixa a janela do access oculta, abrindo apenas o formulario, para fica parecendo um programa sem a tela de fundo do access.
estou utilizando esse codigo em um modulo con o nome "Manipular Janela" mais nao esta funcionando.
sera que vc pode me ajudar.
Obrigado

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 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
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then 'no Activeform
If nCmdShow = SW_HIDE Then
MsgBox "Cannot hide Access unless " _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

Você está a chamar a função no seu formulario principal ?

Private Sub Form_Load()
Call fSetAccessWindow(SW_HIDE)
End Sub

O formulario tem de estar com popup=sim e janela restrita=sim

ve este tópico pode ser que ajude

http://maximoaccess.forumeiros.com/t9333-botoes-minimizar-restaurar

Encontreiuma solução. Obrigado mais ja foi resolvido

Se resolveu é de bom senso colocar aqui como, para que outros com a mesma duvida possam resolver também.

E o Resolvido, claro.