Private Sub cmdSave_Click()
    Dim I As Integer
 
    If AdresseNeu Then
        Tabelle.AddNew
    Else
        Tabelle.Edit
    End If
 
    For I = 1 To 4
        Tabelle(I) = Text1(I).Text
    Next I
 
    Tabelle.Update
 
    Me.Tag = True
    Me.Hide
End Sub
 
Private Sub Form_Load()
    cboNameFüllen
    cboMonatFüllen
    AdresseNeu = True
End Sub
 
Sub cboNameFüllen()
    Dim dbFile As String
    Dim SQL As String
    Dim rs As Recordset
    Dim itemX As ListItem
 
    dbFile = App.Path + "\ZAV.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
 
    SQL = "SELECT * FROM ZAV"
    Set rs = Db.OpenRecordset(SQL)
 
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            With Combo1(0)
                .AddItem rs("Name")
            End With
            rs.MoveNext
        Wend
    End If
End Sub
 
Sub cboMonatFüllen()
    Dim Zeile As String
 
    Open App.Path & "\cboMonatInhalt.dat" For Input As #1
    Do While Not EOF(1)
    Line Input #1, Zeile
    Combo1(1).AddItem Zeile
    Loop
    Close #1
End Sub
 
' Prüfen, ob Speichern möglich
Private Sub Text1_Change(Index As Integer)
 
  'Es muß mindestens der Name eingetragen sein!
  If Index = 1 Then
    cmdSave.Enabled = (Trim$(Text1(1).Text) <> "")
  End If
End Sub