[Resolvido]Função fSetAccessWindow bloqueia

Tenho um bd que uso fSetAccessWindow . nos relatorios ja usei fSetAccessWindow(3) ao abrir e fSetAccessWindow (0) fechar. Quando mando imprimir o relatorio atravez do botão ele imprimi normal mais o menu fica bloqueado . O que eu faço

Não necessita dessa função, da maneira como está estruturado o seu banco.

Veja o simples;

O seu banco está aqui.

http://dl.dropbox.com/u/771097/Sisalao_OLD_III.rar

Ok paulo ja deu certo era isso msmo que eu queria ... Ta rodando tudo normal em qualquer pc .. Obrigado e desculpa por ficar enchendo hehehe . Um obrigado a todos

carakas man ta osso... a primeira vez que baixei o bd que vc mando e fiz as configurações corretas no access do pc funcionou. quando fui abrir novamente ja não funcionou mais. ai baixei novamente o bd que mando aqui e nda . to quase desistindo ja hehe

dessa fez funcionou o login mais o comando Autoexecwindow não funciona.

em suplementos

Modulo deletado.
Macro autoexec deletada.

Veja se funciona;

http://dl.dropbox.com/u/771097/Sisalao_OLD_IV.rar

ainda continua aparecendo o fundo do access quando minimizado.

Paulo com o modulo que vc mando no arquivo numero 3 ele não funciona o Autoexecwindow que não aparece o fundo do access. O pimeiro q vc me mandou funcio o Autoexecwindow porem esta com esse codigo ( normal porem quando eu clico em imprir um relatorio e clico em fechar o meu menu não funciona como se estivesse alguma coisa do relatorio aberto por tráz.

Resumindo
com esse codigo não aparece o fundo do access, porem tenho dificuldade em imprimir o relatorio onde depois de mandar imprimir ao fechar o relatorio o meu menu fica bloquiado.


Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
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 AUTOEXEWALDO()
DoCmd.OpenForm "Entrada", acNormal

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


com esse codigo que me passou no arquivo v ele funciona normal mais porem o fundo do access aparece ai quando eu minimizo ou quando arrasto o bd ele aparece o fundo do access.

Option Compare Database
Option Explicit



Public Function AUTOEXEWALDO()
DoCmd.OpenForm "Entrada", acNormal
End Function

Como está desenvolvido o seu sistema, não necessita de esconder a janela do Access, faça o simples;

Veja o simples;

http://dl.dropbox.com/u/771097/Sisalao_OLD_V.rar

ok vo deixar assim então

Como está agora, nem a barra de tarefas do windows aparece, já viu que legal ?

Resolvido.

ja sim paulo. É que com o access transparente tem mais cara de banco de dados profi hehe mais o brigado

Estou com o mesmo problema, como resolvo.
Apenas na geração dos relatório que o form fica travado.

se eu abrir o sistema com a tecla shift funciona tudo normal...