[Resolvido]ajuda minimizar o acess atraves de botao

boa tarde,

Preciso mais uma vez da Vossa ajuda, estive a pesquisar no forum e encontrei o codigo do Jpaulo para minimizar o acess atraves do botão num formulario, o que já consegui fazer e funciona na perfeição.... mas depois de estar minimizado na barra de tarefas do win não consigo maximizar alguem pode elucidar sobre o que me falta fazer...
o que usei do nosso Colega Jpaulo foi :

Option Explicit

Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Declare Function ShowWindow Lib "User32" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long


Public Function MaximizaAccess()
Dim Maxit%
Maxit% = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
End Function


Public Function MinimizaAccess()
Dim Minit%
Minit% = ShowWindow(hWndAccessApp, SW_SHOWMINIMIZED)
End Function


Public Function RestauraAccess()
Dim Restoreit%
Restoreit% = ShowWindow(hWndAccessApp, SW_SHOWNORMAL)
End Function

Chamar uma função, basta utilizar o:

Call MinimizaAccess


obrigado

Olá Amigo Francisco, use a linha de comando abaixo e vê se resolve o seu problema.

Código:

Private Sub NomeDoSeuBotao_Click()
    DoCmd.RunCommand acCmdAppMinimize
End Sub

Estas funções também funcionam perfeitamente e são mais simples.

DoCmd.RunCommand acCmdAppMaximize
DoCmd.RunCommand acCmdAppMinimize
DoCmd.RunCommand acCmdAppRestore

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Não falta fazer nada.

Se você der duplo click não restaura ?

Você usa algum outro código para esconder a janela do Access (por exemplo) ?

o codigo que me deu amigo Jeferson de Paula não funciona pq quero ter a propriedade modal como true...
amigo Jpaulo não consigo fazer nada, nem mesmo fechar, fica minimizado e só consigo fechar no gestor de tarefas.....
obrigados abraços

E você não se importa de anexar aqui o banco para vermos isso ?

Ou até poderá enviar para o meu email, que posto aqui a resolução.

E é verdade sim os comandos DoCmd.RunCommand acCmdAppMinimize e os outros não funcionam desse modo, por isso a existencia dos códigos, normalmente não se faz códigos para complicar o simples.

bom dia,

cá vai um exemplo do que eu expliquei anteriormente... obrigado

Só pude testar agora;

Com o formulario em Modal=Sim, funciona bem.
Com o formulario em Popup=Sim, funciona bem.

Com os dois não funciona.

ola boa tarde....
Vou testar amanha no trabalho no off 2007...
hoje lembrei de fazer teste em casa off 2010 e funciona na perfeição.. não entendo... amanha dou retorno....
obrigado

ola bom dia,

Venho reportar que do modo que o Jpaulo disse funciona perfeitamente.
obrigado a todos