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 …
gruss moriotzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]