fjvanlochem
Verenigingslid
- Lid geworden
- 23 nov 2009
- Berichten
- 53
Forumleden,
Als beginnend Access-VBA-er heb ik onderstaande backup-routine geschreven.
Deze werk goed.
Nu is mijn vraag:
Als de te backuppen Backend-versie wijzigt wil ik dat deze in de routine ook wordt gewijzigd zodat automatisch de laatste versie wordt opgeslagen
Ik vermoed met behulp van een variabele waarin de nieuwe versienaam wordt geladen.
Kan en wil iemand mij vertellen of dit mogelijk is en zo ja, hoe dit werkt? Graag met een voorbeeld.
Bij voorbaat dank.
Floris
Als beginnend Access-VBA-er heb ik onderstaande backup-routine geschreven.
Deze werk goed.
Nu is mijn vraag:
Als de te backuppen Backend-versie wijzigt wil ik dat deze in de routine ook wordt gewijzigd zodat automatisch de laatste versie wordt opgeslagen
Ik vermoed met behulp van een variabele waarin de nieuwe versienaam wordt geladen.
Kan en wil iemand mij vertellen of dit mogelijk is en zo ja, hoe dit werkt? Graag met een voorbeeld.
Bij voorbaat dank.
Floris
Code:
Private Sub Backup_Click()
Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim msg As Integer
Dim mijndb As DAO.Database
Dim Algtabel As DAO.Recordset
Set mijndb = CurrentDb
Set Algtabel = mijndb.OpenRecordset("Algemeen")
On Error GoTo fout
Algtabel.MoveFirst
vrbckUp1= Algtabel![BCKpad1]
vrbckUP2 = Algtabel![BCKpad2]
Close
strBestandNaam = "Admin Back versie 2.0.accdb" 'Dit is het te backuppen bestand
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam 'Hier wordt datum toegevoegd aan de bestandsnaam die gebackupd wordt.
strBestandNaam = CurrentProject.Path & "" & strBestandNaam 'current path geeft het pad van de database
strBackupNaam = vrbckpadnaam & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.CopyFile strBestandNaam, strBackupNaam, True
strBackupNaam = "" 'Leegmaken var om samenvoegen met oude waarde te voorkomen
strBestandNaam = "Admin Back versie 2.0.accdb" 'Dit is het te backuppen bestand
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam 'hier wordt datum toegevoegd aan de bestandsnaam die backup wordt.
strBestandNaam = CurrentProject.Path & "" & strBestandNaam 'current path geeft het pad van de database
strBackupNaam = vrbckpadnaam2 & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.CopyFile strBestandNaam, strBackupNaam, True
msg = MsgBox("De backup is gelukt!")
DoCmd.RunMacro "DBAfsluiten"
Exit Sub
fout:
MsgBox "De backup is mislukt!", vbCritical
End Sub
Laatst bewerkt door een moderator: