[Resolvido]Area de trabalho windows.

Prezados,

Alguém poderia me dizer como chamar a area de trabalho do windows com o vba abaixo, pois tenho dois formularios popup e com janelas restritas.

Não estou conseguindo localizar o caminha da area de trabalho na pasta do windows.

If Forms!logon!nivel = "ADMINISTRADOR" Then
'Shell "C:\Users\wagomes\Desktop\Base dados SAC\Programas\team view portable.exe"
Else
MsgBox "USUÁRIO ATUAL NÃO TEM PERMISSÃO PARA ALTERAR AS CONFIGURAÇÕES DE ACESSO!", vbCritical, "Aviso"
End If

Grato,

Você quer chamar a area de trabalho do windows, ou que executar um programa ?

Você tem a certeza que o caminho correto é mesmo C:\Users\wagomes\Desktop\.......

Faça o teste assim;

Código:

Dim strCaminho As String
    strCaminho = "C:\Users\wagomes\Desktop\Base dados SAC\Programas\team view portable.exe"
    Call Shell(strCaminho, 1)

JPaulo, bom dia,

Este caminho eu adicionei somente para exemplo do que eu já uso para chamar o team view. O que pretendo mesmo é chamar a area de trabalho, ou seja, quando estiver em uso de um formulário restrito eu clico no botão e minimiza tudo e mostra minha a área de trabalho.

E este comando não resolve ?

Código:

Docmd.RunCommand acCmdAppMinimize

JPaulo, ja tentei,

Não resolve porque no BD eu tenho um formulario de fundo que fica aberto enquanto o usuario está logado tipo Modal = True.

Você até pode somente utilizar as teclas do seu teclado "Windows"+"D"

No meu PC eu já uso este atalho, mas para um cliente eu acho mais prudente colocar um botão para minimizar todo o BD.

Ok;

Faça o teste por favor;

Código:

Private Sub SeuBotão_Click()
 Dim objShell
     
        Set objShell = CreateObject("Shell.Application")
            objShell.ToggleDesktop
        Set objShell = Nothing
End Sub


Perfeito JPaulo,

Funcionou certinho, obrigado.

Obrigado pelo retorno o forum agradece.

ok blz