in der angehängten Datenbank würde ich gerne im Subformular mit Spalte ID_Subkomponente unter dem Formular Zuordnungen_Komponenten_Grd_List einen Wert aus einem Listenfeld übernehmen. Dieser Wert ist in einer Tabelle Komponenten abgelegt. Nun soll über ein Makro dieser Komponente der zugehörige Bruttopreis in der Spalte Bruttopreis pro Stück übergeben werden. Dabei befindet sich der Bruttopreis ebenfalls in der gleichen Tabelle wie die ID der Komponente selber. Schlussendlich soll Bruttopreis pro Stück mit der Anzahl der Komponente, welche im Subformular eingegeben wird, multipliziert werden, und das Ergebnis in die Spalte Total brutto übertragen werden. Schön wäre abschliessend eine Summe über alle Zeilen in der Spalte Total brutto bilden zu können und das Ergebnis in z.b. einer weiteren Spalte abzulegen.
Ich habe bereits ein Makro S_Insert_Totalbrutto erstellt komme aber nicht weiter. Ermöglicht werden soll das zuvor geschilderte über die Betätigung der Taste Berechnen
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 totalbrutto,total AS Double
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oform = oDrawpage.forms.getByName("F_Baugruppen").getByName("SubForm").getByName("SubForm_Grid")
anzahl = oform.GetByName("Komponente Anzahl")
stueckpreis = oform.GetByName("Bruttopreis pro Stück")
totalbrutto = CInt(anzahl.Text)*CDbl(stueckpreis.Text)'anzahl * stueckpreis
total = oform.getByName("Total Brutto").updateDouble(totalbrutto)
End Sub