Minimizar Todos Formulários

Boa Tarde ,

Estou precisando da ajuda desta turma expert .

Estou construindo um sistema para uma loja da familia , um sitema sem muita complexidade , na realidade o meu sistema vai fazer uma particularidade
que o sistema gerencial usado não contempla.

Criei um botão com o código abaixo para minimizar o sistema , para que as pessoas trabalhem em conjunto com sistema gerencial, quando clica no botão os formularios são minimizados, porem a tela do Access não minimiza e trava a tela . Lembrando que já criei o executavel do sistema.

Como minimizar tambem a tela do Access?

Código :

Dim frm As Form

For Each frm In Forms
DoCmd.Minimize
Next frm

Você tem é de minimizar a janela do banco e não os forms;

Código:

Private Sub SeuBotãoMinimizar_Click()
On Error Resume Next
Application.DoCmd.RunCommand acCmdAppMinimize
End Sub