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

    Run Time Error 3734

    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    Run Time Error 3734 Empty Run Time Error 3734

    Mensagem  sardao 7/8/2015, 15:48

    Boa tarde,

    Estou a fazer uma actualização de uma tabela através de código VBA mas infelizmente estou a ter um erro no sistema que me esta a parar sempre o processo, indicando que a tabela de pesquisa esta a bloqueada por outro utilizador.
    Existe alguma forma de esse erro passar sem aparecer a janela que apresento em anexo?

    Run Time Error 3734 2gx4rqv
    Run Time Error 3734 2cxw8k2
    Obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  Silvio 7/8/2015, 17:18

    Boas Pedro...

    Bom, se quiser que o erro não apareça mais na tela basta apenas utilizar o:
    On Error Resume Next ....logo abaixo da primeira linha.

    Porém, se quiser avisar o teu utilizador que a tabela está sendo atualizada pode colocar o seguinte:

    On error 3734 goto fim

    fim:
    iff err.number = 3734 then
    msgbox " Aguarde, tabela sendo atualizada"
    end if


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  sardao 7/8/2015, 17:27

    Ola Silvio,

    Eu já tentei isso, mas na linha de codigo quando tento por

    "On error 3734 goto errinf"

    ele devolve-me um erro a dizer: Syntax error


    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  Silvio 7/8/2015, 18:13

    Copia e cola do jeito que está abaixo

    On error 3734 goto fim

    fim:
    if err.number = 3734 then
    msgbox " Aguarde, tabela sendo atualizada"
    end if


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  sardao 7/8/2015, 18:36

    Olá Silvio,

    Como pode ver o erro mantem-se
    Run Time Error 3734 2ilqw2
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  Silvio 7/8/2015, 18:44

    eita...Ato falho meu mesmo...desculpe..

    On error  goto fim

    fim:
    if err.number = 3734 then
    msgbox " Aguarde, tabela sendo atualizada"
    end if

    Apenas deixa um, retire o seu e teste o que eu fiz para você.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  sardao 7/8/2015, 19:04

    Silvio,

    Acontece que a 1ª vez que da o erro ele gera a mensagem, mas a 2ª vez volta ao erro.. :S
    Nao seria suposto sempre que desse este erro ele voltasse a dar a mensagem?
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  Silvio 7/8/2015, 19:18

    Me passa o teu projeto para eu dar vista aos olhos


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  sardao 7/8/2015, 19:24

    Silvio,

    Infelizmente não posso passar uma vez que isto não me pertence mas sim a empresa onde trabalho.
    Ja para nao falar que ja estamos a falar de um projecto com muita informação e ligações em rede.
    Desculpa...

    Também descobri que se abrir a tabela que onde estou a fazer a pesquisa ele nao dá nenhum erro e valida muito mais rápido.
    Agora vou ver se consigo abri-la sem estar visivel e depois fecha-la atraves do VBA
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  Silvio 7/8/2015, 19:44

    OK...sem crise...


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    Run Time Error 3734 Empty Re: Run Time Error 3734

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2024, 18:13