hallo,
wie kann ich automatisch / oder „on click“ alle tabellen als eigene datenbank sichern?
z.b. als „backup 991215.mdb“
many thanks fuer gute tips
gruss
stefan
Du musst Dir für folgendes Besipiel eine Tabelle „Tabellenliste“ anlegen, dann kannst Du den Export über diese steuern.
pp
’ Eine neue Datenbank erstellen.
Set db = WS.CreateDatabase(Me!Datenbankname, dbLangGeneral)
db.Close
’ Eine neue Datenbank erstellen.
Set db = WS.CreateDatabase(Me!Datenbankname, dbLangGeneral)
db.Close
'Anhand der Tabellenliste und der Auswahl Daten sichern
Set db = CurrentDb
Set rs = db.OpenRecordset(„SELECT * FROM Tabellenliste“)
'Exportieren
While Not rs.EOF
DoCmd.TransferDatabase acExport, „Microsoft Access“, Me!Datenbankname, acTable, rs!Tabellenname, rs!Tabellenname
rs.MoveNext
Wend
SPITZE !!
ist die ergaenzung „dateiname991219.mdb“ moeglich ? ich moechte gern diese datei im dem jeweiligen tagesdatum im dateinamen (!) speichern. kann ich das automatisieren ?
in excel habe ich folgendes modul
#####################
Sub DateiUnter TagesdatumAbspeichern()
Tagesdatum = Application.Text(Now(), „mm-dd-yy hh-mm“)
Sicherung = „Backup“ & Tagesdatum & „.XLS“
ActiveWorkbook.SaveCopyAs Sicherung
End Sub
#############
funktioniert aber nicht in access
???
many thanks
stefan
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
dateiname = „Dateiname“ & year(date) & month(date) & day(date) & „.´mdb“
pp
hallo pp,
es macht einfach spass, mit dem w.w.w-suchdienst zu „arbeiten“
ein lob an DICH !!
gruss
stefan
dateiname = „Dateiname“ & year(date) &
month(date) & day(date) & „.´mdb“pp