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?
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?