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

    [Resolvido]Logica de Error

    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Logica de Error Empty [Resolvido]Logica de Error

    Mensagem  alexjc 20/3/2021, 16:03

    Tenho um código onde baixo planilhas, renomeio, e guardo nas pastas e tudo mais.

    porem é meio lento, pois coloco pausas de vários segundos em um comando e outro, para dar tempo da pagina carregar, estou tentando aplicar uma logica onde se der erro o código para por 1 segundo e tenta novamente e se não der erro ele sai do loop.



    For i = 1 To 10 ' o loop tentara 10 vezes

    If Error Then ' se der erros ( aqui esta o problema não sei como usar uma logica aqui )
    Sleep 1000 'esperar 1 segundo

    Else
    driver.FindElementByXPath("//*[@id='root']/div/div/form/div/div/div/button/span").Click 'clicar no botão
    GoTo sair
    End If

    Next ' ir para a próxima tentativa

    sair: msgbox("ok deu certo")
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  Noobezinho 21/3/2021, 13:17

    Alex

    Veja se é isso que pretende.

    Código:

    For i = 1 To 10 ' o loop tentara 10 vezes
    On Error Resume Next
    If Error Then ' se der erros ( aqui esta o problema não sei como usar uma logica aqui )

    Pausa 1 'esperar 1 segundo

    Else
    driver.FindElementByXPath("//*[@id='root']/div/div/form/div/div/div/button/span").Click 'clicar no botão
    GoTo sair
    End If
    Next ' ir para a próxima tentativa
    sair: MsgBox ("ok deu certo")

    Função Pausa

    Código:

    Public Function Pausa(Nsec As Variant)
    'uso: Pausa 1  = 1 segundo
    On Error GoTo Err_Pausa
        Dim PausaTime As Variant, start As Variant
        PausaTime = Nsec
        start = Timer
        Do While Timer < start + PausaTime
        DoEvents
        Loop
        Exit_Pausa:
     Exit Function

    Err_Pausa:
        SsgBox Err.Number & " - " & Err.Description, vbCritical, "Pausa()"
    Resume Exit_Pausa
    End Function

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  alexjc 22/3/2021, 23:35

    infelizmente não funciono como o esperado, pois ocorre o erro e ele pausa, porem ele esta pulando a opção de clicar no botão
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  Noobezinho 22/3/2021, 23:40

    Colocou essa frase?

    On Error Resume Next

    Ela diz ao Access: Se encontrar algum erro, continue na próxima (linha).


    É ela que vai deixar tratar o erro na linha seguinte.

    Aqui foi testado antes de disponibilizar.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  alexjc 22/3/2021, 23:46

    coloquei,

    agora estou tentando de uma maneira mais simples assim. ==== Tipo


    se der erro pular para a ultima linha do loop e se der certo click no botão e sai do loop mas ainda esta dando erro


    For i = 1 To 20 ' o loop tentara 10 vezes
    driver.Wait (1000)
    On Error GoTo pular ' se der erros ( aqui esta o problema não sei como usar uma logica aqui )

    driver.FindElementByXPath("//*[@id='root']/div/div/form/div/div/div/button/span").Click 'clicar no botão
    GoTo sair

    pular:

    Next ' ir para a próxima tentativa
    sair: 'MsgBox ("ok deu certo")
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  Noobezinho 22/3/2021, 23:48

    Poste o código completo quero ver.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  alexjc 23/3/2021, 00:00

    Obrigado !!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  Noobezinho 23/3/2021, 00:14

    Pode dizer o que "tava" pegando?


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  alexjc 23/3/2021, 02:49

    Ainda nao tenho certeza por que não entendo muito de vba mas acredito q tinha linhas em branco, e parece q era isso
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Logica de Error Empty Re: [Resolvido]Logica de Error

    Mensagem  Noobezinho 23/3/2021, 11:22



    Só vou te dar uma dica, não precisa responder.

    Na pagina de VBA quando quiser depurar o código pra ver em que linha está o erro, faça isso:

    Antes de de executar o código clique no inicio da linha onde começa o código, digo, por exemplo,

    nessa linha você clicaria a esquerda do Antes.

    Assim que clicar, vai aparecer uma bolinha no local e a frase fica também pitada em ocre.

    Chamamos isso de ponto de interrupção, como o nome diz, o código para aí quando, acionar para executá-lo.

    Então cada vez que apertar a tecla F8, o Access vai executar linha por linha, vai avisa quando tiver erro, então

    você conserta e continua apertando até consertar as linha que tiver erros.

    { }'s

    Balem





    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 13/6/2021, 00:49