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

2 participantes

    ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    avatar
    Curty123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida Empty ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    Mensagem  Curty123 9/1/2019, 10:24

    Prezados, bom dia!

    Sou novo em programação e estou tentando acessar um site e preencher algumas informações, porém me deparei com esse erro. Consigo entrar no site, digitar login e senha, clicar para logar, porém preciso preencher outros campos, porém está dando esse erro.

    Segue codigo:
    Sub Comando2_Click()
    Dim Nomeusuario As String
    Dim Senhausuario As String
    Dim Ambienteusuario As String
    Dim Dc_URL As String
    Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"
    Dim numrdo As String


    'Criar um objeto internet explorer
    Set objIE = New InternetExplorer

    'Abre o IE
    objIE.Visible = True

    'Solicitando login e senha
    Nomeusuario = "login"
    Senhausuario = "senha"
    Ambienteusuario = ""
    numrdo = "6509" ' CAMPO QUE QUERO PREENCHER
    Dc_URL = "SITE"

    'Desajando visivel e abrindo o site
    objIE.Visible = True
    objIE.Navigate2 Dc_URL

    ' Loop para carregar a pagina toda
    Do Until objIE.ReadyState = READYSTATE_COMPLETE
    DoEvents
    Loop

    ' Entrando com login,senha e apertando para logar
    objIE.Document.all.Item("chave").innerText = Nomeusuario
    objIE.Document.all.Item("password").innerText = Senhausuario
    objIE.Document.all.Item("ambiente").selectedIndex = "2"
    objIE.Document.Forms.Item("form-login").submit
    SendKeys "{ENTER}", True
    objIE.Document.all.Item("rdo").innerText = numrdo ' ERRO APARECER QUANDO ADICIONO ESSA LINHA
    objIE.Document.Forms.Item("form-control").submit

    While objIE.Busy
    DoEvents
    Wend

    Set objIE = Nothing 'Finalizando objeto

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3705
    Registrado : 22/11/2016

    ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida Empty Re: ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    Mensagem  DamascenoJr. 10/1/2019, 01:07

    tente

    Sub Comando2_Click()
    Dim Nomeusuario As String
    Dim Senhausuario As String
    Dim Ambienteusuario As String
    Dim Dc_URL As String
    Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"
    Dim numrdo As String


    'Criar um objeto internet explorer
    Set objIE = New InternetExplorer

    'Abre o IE
    objIE.Visible = True

    'Solicitando login e senha
    Nomeusuario = "login"
    Senhausuario = "senha"
    Ambienteusuario = ""
    numrdo = "6509" ' CAMPO QUE QUERO PREENCHER
    Dc_URL = "SITE"

    'Desajando visivel e abrindo o site
    objIE.Visible = True
    objIE.Navigate2 Dc_URL

    ' Loop para carregar a pagina toda
    Do Until objIE.ReadyState = READYSTATE_COMPLETE
    DoEvents
    Loop

    ' Entrando com login,senha e apertando para logar
    objIE.Document.all.Item("chave").innerText = Nomeusuario
    objIE.Document.all.Item("password").innerText = Senhausuario
    objIE.Document.all.Item("ambiente").selectedIndex = "2"
    objIE.Document.Forms.Item("form-login").submit
    SendKeys "{ENTER}", True

    ' Loop para carregar a pagina toda
    Do Until objIE.ReadyState = READYSTATE_COMPLETE
    DoEvents
    Loop


    objIE.Document.all.Item("rdo").innerText = numrdo ' ERRO APARECER QUANDO ADICIONO ESSA LINHA
    objIE.Document.Forms.Item("form-control").submit

    While objIE.Busy
    DoEvents
    Wend

    Set objIE = Nothing 'Finalizando objeto

    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Curty123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida Empty Re: ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    Mensagem  Curty123 10/1/2019, 10:44

    Bom dia Amigo.


    Não funcionou, continua dando esse erro.

      Data/hora atual: 27/9/2022, 18:57