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]Acessar link pelo access

    Compartilhe

    Flavirosk
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/04/2011

    [Resolvido]Acessar link pelo access

    Mensagem  Flavirosk em Qua 08 Jul 2015, 23:22

    Antes de mais nada, muito obrigado a todos...

    So me apresentando rapidinho... sou apenas um usuário que está aos poucos desenvolvendo um sistema no Access para me auxiliar no meu trabalho do dia-a-dia... não manjo de programação VBA..... mais estou conseguindo fazer bastante coisas interessantíssimas.... e desenvolvendo meu sistema que está ficando até fantástico para meu conhecimento.

    acredito que minha duvida já foi postada por alguém, mais não sei bem como expressar ela ou mesmo tentar buscar... Até gostaria que vcs me dessem um vocábulo para essa pergunta hehehhehe
    Fiz um banco de dados todo segmentado, que busca outras referencias em varias tabelas... interna... nela tenho formulários, relatórios e assim vai...

    Duvida é::: como colocar um link de internet e nesse link inclua o registro ou outra informação de uma tabela??? (difícil a compreensão dessa pergunta né???!!!?)

    Traduzindo a pergunta

    Vamos dizer que eu queria criar uma rotina única para acessar um link de internet, so que se eu estiver em um registro, o numero desse registro teria que completar o link
    Tipo assim:::: [Você precisa estar registrado e conectado para ver este link.]

    Sendo que esse seria o link fixo:
    [Você precisa estar registrado e conectado para ver este link.]

    e os números ao final, seriam o CNPJ que deveria completar o link..
    18316174000123

    Novamente, me desculpem, é que já quebrei bastante a cabeça....
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4647
    Registrado : 15/03/2013

    Re: [Resolvido]Acessar link pelo access

    Mensagem  ahteixeira em Dom 12 Jul 2015, 11:59

    Olá Flavirosk, bem-vindo ao fórum.

    Tente assim:

    Dim strURL As String
    strURL = "http://api.convenios.gov.br/siconv/v1/consulta/propostas.html?id_proponente=" & CampoDaTabela
    Application.FollowHyperlink strURL, , True


    Deve alterar o CampoDaTabela pelo seu que tem a origem do registo para ver.

    Abraço
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4647
    Registrado : 15/03/2013

    Re: [Resolvido]Acessar link pelo access

    Mensagem  ahteixeira em Ter 13 Out 2015, 08:37

    Olá, como ficou a situação?
    Os utilizadores do fórum merecem e agradecem o retorno.
    Abraço

    tiaoaeiou
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 27/09/2017

    Re: [Resolvido]Acessar link pelo access

    Mensagem  tiaoaeiou em Ter 05 Dez 2017, 18:12

    Fiz um parecido. Porém está dando erro:

    Código:
    Dim strURL As String
    strURL = "http://www.facebook.com.br/" & [b]id[/b]
    Application.FollowHyperlink strURL, , True

    id é o CampodaTabela

    Quero cadastrar o ID do facebook por pessoa, para quando eu clicar no botão, ele abra o site facebook.com.br/id
    Abrindo o facebook.com.br/ acompanhado do ID que eu cadastrar. Está dando Erro em tempo de execução '8':
    Não é possivel transferir as informações solicitadas.
    na linha Application.FollowHyperlink strURL, , True

    Alguem poderia me ajudar?

    tiaoaeiou
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 27/09/2017

    Re: [Resolvido]Acessar link pelo access

    Mensagem  tiaoaeiou em Qua 06 Dez 2017, 10:28

    Agradeço a todos! Felizmente, consegui fazer.

    Código:
    Private Sub btnFacebook_Click()
    Dim wshshell As Object
    Dim strUrl As String
    Set wshshell = CreateObject("WScript.Shell")
    strUrl = "http://www.facebook.com.br/" & [id]
    wshshell.Run strUrl
    End Sub


    Problema resolvido. Deixarei o código acima a título de pesquisa
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4647
    Registrado : 15/03/2013

    Re: [Resolvido]Acessar link pelo access

    Mensagem  ahteixeira em Qua 06 Dez 2017, 11:03

    Olá Tião, obrigado pelo retorno.
    O fórum agradece.

    Apesar do colega Flávirosk não ter dado retorno (lamentável), vou dar o tópico como resolvido.

    Abraço

      Data/hora atual: Seg 11 Dez 2017, 23:00