A expressão que voce inseriu possui um nome de função que o microsoft access não pode localizar

Boa noite pessoal utilizo o access 2010

criei um ACCDE do meu banco de dados, ao tentar rodar recebi a seguinte mensagem

A expressão que voce inseriu possui um nome de função que o microsoft access não pode localizar

nome da macro - AutoExec

Ação - Executar Código

argumento -fAccessWindow ("Hide",False,False)

alguem pode me dar uma luz?

abraços

Boa noite amigo.. de uma olha aqui..

support.microsoft.com/kb/148529/pt-br

Fiz o informado para resolução "alterar o nome do módulo"

, o problema continua.

Voce deseja ocultar a janela do Access?
Se sim da uma olhada no meu exemplo, lá tem um exemplo no Autoexec do banco e o módulo para fazer a ocultação!

Bom dia !

o problema é que você pode ter escrito o nome da função errada.

é uma função fAccessWindow ta faltando ela no seu código. Esse comando é de sua autoria? se não for, você esqueceu de copiar o resto do código.

criar um modulo e coloca assim

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

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

Private Declare PtrSafe 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

Olá a todos,

Sanches, apesar de ser um tópico antigo a solução pode mesmo ser o que o colega Misson Lira referiu.

Na minha opinião a acção ideal a ser efectuada em primeiro lugar é compilar o projecto e verificar.

Para isso aperte a ALT+F11 , DEBUG, Compile..

Verificar o código e referências, no final Reparar/Compactar e testar.

Abraço a todos