Verbrauch errechnen

Hallo ich habe ein kleines Problem :
Ich möchte in einem Formular meinen Gasverbrauch ausrechnen.
Bislang hatte ich die Felder = neuer Zälerstand , alter Zählerstand und habe dann beides voneinander abgezogen.Dann muß ich aber immer den alten Zählerstand per Hand eingeben.Könnte mann dieses automatiesieren das dieses nicht mehr brauche ?
Danke Wolfgang

Hallo Wolfgang,

eine Lösung nach dem Motto „Durch das Knie ins Auge geschossen“ …

Sub GasNeu\_AfterUpdate()
'Feld GASALT = Zählerstand ALT
'Feld GASNEU = Zählerstand NEU

Me.GasAlt.SetFocus
Me.GasNeu.SetFocus

SendKeys "^c", True 
'Kopiert Wert aus Feld GASNEU in die Zwischenablage

DoCmd.GoToRecord acDataForm, "frmGastabelle", acNewRec
'neuer Datensatz in Formular frmGASTABELLE aus Tabelle tblGASTABELLE

Me.GasAlt.SetFocus

SendKeys "^v", True 'Fügt Wert aus Zwischenablage ins Feld GASALT
SendKeys "{Enter}" 'Simuliert ENTER-Taste

End Sub

Diese Prozedur einfügen beim Feld GASNEU („Nach Aktualisierung“).

Sieht scheiße aus, sollte aber funzen … :smile:

gruss moriotzbock

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]