Hallo,
ich habe 3 Kombifelder die gleich aufgebaut sind:
ID Produkt Preis
nun möchte ich in einem Textfeld (ergebnis) die Summe der Preise dieser Produkte bilden.
Die Formel zur berechnung ist in einer extra Tabelle (tbl_Formel) gespeichert und wird in dem Listenfeld(Liste2) ausgewählt.
Ich habe das so versucht:
Private Sub Befehl14_Click()
Berechnen
End Sub
Private Sub Berechnen()
Dim Wert
Dim Produkt1 As Double
Dim Produkt2 As Double
Dim Produkt3 As Double
Preis1 = a
Preis2 = b
Preis3 = c
Wert = Me![Liste2]
If IsNull(Me![Liste2].Value) Then MsgBox „Bitte Formel markieren !“
If IsNull(Me![Liste2].Value) Then Exit Sub
If Wert = „a+b+c“ Then Ergebnis = Produkt1 + Produkt2 + Produkt3
End Sub
Jetzt addiert er mir aber nicht die Preise der Summen sondern er möchte den Text(Produkt) addieren was ja nicht geht.
Wie spreche ich das Tabellenfeld Preis zum addieren an??
Vielen Dank im Vorraus!
Mfg
Benni