[Resolvido]Erro com back-up no form inicializar do banco de dados

Bom dia a todos,

Dividi o banco de dados, para que pudéssemos atualizá-lo em rede ao mesmo tempo, através do menu ferramentas/utilitário de banco de dados/divisor de tabelas, operação que por sinal é muito simples, porém está ocorrendo um erro na rotina de backup no momento ao fechar o banco de dados. Tenho que realizar essa rotina em cada micro da rede que tenha o banco de dados?

Obrigado.

marcos alan.

Ola Marcos;

Eu não sei qual é a rotina que está a utilizar, se puder colar aqui, agradecemos e vemos o que está a acontecer.

Olá JPaulo,

Fiz o seguinte:
Pasta no C:\BackMDB\Consproc
Pasta C:\Consproc (onde está compartilhando os arquivos “ConsProc” e “ConsProc_be”

E a rotina que aprendi aqui no Fórum:

Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\BackMDB\ConsProc\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\ConsProc.mdb", Caminho & Format(Now, "_ddmmyyyy") & ".mdb"
End Function

Inclusive, nos dois micros vinculei as tabelas, o banco de dados não abre a tela inicializar e todo vez que eu clico em fechar de algum formulário retorna o erro no campo do Backup: CopiaSegura.CopyFile CurrentProject.Path & "\ConsProc.mdb", Caminho & Format(Now, "_ddmmyyyy") & ".mdb".

Obrigado.

marcos alan.

CurrentProject.Path indica o local onde o banco está, possivelmente teremos de alterar isto.

Vou verificar.

ok,

obrigado.

marcos alan.

Dê uma testada assim:

Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.

Dim CopiaSegura As Object
Dim Caminho As String
Dim strPatch As String
Caminho = "C:\BackMDB\ConsProc\Backup" 'Nome da pasta e nome de inicio para o banco de backup
strPatch = "C:\Consproc" 'Local onde está o BackEnd
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile strPatch & "\ConsProc.mdb", Caminho & Format(Now, "_ddmmyyyy") & ".mdb"
End Function

JPaulo, Bom Dia.
Fiz a alteração no FrontEnd, mas é estranho porque nos outros micros em rede as alterações não são feitas, mesmo assim refiz em cada micro o processo novamente de vinculação e importação, mas a rotina do backup alterada no FrontEnd não é atualizada nos demais, então refiz essa rotina no micro da rede, mas continua retornando o mesmo erro.

Obrigado.

marcos alan.

Ola Marcos bom dia;

Eu não entendi ainda o que pretende fazer não.

Essa rotina de Backup faz copia do BackEnd acrescentando a data ao nome do Banco.
Todos os FrontEnds se tiverem a chamar essa rotina, por exemplo no evento ao fechar do form principal ela terá de funcionar.

Olá JPaulo,

Pretendo que o backup seja realizado no micro principal, onde estou com o BackEnd e FrontEnd, mas devido a esses conflitos, vou repetir a rotina em um outro banco e verificar o que acontece.

obrigado.

marcos alan.

Olá JPaulo,

Refiz todo o procedimento em outro banco de dados várias vezes e retornou o mesmo tipo de inconsistência na linha do backup:
CopiaSegura.CopyFile strPatch & "\ConsProc.mdb", Caminho & Format(Now, "_ddmmyyyy") & ".mdb"

Você pode me indicar outro tipo de backup pra eu fazer outras tentativas.

Obrigado.

marcos alan.

Veja se tem marcada a referencia:
Microsoft Scripting Runtime

Mude o nome da pasta ConsProc para outro nome qualquer, para não ser igual ao banco.