<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Form_Load()
  <font color=#000099>Dim</font> DB <font color=#000099>As</font> Database _
  <font color=green>' deklaration für Database</font>
  <font color=#000099>Dim</font> Rs <font color=#000099>As</font> Recordset _
  <font color=green>' Deklaration für Recordset</font>
  <font color=#000099>Dim</font> Anz <font color=#000099>As</font> <font _
  color=#000099>Long</font>, i <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> lngMax <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> anzahlfertigung <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> anzahlkaschierung <font _
  color=#000099>As</font> <font color=#000099>String</font>
  <font color=#000099>Dim</font> anzahlhw <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  MsgBox "Die Datensätze werden jetzt eingelesen " & _
          "und einzelnen Gruppen zugeteilt. Bitte etwas Geduld!", _
          vbOKOnly, "Achtung!!!"
 
  frmStatus.Show
 
  <font color=#000099>Set</font> DB = DBEngine.OpenDatabase( _
    "m:edvexternkontinvKont_Inv.mdb")
  <font color=green>' datenbankanbindung wird angezapft</font>
 
  'Listboxen vorbereiten ....
  'Da wir ja die Tabelle direkt abrufen, wissen wir schon
  'wieviele Datensätze wir bekommen; sie befinden sich
  'in der Eigenschaft "Recordcount" der Tabelle :-)
 
  Anz = DB.TableDefs("a_fert").Properties("Recordcount")
  lngMax = Anz
  counter_fertigung.Caption = Anz
  <font color=#000099>Set</font> Rs = DB.OpenRecordset("SELECT artikel FROM" & _
    "a_fert", dbOpenSnaphot)
  <font color=#000099>For</font> i = 0 <font color=#000099>To</font> Anz
     ShowProgress frmStatus.picProgress, i, 0, lngMax
     list_Fertigung.AddItem Rs!Artikel
     Rs.MoveNext
  <font color=#000099>Next</font>
 
  Anz = DB.TableDefs("a_bekl").Properties("Recordcount")
  lngMax = Anz
  counter_kaschierung.Caption = Anz
  <font color=#000099>Set</font> Rs = DB.OpenRecordset("SELECT artikel FROM" & _
    "a_bekl", dbOpenSnapshot)
  <font color=#000099>For</font> i = 0 <font color=#000099>To</font> Anz
     ShowProgress frmStatus.picProgress, i, 0, lngMax
     list_Kaschierung.AddItem
     Rs.MoveNext
  <font color=#000099>Next</font>
 
  Anz = DB.TableDefs("a_HDWR").Properties("Recordcount")
  lngMax = Anz
  counter_hw.Caption = Anz
  <font color=#000099>Set</font> Rs = DB.OpenRecordset("SELECT artikel FROM" & _
    "a_HDWR", dbOpenSnapshot)
  <font color=#000099>For</font> i = 0 <font color=#000099>To</font> Anz
     ShowProgress frmStatus.picProgress, i, 0, lngMax
     list_hw.AddItem
     Rs.MoveNext
  <font color=#000099>Next</font>
 
  DB.<font color=#000099>Close</font> 'DB.<font color=#000099>Close</font> 
  ' schließt auch die Recordsets
 
  'standardwerte für Anzahlen festlegen
  anzahl_fertigung.Text = "10"
  anzahl_kaschierung.Text = "20"
  anzahl_hw.Text = "10"
  anzahlfertigung = anzahl_fertigung.Text
  anzahlkaschierung = anzahl_kaschierung.Text
  anzahlhw = anzahl_hw.Text
 
  'Einstellungen für den Timer
  Timer1.Enabled = <font color=#000099>True</font>
  Timer1.Interval = 1000
 
  'Festlegen der Standardeinstellungen für die Programm Optionen
  chk_Fertigung.Value = 1
  chk_Kaschierung.Value = 1
  chk_hw.Value = 1
 
  'datum anzeigen
  lbl_datum.Caption = Format(Now, "dd.mm.yyyy")
  'Pfad festlegen um Logfiles darzustellen
  list_logs.Path = "M:edvexternkontinv2.1logs"
  'Datumsanzeige in den Programmoptionen
  lbl_date.Caption = Format(Now, dd, mm, yyyy)
 
  btn_save.Enabled = <font color=#000099>False</font>
  btn_drucken.Enabled = <font color=#000099>False</font>
  btn_Clear.Enabled = <font color=#000099>False</font>
  Löschen.Enabled = <font color=#000099>False</font>
  Drucken.Enabled = <font color=#000099>False</font>
  Speichern.Enabled = <font color=#000099>False</font>
 
  Unload frmStatus
<font color=#000099>End</font> <font color=#000099>Sub</font>
</code>