Backup van bestaande database

[linkav]

Beste,

Ik wil dat er iedere middag een kopie van de huidige huidige data genomen wordt.

Daarom gebruik ik volgende code

    'Create a accdb mdb file
    Set db = ws.CreateDatabase(tmpBackupPathFile, dbLangGeneral)

    'For lookup tables, export both table definition and data to new accdb file
    tmpBackupPathFile = tmpBackupPathFile & ".accdb"
   
    Set db = CurrentDb
    Dim tdfLoop As TableDef
    
    DoCmd.SetWarnings False
    DoCmd.Hourglass True

    For Each tdfLoop In db.TableDefs
        If Left(tdfLoop.Name, 3) = "TBL" Or Left(tdfLoop.Name, 5) = "UCSys" Then
            tmpTableName = tdfLoop.Name
            DoCmd.TransferDatabase acExport, "Microsoft Access", tmpBackupPathFile, acTable, tmpTableName, tmpTableName, False
        End If
    Next tdfLoop

Telkens het commando DoCmd.TransferDatabase uitvoer krijg ik volgende melding:


Hoe kan ik deze uitzetten?

 

[linkav]

Niemand een oplossing?

 

[perpon]

Een mogelijke oplossing is om de backupmap als veilige locatie toe te voegen.
Jan