[Resolvido]Hiperlink copiando o texto do formulário e colando num campo determinado.

Boa tarde, estou com uma dificuldade imensa e gostaria de ajuda.

Teria como criar um hiperlink abrindo uma pagina da web e copiar um determinado campo dentro do formulário e copiar p a pagina?

Exemplo: Tenho um campo com o nome de "pesquisa" dentro do access, ai crio um hiperlink para abrir a pagina do google, ao abrir a pagina, gostaria que oq estiver escrito no campo "pesquisa" do meu access fosse colado dentro do campo de pesquisa da pagina do google.. teria como fazer isso??

Se sim, preciso que me ajudem rs..

obrigado.

Alguem!!!!!!!!

Ola Bruno desculpa a demora;

Amigão é o simples;

Vou imaginar que você tem uma caixa de texto no seu formulario e tem o nome de "txtPesquisa",

No procedimento VBA ao pressionar de um botão nesse form, veja como funciona;

Private Sub SeuBotão_Click()
'By JPaulo@2010 Janeiro
On Error Resume Next

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

ie.Visible = True
     
     ie.navigate "http://www.google.com/search?q=" & Me.txtPesquisa & ""

        While ie.busy
           DoEvents
        Wend
   
   SendKeys "{ENTER}", True


        While ie.busy
        
           DoEvents
        Wend
Set ie = Nothing
End Sub

Veja um pequeno exemplo;

http://dl.dropboxusercontent.com/u/771097/PesquisaNaNet.rar

Putz cara, ficou show, perfeito ... agora se puder me ajudar um pouco mais rs...

Tipo, trabalho numa Orgão publico e temos um sistema de protocolo aki, entao fiz uma pequena modificação no vba.. tipo mudei o google para o caminho da intranet aki e tal.. so q sempre quando abrimos temos q colocar login e a senha no site p ir p parte da busca... tem algum jeito de tipo ao clicar no botao do access .. ele vai abre o intranet e depois do meu login e senha ele colar o campo da pesquisa?? abraços.. se n entendeu me avisa q eu tento explicar melhor rs.. abraços ...

ah mesmo assim ja coloquei o seu vba p outra utilidade tb.. e ficou show.

Dá sim,

Veja este meu exemplo,

http://maximoaccess.forumeiros.com/t94-entrar-no-forum-atraves-do-access

Para o seu caso, é necessario saber qual a pagina e os nomes dos campos de login na pagina.

A agencia bloqueia certos acessos e certos downloads entao n consegui rs.. tipo inspecionando o codigo de fonte aparece assim..

Identificação:
input type="text" name="txt_login" value="" size="23" maxlength="30" />


Senha:

type="password" name="txt_senha" value="" size="9" maxlength="32" />
type="submit" name="acao" value="ENTRAR" class="botao_texto" />"""""


a parte da pesquisa seria essa:

class="td_primeira" colspan="3">CAMPO LIVRE:


class="td_primeira" colspan="3">put type="text" size="110" name="txt_campo_livre" id="txt_campo_livre" value="" style="width:604px" title = "Caracter '$' dísponível para pesquisa."/>





nao sei se isso ajuda.... cara se estiver ocupado ou n puder ajudar n tem problema n hine.. ja quebrou maior  galho ja.. vlw

Voltei .... entao ja consegui fazer com que coloque o login e a senha e depois ir p parte q eu quero... so n estou conseguindo fazer com que o texto que esta no "txtpesquisa", seja "colado" no campo "campo livre" q pelo codigo da fonte o ID e "txt_campo_livre"..


meu VBA esta assim.. Ve oq pode ser.... obrigado

Private Sub Comando123_Click()
'By JPaulo@2010 Janeiro
On Error Resume Next

Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo…
.Navigate ("http://sigad.anac.gov.br/proton/protocolo/pesquisa_avancada.asp?area=processo ")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("txt_login").Focus
.Document.getElementById("txt_login").Value = "xxxx"
.Document.getElementById("txt_senha").Focus
.Document.getElementById("txt_senha").Value = "xxxxxxx"
SendKeys "{ENTER}", True

While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With
While IE.Busy
DoEvents
Wend

While IE.Busy

DoEvents
Wend
Me.txtPesquisa = ""

Set IE = Nothing
End Sub

Ola

Não consigo ver porque não tenho acesso a esse URL.

Explique-me um pouco o que está grifado a vermelho;

"http://sigad.anac.gov.br/proton/protocolo/pesquisa_avancada.asp?area=processo"

Opa bom dia, e oq aparece na URL mesmo acho que n tem significado a mais... vou colar aki a tela...

O cursor vai direto para o campo "Campo Livre".

Abraços

Faça por favor o teste, logo após SendKeys

SendKeys "{ENTER}", True
.Document.getElementById("txt_campo_livre").Value = Me.txtPesquisa

N aconteceu nada.. entra no site faz o login.. entra na tela q te enviei porem n cola oq esta escrito no campo txtPesquisa...

esse termo .... While .Busy Or .ReadyState <> 4: DoEvents: Wend ... quer dizer oq?? tipo esse 4 .. ele est programado so p fzer os 4 eventos?? tipo localizar o campo Login e depois colar.. depois localizar o campo senha e colar.. e acaba??

tipo tentei mudar p 5 6 , só q quando eu mudo o evento n funciona mais..

O ReadyState = 4 significa a conclusão da interação com a pagina Web.
ReadyState suporta 5 valores possíveis que podem ser definidos:

0 não inicializado
1 carregando
2 carregado
3 interativo
4 completo

Daí no código estar .ReadyState <> 4

Descobri onde ele esta parando.. tipo se eu deixar o site ja aberto com a minha senha o vba funciona ele consegue colar o campo me.txtPesquisa na area que eu quero.... se eu fechar o navegador e efetuar o vba ele abre o site tudoc erto coloca login e senha e entra .. so qele n faz o restante.. tem algum codigo q eu posso colocar p ele sei la fazer um loop e ve oq ficou faltando.


Private Sub Comando123_Click()
'By JPaulo@2010 Janeiro
On Error Resume Next

Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo…
.Navigate ("http://sigad.anac.gov.br/proton/protocolo/pesquisa_avancada.asp?area=processo")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("txt_login").Focus
.Document.getElementById("txt_login").Value = "xxxxxxx"
.Document.getElementById("txt_senha").Focus
.Document.getElementById("txt_senha").Value = "xxxxxxx"
SendKeys "{ENTER}", True
.Document.getElementById("txt_campo_livre").Focus
.Document.getElementById("txt_campo_livre").Value = Me.txtPesquisa
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With


        While IE.Busy
           DoEvents
      Wend

        While IE.Busy
       
           DoEvents
        Wend
Me.txtPesquisa = ""

Set IE = Nothing
End Sub

Aqui é impossivel testar, sabe isso né ?

diga-me;

1º Login
2º Senha
3º Enter e vai para outra página ?

Se for isso, tente mudar a posição da linha .Document.getElementById("txt_campo_livre").Value = Me.txtPesquisa para logo a seguir ao Debug.Print

Funcionou cara.. putz muito obrigado rsr.. pelo q vc viu estou iniciando kkkk e muito bom ter um site desses com pessoas querendo ensinar .. obrigadao mesmo..

Agora vou tentar outras coisas aqui rsrs... abraços e tenha um bom dia,.

Fico feliz;

Obrigado pelo retorno o forum agradece.

Olha eu de novo.. agora e coisa rapido e simples.. tentei achar aki na net so q n consegui ... tem como retirar so uma parte doq esta escrito em um campo??

tipo tenho um campo chamado "Sigad" os dados dele e assim.... 60800.123456/2008-43 .... queria saber se tem como eu criar um uma caixa de texto e fizesse ele puxar so a parte.. "60800" depois criaria outro p puxar so "123456" e assim por diante??

Obrigado

Utilize as funções internas Esquerda, Meio e Direita.

Exemplo,

Left(SeuCampo,5)

Mid(SeuCampo,7,12)

Escrevo essas funçoes onde?? tipo crio uma caixa de texto e depois.. vou no Fonte de controle???

Pode ir na fonte de controle de uma caixa nova e colocar,
= Left(SeuCampo;5)

Ou pelo VBA

Me.SeuCampoNovo= Left(Me.SeuCampo,5)

Opa, bem ja consegui fazer a maioria das coisas so estou com um problema.. em um dos campo q eu quero q copie do access e cole no campo do site, ele ja vem preenchido, entao ele n esta copiando uma das partes .. tipo quando entro no site existem 3 campos....

o primeiro ja vem preenchido ... Ex: 00065.________/____      .. to conseguindo colar nos 2 campos em branco .. porem no campo q ja tem coisa escrita n... qual e a funcao de apagar esse 00065 e depois colar a parte do campo... Clean??

O codigo esta assim........ o campo "txt_numero_orgao" ja vem preenchido com o 00065... so q tem numero de protocolos 60800 ....60830.. e assim por diante.. entao ele n esta colando esses 60800 no txt_numero_orgao... tem como antes de ele tentar colar, ele apagar oq esta dentro o txt_numero_orgao???? abraços

Private Sub Comando131_Click()

On Error Resume Next

Set ie = CreateObject("InternetExplorer.application")
With ie
.Visible = True
'abaixo coloquei o login do meu blog como exemplo…
.Navigate ("http://sigad.anac.gov.br/proton/protocolo/pesquisa_simples.asp?area=processo")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("txt_login").Focus
.Document.getElementById("txt_login").Value = "bruno.alvim"
.Document.getElementById("txt_senha").Focus
.Document.getElementById("txt_senha").Value = "galeao08"
SendKeys "{ENTER}", True
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
.Document.getElementById("txt_numero_orgao").Focus
.Document.getElementById("txt_numero_orgao ").Value = Me.txtsigad1
.Document.getElementById("txt_numero_sequencial").Focus
.Document.getElementById("txt_numero_sequencial").Value = Me.txtsigad2
.Document.getElementById("txt_numero_ano").Focus
.Document.getElementById("txt_numero_ano").Value = Me.txtsigad3

SendKeys "{ENTER}", True
End With

While ie.Busy
DoEvents
Wend

While ie.Busy

DoEvents
Wend
Me.txtPesquisa = ""

Set ie = Nothing

End Sub

Conseguiii huhuhu ... coloquei essa função ... .SpecialCells("txt_numero_orgao").EntireRow.Delete .... huhu deu certo muito feliz rs..