Zitat:

Habe das so gemacht Private Sub beenden_Click() Dim i As Integer ' Variable deklarieren. On Error Resume Next Tabelle8.AddNew Tabelle8("Datum") = Date For i = 1 To Text1.Count Tabelle8.Fields(i) = Text2(i) '& " " & Text3(i) Next i Tabelle8.Update Unload Me End Sub Es wird immer ein neuer Datensatz angelegt, und das will ich nicht Er soll immer den ersten Datensatz Überschreiben, den wie Du siehst werden mehrere Textfelder gespeichert ! Gruß Igi

'....
Tabelle8.Addnew ' weist einen Neuen Datensatz an
' ...