Buon pomeriggio ho creato un pulsante per la chiusura e il backup del db ma alla fine mi da questo errore:
"IMPOSSIBILE TROVARE IL PERCORSO" in cosa sbaglio?
grazie per l'aiuto e inserisco il codice:
Private Sub cmdChiudi_Click()
DoCmd.SetWarnings False
If MsgBox("Vuoi chiudere definitivamente e Uscire dal Programma?", vbDefaultButton2 + vbInformation + vbYesNo) = vbYes Then
'Routine che Effettua il Backup del Db
On Error GoTo Err_cmdChiudi_Click
Dim oldpath, newpath, archive As String
Dim filesys As Variant
Dim dtsei
Dim mesprec
Dim miopath As String
Set filesys = CreateObject("Scripting.FileSystemObject")
' path di origine del DB
Dim pdb As String
pdb = "C:\Users\Pastore Giuseppe\Desktop\Ge.Mag.Fun\"
TUO PERCORSO DATABASE
oldpath = pdb
archive = "GeMag.accdb" ' nomefile del DB
dtsei = Right(Year(Now), 2) & _
Right("0" & Month(Now), 2) & _
Right("0" & Day(Now), 2)
' path destinazione DOVE CREARE UNA CARTELLA BACKUP
newpath = oldpath & "Gestione\Backup del " & Left(dtsei, & "\"
'*** Copia giornaliera ***
If Not (filesys.FolderExists(newpath)) Then filesys.CreateFolder (newpath)
filesys.CopyFile oldpath & archive, newpath & dtsei & ".accdb", True
If (Left(DateSerial(Year(Now), Month(Now) + 1, 0), 2)) - (Day(Now)) = 0 Then filesys.CopyFile oldpath & archive, oldpath & "Gestione\Backup del" & dtsei & ".accdb", True
'POI OGNI 15 DEL MESE CANCELLA LE PRECEDENTI COPIE
If Day(Now) = 15 Then
mesprec = DateSerial(Year(Now), Month(Now) - 1, Day(Now))
miopath = (oldpath & "Gestione\Backup del\" & Right(Year(mesprec), 2) & Right("0" & Month(mesprec), 2))
If filesys.FolderExists(miopath) Then
filesys.DeleteFolder (oldpath & "Gestione\Backup del\" & Right(Year(mesprec), 2) & _
Right("0" & Month(mesprec), 2))
End If
End If
DoCmd.Quit
Exit_cmdChiudi_Click:
Exit Sub
Err_cmdChiudi_Click:
MsgBox Err.Description
Resume Exit_cmdChiudi_Click
'DoCmd.Quit
Else
End If
DoCmd.SetWarnings True
End Sub