Discussion:
automatische back up
(te oud om op te antwoorden)
Inne
2006-10-19 08:43:01 UTC
Permalink
Hallo,

Ik zou graag hebben dat er van mijn access database automatisch een backup
gemaakt wordt. (bv. bij het opslaan/sluiten van de database)

Als dat gaat, HOE doe ik dat dan?

groetjes,
Inne
Scubaman
2006-10-19 09:57:29 UTC
Permalink
Hallo Inne,

ik gebruik deze code. Weliswaar met en kop maar je krijgt wel een backup

Private Sub Knop1_Click()


On Error GoTo fout

Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim msg As Integer
'Dim fout As String

strBestandNaam = "John.mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam

strBestandNaam = "f:\Onze documenten\access\" & strBestandNaam
strBackupNaam = "e:\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True

msg = MsgBox("De backup is gelukt!")

Exit Sub
fout:
MsgBox "De backup is mislukt!", vbCritical

End Sub

Succes
Bert
Post by Inne
Hallo,
Ik zou graag hebben dat er van mijn access database automatisch een backup
gemaakt wordt. (bv. bij het opslaan/sluiten van de database)
Als dat gaat, HOE doe ik dat dan?
groetjes,
Inne
Inne
2006-10-19 11:47:01 UTC
Permalink
Woehoew! Het werkt!
Bedankt!!!
Post by Scubaman
Hallo Inne,
ik gebruik deze code. Weliswaar met en kop maar je krijgt wel een backup
Private Sub Knop1_Click()
On Error GoTo fout
Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim msg As Integer
'Dim fout As String
strBestandNaam = "John.mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam
strBestandNaam = "f:\Onze documenten\access\" & strBestandNaam
strBackupNaam = "e:\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True
msg = MsgBox("De backup is gelukt!")
Exit Sub
MsgBox "De backup is mislukt!", vbCritical
End Sub
Succes
Bert
Post by Inne
Hallo,
Ik zou graag hebben dat er van mijn access database automatisch een backup
gemaakt wordt. (bv. bij het opslaan/sluiten van de database)
Als dat gaat, HOE doe ik dat dan?
groetjes,
Inne
Scubaman
2006-10-19 11:51:03 UTC
Permalink
Hallo Inne,

niet mijn eigen werk. Was een tijdje geleden ook op zok en heb deze
oplossing in een forum gevonden.

Bert
PS fijn dat het werkt
Post by Inne
Woehoew! Het werkt!
Bedankt!!!
Post by Scubaman
Hallo Inne,
ik gebruik deze code. Weliswaar met en kop maar je krijgt wel een backup
Private Sub Knop1_Click()
On Error GoTo fout
Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim msg As Integer
'Dim fout As String
strBestandNaam = "John.mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam
strBestandNaam = "f:\Onze documenten\access\" & strBestandNaam
strBackupNaam = "e:\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True
msg = MsgBox("De backup is gelukt!")
Exit Sub
MsgBox "De backup is mislukt!", vbCritical
End Sub
Succes
Bert
Post by Inne
Hallo,
Ik zou graag hebben dat er van mijn access database automatisch een backup
gemaakt wordt. (bv. bij het opslaan/sluiten van de database)
Als dat gaat, HOE doe ik dat dan?
groetjes,
Inne
Fons de Wit
2006-10-19 16:05:00 UTC
Permalink
Hallo,

Waar zet je die knop dan bijv?

Ik heb nu dit: zie onderstaand
Maar krijg steeds "De backup is mislukt"
Wat gaat er mis, staat er mis, van welk forum heb je dat vandaan?

groetjes,
Fons
------------------------------------------------------

Private Sub Knop1_Click()
On Error GoTo fout

Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim msg As Integer
'Dim fout As String

strBestandNaam = "presentiedatabaseTest.mdb"
strBackupNaam = Format$(Now(), "ddmmyyyy") & strBestandNaam

strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest" & strBestandNaam
strBackupNaam = "C:\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True

msg = MsgBox("De backup is gelukt!")

Exit Sub
fout:
MsgBox "De backup is mislukt!", vbCritical
End Sub

-----------------------------------------------------------
Post by Scubaman
Hallo Inne,
ik gebruik deze code. Weliswaar met en kop maar je krijgt wel een backup
Private Sub Knop1_Click()
On Error GoTo fout
Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim msg As Integer
'Dim fout As String
strBestandNaam = "John.mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam
strBestandNaam = "f:\Onze documenten\access\" & strBestandNaam
strBackupNaam = "e:\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True
msg = MsgBox("De backup is gelukt!")
Exit Sub
MsgBox "De backup is mislukt!", vbCritical
End Sub
Succes
Bert
Post by Inne
Hallo,
Ik zou graag hebben dat er van mijn access database automatisch een
backup gemaakt wordt. (bv. bij het opslaan/sluiten van de database)
Als dat gaat, HOE doe ik dat dan?
groetjes,
Inne
RaceEend
2006-10-19 16:57:56 UTC
Permalink
Post by Fons de Wit
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest" & strBestandNaam
In deze regel mis je een backslash en daardoor wordt het bestand niet
gevonden.

strBestandnaam heeft initieel geen \, dus zal hier nog aan moeten
toevoegen
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest\" & strBestandNaam


--
Fons de Wit
2006-10-19 17:21:27 UTC
Permalink
Hoi RaceEend,

bedankt vor je goede bijdrage, werkt perfect maar waar zet ik die knop? Moet
ik daar een aparte mdb voor maken
Ik zou willen dat als ik mijn huidige database afsluit dat er dan een backup
wordt gemaakt?
Maar van een nog geopende database kan geen backup gemaakt worden toch?

thx again

F


-------------------->>>>>>>>>>>>>>>--------------------------
Post by RaceEend
Post by Fons de Wit
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest" & strBestandNaam
In deze regel mis je een backslash en daardoor wordt het bestand niet
gevonden.
strBestandnaam heeft initieel geen \, dus zal hier nog aan moeten
toevoegen
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest\" & strBestandNaam
--
RaceEend
2006-10-19 18:26:24 UTC
Permalink
Post by Fons de Wit
Hoi RaceEend,
bedankt vor je goede bijdrage, werkt perfect maar waar zet ik die
knop? Moet ik daar een aparte mdb voor maken Ik zou willen dat als ik
mijn huidige database afsluit dat er dan een backup wordt gemaakt?
Maar van een nog geopende database kan geen backup gemaakt worden toch?
thx again
F
-------------------->>>>>>>>>>>>>>>--------------------------
Post by RaceEend
Post by Fons de Wit
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest" & strBestandNaam
In deze regel mis je een backslash en daardoor wordt het bestand
niet gevonden.
strBestandnaam heeft initieel geen \, dus zal hier nog aan moeten
toevoegen
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest\" & strBestandNaam
--
Dat klopt - deels - zie ook de reactie van John Kopmels in het draadje
over Backup van 14-9-2006 20:27 (Scubaman), backup via de APi van
windows.

Andere oplossing de database via een database starten, de eerste
database verzorgt de backup zodra een database wordt gesloten.
Of via een Script (.vbs) of via een Exe.

Kortom geen eenduidige oplossing.
--
Fons de Wit
2006-10-19 19:05:16 UTC
Permalink
Post by RaceEend
Post by Fons de Wit
Hoi RaceEend,
bedankt vor je goede bijdrage, werkt perfect maar waar zet ik die
knop? Moet ik daar een aparte mdb voor maken Ik zou willen dat als ik
mijn huidige database afsluit dat er dan een backup wordt gemaakt?
Maar van een nog geopende database kan geen backup gemaakt worden toch?
thx again
F
-------------------->>>>>>>>>>>>>>>--------------------------
Post by RaceEend
Post by Fons de Wit
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest" & strBestandNaam
In deze regel mis je een backslash en daardoor wordt het bestand
niet gevonden.
strBestandnaam heeft initieel geen \, dus zal hier nog aan moeten
toevoegen
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest\" & strBestandNaam
--
Dat klopt - deels - zie ook de reactie van John Kopmels in het draadje
over Backup van 14-9-2006 20:27 (Scubaman), backup via de APi van
windows.
Andere oplossing de database via een database starten, de eerste
database verzorgt de backup zodra een database wordt gesloten.
Of via een Script (.vbs) of via een Exe.
Kortom geen eenduidige oplossing.
--
Fons de Wit
2006-10-19 19:06:28 UTC
Permalink
Ik ga even zoeken, ik heb de \ aangepast en werkt sofar perfect, goede tip
weer,

thc voor je bijdragen en tijd

Fons
Post by RaceEend
Post by Fons de Wit
Hoi RaceEend,
bedankt vor je goede bijdrage, werkt perfect maar waar zet ik die
knop? Moet ik daar een aparte mdb voor maken Ik zou willen dat als ik
mijn huidige database afsluit dat er dan een backup wordt gemaakt?
Maar van een nog geopende database kan geen backup gemaakt worden toch?
thx again
F
-------------------->>>>>>>>>>>>>>>--------------------------
Post by RaceEend
Post by Fons de Wit
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest" & strBestandNaam
In deze regel mis je een backslash en daardoor wordt het bestand
niet gevonden.
strBestandnaam heeft initieel geen \, dus zal hier nog aan moeten
toevoegen
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest\" & strBestandNaam
--
Dat klopt - deels - zie ook de reactie van John Kopmels in het draadje
over Backup van 14-9-2006 20:27 (Scubaman), backup via de APi van
windows.
Andere oplossing de database via een database starten, de eerste
database verzorgt de backup zodra een database wordt gesloten.
Of via een Script (.vbs) of via een Exe.
Kortom geen eenduidige oplossing.
--
RaceEend
2006-10-19 18:12:47 UTC
Permalink
Post by Fons de Wit
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest" & strBestandNaam
In deze regel mis je een backslash en daardoor wordt het bestand niet
gevonden.

strBestandnaam heeft initieel geen \, dus zal hier nog aan moeten
toevoegen
strBestandNaam = "C:\Documents and Settings\Eigenaar\Mijn
documenten\Acces\Inburgering\Oude dataTest\" & strBestandNaam


--
Eef
2006-11-10 17:28:44 UTC
Permalink
Bert,

De "Scubaman-code" werkt. Ook mijn dank.

Ik heb tevergeefs gezocht naar een simpele methode om via VBA de opties

Extra >Databasehulpprogramma's >Back-up maken van de database
of
Bestand >Back-up maken van de database

in werking te stellen.

Heb jij suggesties>
BVD,
Eef
Post by Scubaman
Hallo Inne,
ik gebruik deze code. Weliswaar met en kop maar je krijgt wel een backup
Private Sub Knop1_Click()
On Error GoTo fout
Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim msg As Integer
'Dim fout As String
strBestandNaam = "John.mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam
strBestandNaam = "f:\Onze documenten\access\" & strBestandNaam
strBackupNaam = "e:\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True
msg = MsgBox("De backup is gelukt!")
Exit Sub
MsgBox "De backup is mislukt!", vbCritical
End Sub
Succes
Bert
Post by Inne
Hallo,
Ik zou graag hebben dat er van mijn access database automatisch een
backup gemaakt wordt. (bv. bij het opslaan/sluiten van de database)
Als dat gaat, HOE doe ik dat dan?
groetjes,
Inne
Loading...