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


    Preenchimento de campos no Navegador

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Preenchimento de campos no Navegador Empty Preenchimento de campos no Navegador

    Mensagem  Connekta Informatica em 17/5/2019, 18:28

    Boa Tarde

    Estou tentando preencher os campos de um Site de Notas Fiscal Eletrônica de Prestação de Serviço do meu Município, mais ele só preenche o número do CNPJ a senha não preenche.

    Veja:

    Código:


    Private Sub ListaNFe_DblClick(Cancel As Integer)
    Dim HTMLDoc As HTMLDocument
    Dim oBrowser As InternetExplorer
    'Sub Login_Celepar()

    Dim oHTML_Element As IHTMLElement
    Dim sURL As String

    On Error GoTo Err_Clear
    sURL = "https://softsolucoes.net/eNF/Acces.php"
    'sURL = Me.cboServicos.Column(3)
    Set oBrowser = New InternetExplorer
    oBrowser.Silent = True
    oBrowser.timeout = 60
    oBrowser.Navigate sURL
    oBrowser.Visible = True

    Do
    ' Wait till the Browser is loaded
    Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

    Set HTMLDoc = oBrowser.Document

    HTMLDoc.all.CNPJ.Value = Me.ListaNFe.Column(2)
    HTMLDoc.all.Senha.Value = Me.ListaNFe.Column(4)

    Err_Clear:
    If Err <> 0 Then
    Err.Clear
    Resume Next
    End If
    End Sub



    Alguém pode me ajudar?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    Preenchimento de campos no Navegador Empty Re: Preenchimento de campos no Navegador

    Mensagem  JPaulo em 20/5/2019, 11:22

    Olá bom dia !

    Código:
    Private Sub ListaNFe_DblClick(Cancel As Integer)
    Dim HTMLDoc As HTMLDocument
    Dim oBrowser As InternetExplorer
    'Sub Login_Celepar()

    Dim oHTML_Element As IHTMLElement
    Dim sURL As String

    On Error GoTo Err_Clear
    sURL = "https://softsolucoes.net/eNF/Acces.php"
    'sURL = Me.cboServicos.Column(3)
    Set oBrowser = New InternetExplorer
    oBrowser.Silent = True
    oBrowser.timeout = 60
    oBrowser.Navigate sURL
    oBrowser.Visible = True

    Do
     'Wait till the Browser is loaded
    Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

    oBrowser.Document.getElementById("CNPJ").Value = Me.ListaNFe.Column(2)
    'envia o foco para o campo CNPJ para poder dar o ENTER automático
    oBrowser.Document.getElementById("CNPJ").focus
    'dá o ENTER
    SendKeys "{ENTER}"
    'envia a senha
    oBrowser.Document.getElementById("Senha").Value = Me.ListaNFe.Column(4)

    Err_Clear:
    If Err <> 0 Then
    Err.Clear
    Resume Next
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Preenchimento de campos no Navegador Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Preenchimento de campos no Navegador Folder_announce_new 102 Códigos VBA Gratuitos...
    Preenchimento de campos no Navegador Folder_announce_new Instruções SQL como utilizar...
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Preenchimento de campos no Navegador Empty Re: Preenchimento de campos no Navegador

    Mensagem  Connekta Informatica em 20/5/2019, 21:13

    Boa Tarde, funcionou perfeitamente.

    Outra coisa, tem abrir no chrome?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Preenchimento de campos no Navegador Empty Re: Preenchimento de campos no Navegador

    Mensagem  Connekta Informatica em 21/5/2019, 18:10

    Up!


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Conteúdo patrocinado

    Preenchimento de campos no Navegador Empty Re: Preenchimento de campos no Navegador

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 01:53