ich möchte in einem Unterformular einen Tabellensatz erstellen wo ich die Felder MENGE(INTEGER) und KURS(DECIMAL) eingebe und beim Verlassen des KURS-Feldes den Wert MENGE * KURS berechnen und im im ungebundene Feld WERT(DECIMAL) anzeigen möchte. Beim Aufruf des Macros bekomme ich folgende Fehlermeldung: "Basic-Laufzeitfehler. Falscher Wert für Eigenschaft." Was mache ich falsch?
Code: Alles auswählen
Sub WertErrechnen(oEvent AS OBJECT)
DIM oForm AS OBJECT
DIM dWert AS DOUBLE
DIM dMenge AS INTEGER
DIM dKurs AS DOUBLE
oForm = oEvent.Source.Model.Parent
dMenge = oForm.getByName("Menge") <-- Fehlerzeile
dKurs = oForm.getByName("Wert")
oForm.getByName("Wert") = dMenge * dKurs
End Sub