Newsgroup: it.comp.appl.access
Titolo: Backup automatico db Access!!

Ciao a tutti,
vorrei trovare una procedura che mi faccia una copia di backup
automatico del database access in uso alla fine di ogni sessione in una
cartella del pc!!
Eventualmente sovrascrivendo ogni volta la vecchia copia!!
E' possibile farlo?Se si,come?
Il db è in un pc che fa da server ed è condiviso e utilizzato da piu
pc lient contemporaneamente!!
Mi affido alle vostre conoscenze e vi ringrazio in anticipo
Fab

 ha scritto nel messaggio 
news:1156416719.6...@74g2000cwt.googlegroups.com...
Ciao a tutti,

E' possibile farlo?Se si,come?


Ciao noi utilizziamo COBIAN BACKUP 6.1 gratuito
www.cobian .se

Intanto grazie per la risposta!
Non conosco Cobian backup,come funziona?
Cercavo qualcosa che sull'evento apertura o chiusura del database mi
creasse un copia del BE (back-end) del mio mdb anche se questo sia
aperto su un altro client(possibilmente!!)!
Il database è diviso in BE e FE(residenti in ciascun client)
Avevo trovato questo codice in un altro post del newsgroup,ma non mi
crea la copia:
rivate Sub Form_Timer()
       Dim retVal As Variant, strCmd As String, NomeMdb As String,
DirDest As String, Stringa  As String, Stringa2  As String
           DirDest = "  D:\copia\" ' Indirizzo Destinazione copia
           'Copia su Computer D:............
            Stringa2 = (CurrentDb().Name)
            Stringa = Right(Stringa2, Len(Stringa2) -
InStrRev(Stringa2, "\"))
            Strcriteria1 = "A" & Mid(Date, 7, Len(Date)) & "M" &
Mid(Date, 4, 2) & _
                                  "G" & Mid(Date, 1, 2) & "T" & Time
            Strcriteria = Strcriteria1 & Stringa
            strCmd = "Xcopy " & Stringa2 & DirDest & Strcriteria
            retVal = Shell(strCmd, 1)
            DoCmd.Quit
End Sub
Qualche aiuto please?
Grazie mille
fab
David ha scritto:


fab ha scritto:

Finchè lato Client ci sono utenti connessi non è possibile.
Quando gli utenti sono sconnessi basta un Copy su file VBS o BAT
da inserire come attività Schedulata nelle azioni pianificate....
Il problema è come far sloggare utenti nel caso siano loggati...!
Se sei certo che alle 24:00 non lo usa nessuno fallo in ore sicure.
Se invece la cosa non è pensabile si può inserire una procedura
lato Client ed una lato Server.
Lato Server una Tabella con un campo LOGOUT, e lato client una Form
in modalitò Hidden che su Timer a 5 secondi legge il campo LOGOUT
e nel caso sia a True dopo 3minuti esegue una chiusura del client.
Lato Server o lato procedura schedulata dovrai temporizzare il Copy
almeno a 4minuti
dopo il Logout di tutti i Client...!
Puoi anche complicare la cosa inserendo una Tabella di LOGIN nella
quale i Client si
registrano al Login ed Eliminano la registrazione al Logout.... in
questo modo finchè
la tabella non è vuota non puoi fare il Logout.
Il problema è se un Client si pianta, che il Login non viene
rimosso....
Quì si può fare un sistema di Cancellazione automatica ogni 3 minuti
di tutti gli User
lato Server e lato Client ogni Minuto verificare se il Login è
presente altrimenti riscrivere...!
Il completamento di tutto sembra complesso, ma è più difficile
spiegarlo che farlo.
@Alex

 ha scritto nel messaggio 
news:1156430690.6...@p79g2000cwp.googlegroups.com...
fab ha scritto:










@Alex
Ma un senplice...?
Public Function FileLbdExists(sFileName As String) As Boolean
On Error GoTo ErrHandle
    If FileLbdExists = CBool(Len(Dir(sFileName)) <> 0) Then
        FileLbdExists = False
    Else
        FileLbdExists = True
    End If
ErrHandle:
If Err.Number = 0 Then Exit Function
If Err.Number = 52 Then Exit Function
If Err.Number = 53 Then Exit Function
If Err.Number = 2501 Then Exit Function
End Function
Morgan ;)

 Morgan ;)
--
Lorenzo