Archivierung von einer Datei in die Andere

15/10/2008 - 15:29 von Beck, Alwin | Report spam
Hallo,
bei mir wird monatlich eine Statistiktabelle gefüllt. Über die Jahre
hinweg wird mir diese Datei nun zu voll und zu groß.
Ich möchte nun eine "Archivierung" einbauen. Die Hauptdatei enthàlt
die Daten. Aus dieser sollen nun per Abfrage Daten
ausgelagert werden und in einem Pfad "archiviert werden" aus der
Hauptdatei sollen alle Daten eines vom User angegebenen Jahres
ausgelagert werden.

Die Routine für die Ordnererstellung ist soweit klar aber das
Auslagern nicht (dieses sollte an die Stelle PROBLEM eingefügt
werden).
Der User befindet sich in der Hauptdatei aus welcher ausgelagert
werden soll. Nun klickt er eine BS und wird nach dem Jahr gefragt.
Der Ordner wird dann (falls nicht vorhanden) erstellt. Anschl. sollen
dann alte Datensàtze des angegebenen Jahres aus der Tabelle
"Statistik"
ausgelagert werden und die Tabelle in Form von Archiv_2008.mdb in
den Archivpfad gespeichert werden.

Mit dem Auslagern von einer Datei in die Andere komme ich nicht klar
auch nicht mit dem SQL - wie mache ich das ?
Eigenltich ist es ja eine Anfügtabelle - aber Filter soll gem.
InputBox "Achriv" gesetzt werden und der Dateiname der
neuen Tabelle ebenfalls gem. InputBox Archiv geschrieben werden.


Private Sub BS_Archivierung01_Click()

Dim Ord As String
Dim Antwort As Integer
Dim Archiv As String
Dim ArchivPfad As String

ArchivPfad = "C:\Zstei-Access\Archivierung\"

Archiv = InputBox("Bitte Archivierungsjahr eingeben. Format JJJJ")

Ord = ArchivPfad & Archiv
If Dir(Ord, vbDirectory) <> "" Then
MsgBox ("Archivierung für Jahr " & Archiv & " wurde bereits
durchgeführt")
Else
Antwort = MsgBox("Archivierungsordner für Jahr " & Archiv & " ist
nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If Antwort = vbYes Then
MkDir Ord

PROBLEM : hier soll nun aus Tabelle "Statistik" alle Daten welche gem.
Jahr (InputBox Archiv) sind ausgelagert
werden und im Dateipfad "ArchivPfad" gespeichert werden.

MsgBox "Archivierungsordner " & Archiv & " wurde angelegt"

Else
MsgBox "Es wurden keine Änderungen vorgenommen"
Exit Sub
End If
End If

End Sub
 

Lesen sie die antworten

#1 Thomas Winkler
15/10/2008 - 16:05 | Warnen spam
Hi,

bei mir wird monatlich eine Statistiktabelle gefüllt. Über die Jahre
hinweg wird mir diese Datei nun zu voll und zu groß.



Wie ist das "wird Dir zu groß" denn zu verstehen? Dauert das Öffnen zu
lange, Kratzt Du an der 2GB-Marke, dauern Abfragen zu lange oder ist das
alles subjektiver Natur?

Thomas

"Access? Damit arbeite ich nicht. Das ist doch nur ein abgespecktes Excel."

Ähnliche fragen