FILECOPY COM ACESS DANIED 70

JOERBETH 08/12/2006 11:59:09
#188813

Pessoal, bom dia!!!

Esse erro está me perseguindo e não sei más para onde correr... já fiz de tudo e não resolve..

Seguinte, tenho um código, onde abro dois bancos de dados, e duas tabelas, onde copio os dados de uma para outra tabela, bom , atÃ© aÃ tudo bem, após isso, testo para saber de já acabou e daÃ, tenho que copiar o arquivo com os dados novos para o disquete, aÃ que está o problema, toda vez dá "Acess Danied erro 70", já tentei fechar os bancos, as tabelas antes da copia e nada, tá assim agora:

If RS_MARCACAO2.State = adStateOpen Then RS_MARCACAO2.Close
If RS_MARCACAO.State = adStateOpen Then RS_MARCACAO.Close
Set RS_MARCACAO2 = Nothing
Set RS_MARCACAO = Nothing
BD.Close
BD2.Close
Me.MousePointer = 11
FileCopy "c:\metalma\ponto2.fdb", "a:\ponto2.fdb"
MsgBox "Copia para o disquete efetuada com sucesso!", vbInformation, "Aviso ao Usuário"
Me.MousePointer = 1
Exit Do

*************************
vejam que já fiz atÃ© fechar os bancos, más nada... depois que dá o erro, saiu do programa, e faço um teste colocando em um novo projeto somente:

Me.MousePointer = 11
FileCopy "c:\metalma\ponto2.fdb", "a:\ponto2.fdb"
MsgBox "Com sucesso!"
Me.MousePointer = 1
Exit Sub

***********************
ai copia normal... o que pode estar acontecendo?^

Falow

Joerbeth

USUARIO.EXCLUIDOS 08/12/2006 12:03:57
#188814 Resposta escolhida

Não tenho certeza, mas tente colocar um set bd = nothing:

If RS_MARCACAO2.State = adStateOpen Then RS_MARCACAO2.Close
If RS_MARCACAO.State = adStateOpen Then RS_MARCACAO.Close
Set RS_MARCACAO2 = Nothing
Set RS_MARCACAO = Nothing
BD.Close
BD2.Close
Set BD = Nothing
Set BD2 = Nothing
DoEvents
Me.MousePointer = 11
FileCopy "c:\metalma\ponto2.fdb", "a:\ponto2.fdb"
MsgBox "Copia para o disquete efetuada com sucesso!", vbInformation, "Aviso ao Usuário"
Me.MousePointer = 1
Exit Do

teste aÃ e volte a postar...flw

JOERBETH 08/12/2006 12:07:54
#188815

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar