Hallo zusammen,
ich habe in einem Formular berechnete Steuerelemente und will jetzt, dass die in diesen Steuerelementen angezeigten Werte in der zugehörigen Tabelle abgespeichert werden. Die Namen des ber. Steuerelements und des jeweiligen Tabellenfelds sind gleich.
Habs schon mit dem Tipp von DonKarl versucht, klappt aber einfach nicht.
Vielen Dank für Eure Hilfe
Gruß
Franz
Hallo.
Private Sub MachsMir
Dim DatenBank As Database
Dim DatenTabl As Recordset
Set DatenBank = CurrentDb
Set DatenTabl = DatenBank.OpenRecordset(„tbl_Tabellenname“, _
DB_OPEN_DYNASET)
DatenTabl.AddNew
DatenTabl!FeldInhalt = Screen.ActiveForm.FeldInhalt
DatenTabl.Update
DatenTabl.Close
DatenBank.Close
Set DatenTabl = Nothing
Set DatenBank = Nothing
End Sub
Müßte eigentlich funzen.
Gruß kw
Hi kw,
vielen Dank für Deine Hilfe. Ich probiers mal.
Habe zwischenzeitlich eine andere Lösung gefunden. Ich erstelle das Formular mit einer Abfrage, in der ich die Berechnungen durchführe. Wollte ich zwar vermeiden, da das Formular 4 Unterformulare hat, aber das klappt einwandfrei.
Nochmals vielen Dank.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]