Run Time Error 3734

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?



Obrigado

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

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

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

Olá Silvio,

Como pode ver o erro mantem-se

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ê.

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?

Me passa o teu projeto para eu dar vista aos olhos

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

OK...sem crise...