Hallo.
Ich bin Student und habe ein Programm geschrieben zur automatischen Erzeugung versch. Lagerspiegel.
Auf meinem privaten Laptop (Access 2000) läuft mein Programm einwandfrei.
Jetzt habe ich es auf dem Firmen-PC (Access2002) laufen lassen und hier
braucht es viel länger und bläht die Datei auf die 20-fache Größe auf. Nur
durch reparieren und komprimieren bekomme ich sie wieder klein.
Woran könnte das liegen?
Ein Problem wegen den unterschiedlichen Versionen kann es eigentlich nicht
sein, weil ich auf dem Firmen-PC eine neue DB aufgemacht habe und die
Tabellen, wie auch den Quelltext aus Textdateien importiert habe.
Nachfolgend ein Teilprogramm meiner Arbeit.
Hier wird nur eine neue Spalte angefügt und dann in die Felder eine 1 und in
jedes 20. Feld eine 2 geschrieben. Die Tabelle hat ungefähr 150 000
Datensätze.
Schon bei diesem Teilprogramm wird die Datei von ca. 30 MB auf 600 MB
aufgebläht.
Help me, please!
Gruß
Alex
Teilprogramm:
Sub OperativeReserve()
Dim ID As Long
Dim db As DAO.Database
Dim td As TableDef
Set db = CurrentDb
Set td = db.TableDefs("Lagerorte")
With td
.Fields.Append .CreateField("Operative Reserve", dbInteger)
.Fields.Refresh
End With
Set lo = db.OpenRecordset("Lagerorte", DB_OPEN_TABLE)
lo.MoveFirst
Do Until lo.EOF
ID = lo.ID
lo.Edit
If ID Mod 20 = 0 Then
lo.Fields("Operative Reserve") = 2
Else
lo.Fields("Operative Reserve") = 1
End If
lo.Update
lo.MoveNext
Loop
Debug.Print Now; "Operative Reserve"
End Sub
|