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]O Comando ou a ação "IrParaRegistro" não está disponível agora

    avatar
    alexjc
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 23/02/2016

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  alexjc 16/2/2021, 01:50

    eu tenho um formulário onde tem os parâmetros para preencher uma tela no Internet Explore, onde utilizo a referencia do Internet Controls,

    tudo funciona bem no primeiro cadastro, porem quando eu coloco em um loop da erro "O Comando ou a ação "IrParaRegistro" não está disponível agora", quando acaber de preencher o primeiro cadastro ele deveria fechar o navegador e começar um novo cadastro com dados do registro 2 do formulário

    o ERRO ocorre na ultima linha.

    alguém sabe me dizer por que isso ocorre ? ou sabe um outro comando similar para substituir a ultima linha ?

    For i = 1 To 2 Step 1 ' começa o loop


    'On Error Resume Next
    Dim IE As Object ' cria o objeto
    Set IE = CreateObject("internetexplorer.application") ' cria objeto IE
    IE.Visible = True 'abre o internet explore
    IE.Navigate "https://www.sefaz.mt.gov.br/nfe/pages/consultaemitidasrecebidas/consultaemitidasrecebidas.xhtml" ' vai ate a pagina desejada

    While IE.Busy 'espera a pagina carregar por completo
    DoEvents
    Wend
    sng = Timer
    Do While sng + 1 > Timer ' tempo para escolher carregar o campo cnpj
    Loop
    IE.Document.all("j_idt14:tipoDoct_label").Click ' clica para escolher cnpj IE ou cpf
    sng = Timer
    Do While sng + 2 > Timer ' tempo para escolher carregar o campo cnpj
    Loop
    IE.Document.getelementsByClassname("ui-selectonemenu-item ui-selectonemenu-list-item ui-corner-all")(1).Click ' escolhe cnpj
    sng = Timer
    Do While sng + 2 > Timer ' tempo para escolher carregar o campo cnpj
    Loop
    IE.Document.all("j_idt14:numrDoct").Value = Me.CNPJ ' preenche com o cnpj
    sng = Timer
    Do While sng + 1 > Timer ' tempo para escolher o tipo imposto
    Loop
    IE.Document.all("j_idt14:dataInicial_input").Value = Me.tx_DT_INI 'seleciona a data inicial
    IE.Document.all("j_idt14:dataFinal_input").Value = Me.tx_DT_FIN 'seleciona a data final
    IE.Document.getelementsByTagName("label")(5).Click
    IE.Document.all("j_idt14:btnConsEmitReceb").Click ' clica no botão consultar
    sng = Timer
    Do While sng + 4 > Timer ' tempo para escolher o tipo imposto
    Loop

    IE.Document.Links(0).Click ' clica e exportar para excel

    sng = Timer
    Do While sng + 4 > Timer ' tempo para escolher o tipo imposto
    Loop

    SendKeys "%{s}" ' clica em salvar para poder concluir o download

    sng = Timer
    Do While sng + 4 > Timer ' tempo para escolher o tipo imposto
    Loop

    '============================ Tranfere e renomeia o primeiro arquivo como NF-e Entrada =============
    Dim ArquivoNovo As String
    ArquivoNovo = "C:\Downloads\" & Dir("C:\Downloads\*.xls") ' posta onde sera salvo os arquivos

    sng = Timer
    Do While sng + 3 > Timer ' tempo para escolher o tipo imposto
    Loop
    Name ArquivoNovo As Me.tx_Dir_Dist & "" & Me.tx_Nome_Arq ' pasta onde sera transferido o arquivo ja renomeado

    Kill "C:\Downloads\*.xls"

    IE.Quit
    Set IE = Nothing

    DoCmd.GoToRecord , , acNext ' ERRO ESTA NESSA LINHA
    Next
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1815
    Registrado : 23/01/2018

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  crysostomo 16/2/2021, 21:52



    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    alexjc
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 23/02/2016

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  alexjc 17/2/2021, 00:08

    Não funciono,
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  DamascenoJr. 17/2/2021, 23:21

    É preciso entender o funcionamento do comando

    DoCmd.GoToRecord , , acNext

    Isso funciona lindamente quando usado em um botão em uma janela ativa. Ora bolas, o VBA vai saber que você está pedindo para ir para o próximo registro, não especificou se era em uma tabela ou formulário ou consulta, então o código vai usar o tipo de objeto ativo e o nome do objeto ativo. Simples. Bom isso não é?

    Mas e se você está mexendo com outras janelas e objetos? Bom, aí o VBA vai pedir mais detalhes, pois nesse caso existem várias "marias".

    Que tal dizer pro VBA com o que e com quem você está mexendo?

    DoCmd.GoToRecord acDataForm, Me.Name, acNext


    .................................................................................
    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
    alexjc
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 23/02/2016

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  alexjc 18/2/2021, 01:49

    Obrigado DamascenoJr. fiz conforme tinha me orientado e funcionou


    desculpe a minha ignorância, mas onde eu clico para dizer como resolvido
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  DamascenoJr. 18/2/2021, 01:55

    Faltou marcar o tópico como resolvido. Aguardamos sua ação.


    .................................................................................
    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
    alexjc
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 23/02/2016

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  alexjc 18/2/2021, 01:57

    Poise mas onde eu marco como resolvido ?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  DamascenoJr. 18/2/2021, 02:01

    O fórum tem alguns tópicos iniciais que ensinam os membros a usarem várias ferramentas da casa. É de extrema importância que os membros conheçam esses tópicos.

    Eis o link com dicas
    https://www.maximoaccess.com/f8-regras-do-forum

    Uma delas é como marcar o resolvido, abaixo o link
    https://www.maximoaccess.com/t860-resolucao-de-topicos


    .................................................................................
    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
    alexjc
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 23/02/2016

    [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora Empty Re: [Resolvido]O Comando ou a ação "IrParaRegistro" não está disponível agora

    Mensagem  alexjc 18/2/2021, 02:11

    ok obrigado

      Data/hora atual: 26/9/2021, 10:23