Ich habe das Makro mal umgeschrieben, um zwei Felder miteinander zu multiplizieren:
Code: Alles auswählen
Sub S_Insert_Totalbrutto
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT 'usw für alle mit o
DIM iFeld1 AS Single 'für Gleitkommazahlen
DIM iFeld2 AS Single 'für Gleitkommazahlen
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oform = oDrawpage.forms.getByName("F_Baugruppen").getByName("SubForm").getByName("SubForm_Grid")
oFeld1 = oForm.getByName("Komponente Anzahl")
oFeld2 = oForm.getByName("Bruttopreis pro Stück")
oFeld3 = oForm.getByName("Total Brutto")
iFeld1 = oFeld1.getCurrentValue()
iFeld2 = oFeld2.getCurrentValue()
oFeld3.text = iFeld1*iFeld2
if oform.isnew then oform.insertrow else oform.updaterow
'oform.reload
End Sub
Jetzt kommt die Fehlermeldung bei oFeld3.text = iFeld1*iFeld2. Vermutlich stört die Zuordnung eines Textes zu einer Zahl. Gibt es für
oFeld3.text auch eine Bezeichnung entsprechend zu einer Gleitkommazahl wie ofeld3.nummer.
Die Fehlermeldung lautet: Basic Laufzeitfehler Eigenschaft oder Methode nicht gefunden:text
Die Spalte Bruttozahl pro Stück ist von der Listenauswahl in der ersten Spalte des Subformulars abhängig. Wie kann sich der Wert entsprechend ändern?