MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Area de trabalho windows.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Area de trabalho windows. Empty [Resolvido]Area de trabalho windows.

    Mensagem  XPTOS 28/1/2015, 09:53

    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,
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  JPaulo 28/1/2015, 10:07

    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)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Area de trabalho windows. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Area de trabalho windows. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Area de trabalho windows. Folder_announce_new Instruções SQL como utilizar...
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  XPTOS 28/1/2015, 10:45

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  JPaulo 28/1/2015, 11:42

    E este comando não resolve ?

    Código:
    Docmd.RunCommand acCmdAppMinimize


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Area de trabalho windows. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Area de trabalho windows. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Area de trabalho windows. Folder_announce_new Instruções SQL como utilizar...
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  XPTOS 28/1/2015, 11:53

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  JPaulo 28/1/2015, 11:53

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Area de trabalho windows. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Area de trabalho windows. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Area de trabalho windows. Folder_announce_new Instruções SQL como utilizar...
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  XPTOS 28/1/2015, 11:55

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  JPaulo 28/1/2015, 15:06

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Area de trabalho windows. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Area de trabalho windows. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Area de trabalho windows. Folder_announce_new Instruções SQL como utilizar...
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  XPTOS 28/1/2015, 19:18

    Perfeito JPaulo,

    Funcionou certinho, obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  JPaulo 29/1/2015, 11:51

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Area de trabalho windows. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Area de trabalho windows. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Area de trabalho windows. Folder_announce_new Instruções SQL como utilizar...
    avatar
    armandoambrai
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 01/06/2016

    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  armandoambrai 6/3/2017, 14:23

    ok blz


    Última edição por armandoambrai em 7/3/2017, 14:23, editado 1 vez(es)

    Conteúdo patrocinado


    [Resolvido]Area de trabalho windows. Empty Re: [Resolvido]Area de trabalho windows.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:32