I have a backup routine
Code:
Dim FSO As New FileSystemObject
Dim FilePath As String, FileDest As String
Dim FolderName As String, ExtHD As String
With DoCmd
.SetWarnings False
.OpenQuery "CustomerTBackupQ"
.OpenQuery "DonorTBackupQ"
.OpenQuery "EmployeeTBackupQ"
.OpenQuery "LabTBackupQ"
.OpenQuery "MROTBackupQ"
.OpenQuery "OfficerEmployerTBackupQ"
.OpenQuery "ReasonForTestTBackupQ"
.OpenQuery "TestTBackupQ"
.OpenQuery "GroupTBackupQ"
.OpenQuery "SettingTBackupQ"
.OpenQuery "InventoryTBackupQ"
.OpenQuery "InventoryXOperationBackupQ"
.OpenQuery "ConsortiumTBackupQ"
.OpenQuery "DonorSignatureTBackupQ"
.OpenQuery "CollectorSignatureTBackupQ"
.OpenQuery "SignInTBackupQ"
.OpenQuery "DistrictTBackupQ"
.SetWarnings True
End With
FolderName = Format(Date, "mmmmyy")
FilePath = "C:\Users\bogle\OneDrive - aavcor.com\Documents\DB Backups\BackupsFromQuery_aavdb.accdb"
FileDest = "C:\Users\bogle\OneDrive - aavcor.com\Documents\DB Backups\" & FolderName & "\be_backup_" & Format(Date, "mm-dd-yyyy") & ".accdb"
ExtHD = "D:\Database Backups\" & FolderName & "\be_backup_" & Format(Date, "mm-dd-yyyy") & ".accdb"
FSO.CopyFile FilePath, FileDest, True
On Error Resume Next
FSO.CopyFile FilePath, ExtHD, True
MsgBox "Backup Successful!", vbOKOnly + vbExclamation
Set FSO = Nothing
but it was suggested to me to try the database.execute method like this:
Code:
With CurrentdB
.Execute "CustomerTBackupQ", dbFailOnError
.Execute "DonorTBackupQ", dbFailOnError
.Execute "EmployeeTBackupQ", dbFailOnError
.Execute "LabTBackupQ", dbFailOnError
.Execute "MROTBackupQ", dbFailOnError
.Execute "OfficerEmployerTBackupQ", dbFailOnError
.Execute "ReasonForTestTBackupQ", dbFailOnError
.Execute "TestTBackupQ", dbFailOnError
.Execute "GroupTBackupQ", dbFailOnError
.Execute "SettingTBackupQ", dbFailOnError
.Execute "InventoryTBackupQ", dbFailOnError
.Execute "InventoryXOperationBackupQ", dbFailOnError
.Execute "ConsortiumTBackupQ", dbFailOnError
.Execute "DonorSignatureTBackupQ", dbFailOnError
.Execute "CollectorSignatureTBackupQ", dbFailOnError
.Execute "SignInTBackupQ", dbFailOnError
.Execute "DistrictTBackupQ", dbFailOnError
End With
When I run this method, it immediately returns an error saying it can't find database object CustomerTBackupQ, which is the first item on the list. Is there anyone who has some experience with this method. I'm sure it's a matter of faulty syntax. The reason why I'd like to try it this way is because according to the MS docs, it will reverse the action if an error occurs. That sounds pretty cool to me. TIA