[Resolvido]Ajuda formulário rede

Olá Pessoal, sou iniciante em access mas já me utilizei de alguns códigos e exemplos aqui para aperfeiçoar algumas coisas por aqui, vamos a duvida.

Tenho um banco de dados que é acessado por 3 computadores, queria faze-lo salvar um backup semanal, porém somente no computador principal, eu consegui de um jeito que ele cria o backup no computador em que está sendo acessado, precisando ter uma pasta com o mesmo nome em todos os computadores para enviar o backup para ela, como faço para colocar como pasta de destino o nome da pasta que está no computador principal independentemente de qual pc acesse o banco de dados ele deverá salvar sempre no principal. desde já agradeço a ajuda de todos.

Olá, seja bem vindo ao fórum!

Faltou comentar como está fazendo para salvar localmente, passando os códigos usados, para vermos como adaptar.

Obrigado criquio o código abaixo foi a forma que deu mais certo que eu tentei, porém como disse ela salva no C:\backMDB do computador que está acessando o banco de dados Controle ISMO-08 e gostaria de salvar somente onde o banco de dados original está salvo.

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\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\Controle ISMO-08.mdb", Caminho & Format(Now, "_mmyyyy") & ".mdb"
End Function


Private Sub Form_Close()
Call BackBD
End Sub

Basta alterar o caminho:

Caminho = "X:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup

ou utilizando o caminho UNC:

Caminho = "\\Nome do comuputador\Backup" 'Nome da pasta e nome de inicio para o banco de backup

Eu já tinha tentado esse caminho UNC e não deu certo, aproveitando da sua nobreza criquio, pra eu mudar pra backup semanal é só eu colocar ww no lugar do mm na linha abaixo?
CopiaSegura.CopyFile CurrentProject.Path & "\Controle ISMO-08.mdb", Caminho & Format(Now, "_mmyyyy") & ".mdb"

Faça os testes e veja se ww retorna o resultado desejado.

Tentei aqui e a parte do X: funcionou, e o "ww" ficou quase do jeito q eu queria, o problema é que ele salva com o nome tipo assim 392012 e queria que ele colocasse o dia tipo 25_09_2012 e mais pra frente colocar pra salvar 2x na semana (segunda e quarta) que são os dias em que temos maior inserção de dados, se puder ajudar? desde já agradeço, pois se ficar assim já melhora uns 200% em relação ao que era

Acrescente uma condição:

If Weekday(Now) = 2 Or Weekday(Now) = 4 Then
...
End If

agora está dando problema na linha em negrito, aparece arquivo não localizado, pode me ajudar?

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "X:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
If Weekday(Now) = 2 Or Weekday(Now) = 4 Then
CopiaSegura.CopyFile CurrentProject.Path & "\Controle ISMO-08.mdb", Caminho & Format(Now, "_ddmmyyyy") & ".mdb"
End If
End Function

Resolvi o problema, muito obrigado criquio, mudei o x: para o nome do computador na rede, porém coloquei um nome mais curto no pc e resolveu o problema. Como faço para encerrar

É só clicar no botão Resolvido ali embaixo logo acima e à direita do botão que clica para enviar a mensagem.

Tópico resolvido