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

    [Resolvido]Preencher página na net via código access

    Alberto Moura
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 13/01/2015
    • Mensagem nº1

    [Resolvido]Preencher página na net via código access Empty [Resolvido]Preencher página na net via código access

    Mensagem  Alberto Moura 30/4/2018, 17:42

    Prezado(a), Estou tentando preencher um formulário na web via código, até consegui algo com o exemplo do mestre JPaulo, segue o código
    Código:
    Private Sub btnNet_Click()
    'By JPaulo@2010 Janeiro
    On Error Resume Next
    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.Hwnd , SW_MAXIMIZE
    IE.Navigate "http://sistemas.tjrn.jus.br/fdj/"
    While IE.Busy
    DoEvents
    Wend
    Selected = "selected"
    IE.Document.All("codforo").Value = "167"
    IE.Document.All("codforo").Value = "1"
    IE.Document.All("codsecretaria").Value = "659"
    IE.Document.All("quantpreparo_1026").Value = "1"
    IE.Document.All("partes").Value = "Teste"
    IE.Document.All("telefone").Value = "(84)0000-0000"
    Set IE = Nothing
    End Sub

    Não estou conseguindo selecionar:
    [Resolvido]Preencher página na net via código access 0110
    Nome dos campos da Pag. da net
    [Resolvido]Preencher página na net via código access Imagem11


    Também não estou conseguindo selecionar o checkbox:
    [Resolvido]Preencher página na net via código access 0210
    Nome dos campos da Pag. da net
    [Resolvido]Preencher página na net via código access 0310


    Conto com ajuda de vcs.
    Desde já grato.
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009
    • Mensagem nº2

    [Resolvido]Preencher página na net via código access Empty Re: [Resolvido]Preencher página na net via código access

    Mensagem  Alexandre Neves 30/4/2018, 20:58

    Boa noite
    Tente
    IE.Document.All("TipoSec").Value = "1"
    IE.Document.All("codpreparo_1026").Value = "True"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    Alberto Moura
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 13/01/2015
    • Mensagem nº3

    [Resolvido]Preencher página na net via código access Empty Re: [Resolvido]Preencher página na net via código access

    Mensagem  Alberto Moura 1/5/2018, 02:50

    Não deu certo Alexandre Neves, grato pela ajuda.
    • Ir para o topo
    cpampas
    avatar
    cpampas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 27/10/2013
    • Mensagem nº4

    [Resolvido]Preencher página na net via código access Empty Re: [Resolvido]Preencher página na net via código access

    Mensagem  cpampas 1/5/2018, 10:53

    Alberto

    No primeiro Radio Button tente :

    para a opçao secretaria :     IE.Document.all.Item("tipoSec")(0).Checked = True
    para a opcao Cartorio :        IE.Document.all.Item("tipoSec")(1).Checked = True

    tente o mesmo para a checkbox
    • Ir para o topo
    Alberto Moura
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 13/01/2015
    • Mensagem nº5

    [Resolvido]Preencher página na net via código access Empty Re: [Resolvido]Preencher página na net via código access

    Mensagem  Alberto Moura 3/5/2018, 23:55

    Obrigado cpampas pela ajuda, sua formula de certo!, mas ela não atualizava o campo depois de executada.
    Utilizei a formula desta forma para selecionar:

    IE.Document.All.Item("TipoSec").Item(1).Click

    cheers cheers
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]Preencher página na net via código access Empty Re: [Resolvido]Preencher página na net via código access

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/4/2024, 08:10