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

    Acessar Link pelo ID do facebook

    avatar
    tiaoaeiou
    Novato
    Novato

    Respeito às Regras 100%

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

    Acessar Link pelo ID do facebook Empty Acessar Link pelo ID do facebook

    Mensagem  tiaoaeiou em 5/12/2017, 17:23

    Boa tarde pessoal!
    Criei um banco de dados de cadastro de pessoas.
    Criei uma caixa de texto onde cadastrarei o ID do facebook da pessoa. para quem desconhece, cada profile do facebook possui um numero proprio.
    O ID 100003724907046 refere-se a https://www.facebook.com/carolinepivetta por exemplo. basta colocar https://www.facebook.com/100003724907046 para abrir a conta dela.
    Minha dúvida é a seguinte:

    Quero criar uma Caixa de Texto onde cadastrarei o ID: 123456789
    Um botão que quando eu clicar, ele abrirá o endereço www.facebook.com.br/ID acima abrindo o endereço www.facebook.com.br/123456789
    Se eu cadastrar no proximo registro por exemplo o ID: 123123123 , o botão abrirá www.facebook.com.br/123123123.
    Cada cadastro terá ID diferente.

    Lembrando que cada cadastro terá um ID diferente. Coloquei o código abaixo, porém dá erro

    Private Sub btnFacebook2_Click()
    Dim strURL As String
    strURL = "https://facebook.com.br/" & id
    Application.FollowHyperlink strURL, , True
    End Sub

    Está dando erro na linha Application.FollowHyperlink strURL, , True
    Erro em tempo de execução '8':
    Não é possivel transferir as informações solicitadas.

    Alguém teria uma ideia de como poderei fazer?
    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 27/03/2015

    Acessar Link pelo ID do facebook Empty Re: Acessar Link pelo ID do facebook

    Mensagem  bigfill em 5/1/2018, 10:50

    Bom dia!

    tiaoaeiou, Teste esse código.

    Private Sub btnFacebook2_Click()
    Application.FollowHyperlink Address:= "https://facebook.com.br/" & id
    End Sub
    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 27/03/2015

    Acessar Link pelo ID do facebook Empty Re: Acessar Link pelo ID do facebook

    Mensagem  bigfill em 8/1/2018, 14:50

    tiaoaeiou, Aplicou o código que te passei ?

    Fiz um modelo e esta funcionando tudo certo.


    Aguardo retorno

    Very Happy
    Anexos
    Acessar Link pelo ID do facebook AttachmentFacebook.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 7 vez(es)
    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 27/03/2015

    Acessar Link pelo ID do facebook Empty Re: Acessar Link pelo ID do facebook

    Mensagem  bigfill em 12/1/2018, 11:48

    Bom dia tiaoaeiou

    Conseguiu resolver ?

      Data/hora atual: 22/4/2019, 15:41