Veteran
Beiträge: 291
 
Ort: München | Hallo Mathias,
Dank deiner Hilfe erste Erfolge :-)
jetzt fehlt noch der Zeitstempel beim Speichern und wenn die gespeicherten Werte aus Abfrage 1 noch im Formular sichtbar wären, dann wäre das super.
Vielen Dank
Mathias
Private Sub datenspeichern_Click()
Dim strSQL As String
strSQL = "INSERT INTO Ergebniszwei " & _
"(T0_Text, T1_Text, T2_Text, T3_Text, DeinDatumsfeld) " & _
"VALUES (" & Me!cbxt0 & ", " & Me!cbxt1 & ", " & Me!cbxT2 & ", " & Me!cbxT3 & ", '" & Now() & "')"
CurrentDb.Execute strSQL
Me!Liste14.Requery
End Sub
In der Tabelle 'Ergebniszwei' ein Datumsfeld einfügen ... natürlich mt einer vernünftigen Bezeichnung.
Now() --> Datum und Uhrzeit
Date() --> Datum
.Requery --> den Inhalt des angegebenen Steuerelemets aktualisieren
-----
Grüße aus München
Stefan |
