[Resolvido]Erro 70 - Permissão Negada

Gente,
boa tarde

Estou com um código funcionando certinho, mas as vezes o sistema gera o erro 70 (permissão negada).

O estranho é que o erro nem sempre acontece (o sistema vai funcionando até que uma hora o erro aparece) além de que eu alterei as permissões de forma que qualquer usuário tivesse acesso total.

O que estou fazendo é apagar o arquivo usando o kill.

Alguém possui alguma sugestão ?

Abraços

Claudio Giroto

Boa noite.

Erro 70 pode ter várias origens. Veja alguns exemplos:
https://support.microsoft.com/pt-br/kb/180384/pt-br
http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/6631000911

Uma forma de contornar esse erro é inserir a rotina

On error goto fim:
bla...bla..
bla...bla..

fim:
if err.number ="70" then
msgbox" uma mensagem qualquer",vbexclamation, me.caption
end if

Ou se não quiser exibir nada. Coloque abaixo do Private sub alguma coisa do teu formulário.

On error Resume next


Precisamos de mais detalhes de onde está o projeto, permissão de usuários nas estações etc..etc.

Abraços

Silvio,
bom dia

   Agradeço a ajuda, mas acredito que os 2 exemplos não se aplicam ao meu caso - pois pelo que entendi tratam de arquivos armazenados em outra máquina.

   No meu caso, todo o "esquema" é em máquina local e a pasta em questão possui as permissões (total) para qualquer usuário.

   Segue abaixo algumas descrições que podem ajudar a entender:

* O windows que uso é o 7
* Pasta na unicade C com as permissões:
   Usuários autenticados - controle total
   Sistema - controle total
   Administradores (nome do computador\administradores) - controle total
   Usuários (nome do computador\usuários) - controle total
* O programa que gera o arquivo é o PCOMM - usado pela empresa que trabalho
* O sistema que eu fiz no ACCESS faz:
  Monitora a existência do arquivo texto na pasta em questão
  Se o arquivo existir, ele importa algumas informações e apaga o arquivo
* Normalmente funciona, mas as vezes o erro é gerado - esse é o problema, eu preciso que o arquivo SEMPRE seja apagado depois.
* O método que estou usando para apagar o arquivo é usando o KILL (não conheço nenhuma outra artenativa).


Abraços e espero que tenha alguma outra luz para me ajudar a guiar.

Obrigado novamente.


Claudio Giroto

Claudio

Tudo o que colocamos é apenas sugestões para você testar no teu aplicativo,
já que não o temos em nossa frente.

ClaudioGiroto escreveu:
Monitora a existência do arquivo texto na pasta em questão
Se o arquivo existir, ele importa algumas informações e apaga o arquivo
* Normalmente funciona, mas as vezes o erro é gerado - esse é o problema, eu preciso que o arquivo SEMPRE seja apagado depois.

Exatamente no momento entre importar as informações e apagar o arquivo, use um  Loop  For... next ou um Pause se tiver a rotina
para dar "um tempo" e o Access importar e gravar as informações para então deletar o arquivo.

Caso isso não funfe, use a sugestão do amigo Silvo, coloque na rotina
On error resume next
Com isso, o access irá ignorar qualquer erro na rotina.

Verifique se após colocar essa linha no código, se o arquivo sera apagado.

[ ] 's

Noob

Gente,
bom dia

Eu coloquei o resume next e acabou gerando um resultado positivo... Ainda estou testando, mas acredito que tenha resolvido o problema.

O que aconteceu foi o seguinte: gera o erro, ignora e segue adiante importando os dados e apagando o arquivo.

Agradeço a ajuda, qualquer outra anormalidade retornarei para pedir ajuda.

Claudio Giroto