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

salve,
ho un  database diviso in BE e FE e vorrei che nella maschera iniziale vi
possa essere un pulsante che permettesse di creare delle copie di backup
premendo quel pulsante, sapete come posso fare??
ps
i due file mbd sono: il BE č protetto da una password
e invece nel FE č presente una protezione a livello utente..
grazie per il vostro aiuto..

 ha scritto nel messaggio
news:cYQLc.37501$5D1.1...@news4.tin.it...

Io uso questa.Adattala come credi.
SunRex
Function BackUp()
Dim DirBackup As String
Dim DataBackup As String
Dim NomeFile As String
Dim StringaBackup As String
Dim strPathDb As String
Dim intScelta As Integer
On Error GoTo ErrHandle
intScelta = MsgBox("Effettuare il backup degli archivi?", vbApplicationModal
+ vbQuestion + vbYesNo)
If intScelta = vbNo Then
    Exit Function
Else
    ChiudiForms
    If Dir("C:\TuaCartella\Backup\", vbDirectory) = "" Then
               MkDir ("C:\TuaCartella\Backup\")
    Else
     End If
        DirBackup = "C:\TuaCartella\Backup\"
        DataBackup = Format(Date, "dd-mm-yyyy")
        NomeFile = DataBackup & "-backup" & ".mdb"
        StringaBackup = DirBackup & NomeFile
        strPathDb = "C:\TuaCartella\BackEnd\TuoDB.mdb"
        FileCopy strPathDb, StringaBackup
        MsgBox "Backup degli archivi completato.", vbApplicationModal +
vbInformation + vbOKOnly
End If
ErrHandle:
If Err.Number = 0 Then
Exit Function
Else
MsgBox "Errore Numero " & Err.Number & "  Testo Errore : " & Err.Description
End Function
Sub ChiudiForms()
On Error GoTo ErrHandle
Dim NumForms As Integer, i As Integer
 NumForms = Forms.Count
 For i = NumForms - 1 To 0 Step -1
        If Forms(i).name = "frmSplash" Then
        Else
            DoCmd.Close acForm, Forms(i).name
        End If
 Next i
ErrHandle:
If Err.Number = 0 Then Exit Sub
MsgBox "Errore Numero " & Err.Number & "  Testo Errore : " & Err.Description
End Sub

ma come posso associarla ad un pulsante??
grazie


ok risolto
adesso il prob è che quando non trova la cartella nel quale creare il
backup, mi dà errore, in pratica il comando MkDir non funziona....

 ha scritto nel messaggio
news:pd8Mc.34796$OR2.1...@news3.tin.it...

Che errore ti da?
SunRex

errore 76.... impossibile trovare il percorso...


MkDir ("C:\TuaCartella\Backup\")
Controlla bene la directory
SunRex


ma questo comando non dovrebbe carla la cartella se manca???
grazie

 ha scritto nel messaggio
news:jodMc.36093$OR2.1...@news3.tin.it...

Non so che dirti a me funziona.Ed anche sulla guida in linea non ci sono
cose particolari da settare.Esegui in debug e cerca di capire cosa non va
prova a crearla prima la directory e vedi se il resto del codice ti
funziona.
SunRex
Istruzione MkDir
Crea una nuova directory o cartella.
Sintassi
MkDir percorso
L'argomento obbligatorio percorso è un'espressione stringa che identifica la
directory o la cartella da creare. Può includere l'unità. Se l'unità non
viene specificata, MkDir crea una nuova directory o cartella nell'unità
corrente.
In questo esempio l'istruzione MkDir viene utilizzata per creare una
directory o una cartella. Se l'unità non è specificata, la nuova directory o
la nuova cartella verrà creata nell'unità corrente.
MkDir "MIADIR" ' Crea una nuova directory o cartella.

 funziona.
anche il debug non mi segnala particolari problemi, ma MkDir non crea la
cartella e mi restituisce un errore 76 che non trova la cartella
richiesta....

 ha scritto nel messaggio news:dhoMc.37061$OR2.1...@news3.tin.it...

Occhio:
- la sintassi è MkDir "percorso" non MkDir("percorso");
- se devi creare una sottocartella e anche la cartella principale, che la contiene, non esiste ti presenta l'errore;
Ciao.
-- 
Sergio MAZZA