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

    Criar Botão para abrir um site

    clebermoura
    avatar
    clebermoura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 31/10/2013
    • Mensagem nº1

    Criar Botão para abrir um site Empty Criar Botão para abrir um site

    Mensagem  clebermoura 5/4/2024, 21:49

    Olá pessoal, tenho um Formulário que uso como Dashboard. Esse formulário contem varios botões para abrir pastas no computador, arquivos e outros.
    Preciso criar um botão de comando que ao clicar, abra um determinado site na internet.
    Já tentei várias opções mas sem sucesso. Alguem pode me ajudar?
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016
    • Mensagem nº2

    Criar Botão para abrir um site Empty Re: Criar Botão para abrir um site

    Mensagem  Alexandre Fim 6/4/2024, 00:16

    Olá Cleber,

    Tente isso:
    Código:


    Private Sub btnAbreWeb_Click()
    Dim ie As Object

        '-- Instancia o objeto do tipo Internet Explorer
        Set ie = CreateObject("InternetExplorer.Application")
        
        '-- Navega na pagina informada
        ie.Navigate "https://www.maximoaccess.com/"
        
        '-- Exibe navegador
        ie.Visible = True


    End Sub


    Att,

    Alexandre Fim

    clebermoura gosta desta mensagem

    • Ir para o topo
    clebermoura
    avatar
    clebermoura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 31/10/2013
    • Mensagem nº3

    Criar Botão para abrir um site Empty Criar Botão para abrir um site

    Mensagem  clebermoura 6/4/2024, 03:37

    Olá Alexandre, dessa forma funcionou, mas eu queria que ele abrisse o site com o Microsoft Edge, pois é nele que trabalho os links.
    Até tentei substituir o "ie" pelo "msedge" mas da erro. Se puder me ajudar nessa parte também, fico grato. Obrigado.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº4

    Criar Botão para abrir um site Empty Re: Criar Botão para abrir um site

    Mensagem  Avelino Sampaio 6/4/2024, 11:13

    Olá!

    Do ChatGPT:

    "Pergunta: Como abrir um site através de um botão do MS Access, via VBA?

    ChatGPT

    Para abrir um site através de um botão no MS Access usando VBA (Visual Basic for Applications), você pode usar a função FollowHyperlink. Aqui está um exemplo simples de como fazer isso:

    Private Sub MeuBotao_Click()
        FollowHyperlink "http://www.exemplo.com"
    End Sub


    Substitua "http://www.exemplo.com" pelo URL do site que deseja abrir.

    Depois de fazer isso, sempre que você clicar no botão, o site especificado será aberto no navegador padrão do seu sistema. Certifique-se de substituir o URL de exemplo pelo URL real do site que você deseja abrir."

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    clebermoura gosta desta mensagem

    • Ir para o topo
    clebermoura
    avatar
    clebermoura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 31/10/2013
    • Mensagem nº5

    Criar Botão para abrir um site Empty [Resolvido]Criar Botão para abrir um site

    Mensagem  clebermoura 6/4/2024, 17:50

    Olá Avelino Sampaio, realmente funcionou. Como não havia pensado no Chat GPT? Muito Obrigado pela ajuda.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    Criar Botão para abrir um site Empty Re: Criar Botão para abrir um site

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 7/11/2024, 15:45