MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Area de trabalho windows.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  XPTOS em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  XPTOS em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  XPTOS em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  XPTOS em 28/1/2015, 19:18

    Perfeito JPaulo,

    Funcionou certinho, obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 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 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 em 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: 16/10/2019, 21:19