Newsgroup: it.comp.appl.access
Titolo: Backup Automatico

Ciao
Esiste la possibilita' in access di creare un
backup automatico del database, che rimanga costantemente
aggiornato ad ogni utilizzo, senza il mio intervento
manuale?
Spero di essere stato chiaro.
Grazie a tutti
Nicola

 ha scritto nel messaggio 
news:1zZ7f.10599$65.3...@twister1.libero.it...

Ciao Nicola,
potresti creare una procedura di Backup (se googli tra i vecchi post ne 
trovi diverse e di interessanti) e se non vuoi gestire la cosa da *evento 
fisico* (tipo click di un qualsivoglia bottone), puoi legare l'esecuzione 
del Backup ad esempio all'apertura del DB o alla chiusura ... oppure ti crei 
un VBScript e lo scheduli ... puoi lavorare su differenti strade, ma devi 
capire in primis quale risultato vuoi ottenere e la stradfa con cui 
ottenerlo, poi fidati, in questo NG e nelle sue risorse troverai tutto ciň 
di cui hai bisogno ;o)
-- 
Ciao
GeKODE 

 ha scritto nel messaggio 
news:1zZ7f.10599$65.3...@twister1.libero.it...

-- 
*Da Riaudo Marcello **********
------------------
Io utlizzo questa Procedura sull'evento Click quando esco dal 
Programma(Access 2000)
mi serve per il backup  ogni qualvolta si esce e per la compattazione quando 
mdb diventa 1,5 volte la precedente compattazione.
Spero che le istruzioni siano chiare
---------------------------
Private Sub Uscita_Click()
On Error GoTo Err_Comando49_Click
     Dim retVal As Variant, strCmd As String, NomeMdb As String, DirDest As 
String
    DoCmd.RunCommand acCmdSaveRecord
    DirDest = " C:\Turismo.cop\"            ' Indirizzo Destinazione copia
       K = Nz(DLookup("DimensioneDbase", "DatiGenerali"))    'Valore Ultima 
Compattazione su una tabella
 
                          esempioDatiGenerali
       Y = Int(FileLen(CurrentDb().Name) / 1000)
       If K = 0 Then
          K = Y
          Set MioDB = CurrentDb()
          MYSQL = "UPDATE DatiGenerali SET DatiGenerali.DimensioneDbase = " 
& Y
          MioDB.Execute (MYSQL)
          MioDB.Close
       End If
       If K * 1.5 < Y Then
          MessaggioOK = "A T T E N Z I O N E   C O M P A T T A R E   " & 
Chr(10) & _
                                    "U R G E N T E M E N T E   L A   P R O C 
E D U R A"
          DoCmd.OpenForm "CasellaSiNoRossa", , , , , acDialog
          If ControlloOK = "SI" Then GoTo Compatta
       End If
       If GLOPassword = "****Maltese" Or GLOPassword = "****Ria" Then
          'Copia su Computer C:............
            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)
       End If
            DoCmd.Close
            DoCmd.Quit
            Exit Sub
Compatta:
         'Compatta Db
          Set MioDB = CurrentDb()
          MYSQL = "UPDATE DatiGenerali SET DatiGenerali.DimensioneDbase = 0"
          MioDB.Execute (MYSQL)
          MioDB.Close
          MsgBox "Fare Uscire Tutti Gli Utenti Collegati Alla Procedura. " & 
Chr(13) & _
                 "Fare la Copia Dopo Compattazione", vbCritical
          CommandBars("Menu Bar"). _
          Controls("Strumenti"). _
          Controls("Utilità database"). _
          Controls("Compatta e ripristina database..."). _
          accDoDefaultAction
          Exit Sub
Exit_Comando49_Click:
    Exit Sub
Err_Comando49_Click:
    MsgBox Err.description
    Resume Exit_Comando49_Click
End Sub
----------------
Saluti
Marcello
************************************