[Resolvido]Problemas com Docmd.Minimize (Minimizar Form)

Bom Dia pessoal !

É possível Minimizar toda Aplicação e não somente o formulário como faz o DoCmd.Minimize ?

Utilizo bastante Formulário PopUp e quando o usuário precisa minimizar uma form se ele tiver com 5 forms aberto ele tem que minimizar um a um .


Existe uma forma de minimizar toda a aplicação Access no click de um botão?

Saudações !

Boa tarde, Rafael
Veja isto

Boa Tarde Alexandre!

Pode colar o Link novamente esta dando erro (404)

Obrigado

Saudações!

Código:

http://www.accessfaq.com.br/webroot/default.asp?http%3A//www.accessfaq.com.br/webroot/detalhe.asp%3FPergunta_Id%3D106

Um pitaco;

Funções internas do Ms Access;

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


http://maximoaccess.forumeiros.com/t3413-resolvidobotao-para-minimizar-access

Alexandre
Essa função funciona no Office 2007 ?

Esta dando erro


Saudações!

JPaulo
DoCmd.RunCommand acCmdAppMinimize Nao funfou não

saudações !

JPaulo

A funcao que voce me passou no link funciona

mas no meu caso ao iniciar minha aplicacao o tela do access fica minimizada ai nao funciona

ao carregar minha aplicacao chamo essa funcao
Option Compare Database

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


Alguma Alternativa ?

Testado e a funfar;


Private Sub Btn_Minimizar_Click()
Dim b As Boolean
'os formularios com janela restrita = Sim, não permitem minimizar o Access, então
'no evento ao pressionar do botão minimizar passamos o form para janela restrita = Não
b = Forms("Frm_Equip_Retidos").Modal
Forms("Frm_Equip_Retidos").Modal = False
DoCmd.RunCommand acCmdAppMinimize
End Sub

Resolvido!

Obrigado !

Obrigado pelo retorno o forum agradece.