Hallo,
ich möchte in einem Formular verschiedene Felder miteinander multiplizieren bzw. addieren lassen und das Ergebnis dieser Rechnungen in einem anderem Feld ausgeben lassen.
Kann mir jemand sagen, wie ich dies machen kann bzw. wie das Makro aussehen muss, damit es solche Funktionen durchführt!?!
Sovereign Sylvia Korni „Multiplikationen und Additionen mit MS Acces“
Hi,
zur Berechnug von Zahlen in Textfeldern (wenn es das denn sein soll):
Auf einem Module könnte bespielsweise folgendes eingegeben werden:
Public Sub Calculate()
Dim p_Result as Single
'Abfrage, ob die Textfields auch wirklich reine Zahlen beinhalten:
If IsNumeric(Form1.Textfield1.Text)=True and IsNumeric(Form1.Textfield2.Text)= True Then
p_result=CSng(Form1.Textfield1.Text)* CSng(Form1.Textfield2.Text)
'Zwei Decimalzahlen werden miteinander multipliziert.
End If
'Das Ergebnis in ein drittes Textfeld schreiben:
Form1.Textfield3.Text = CStr(p_result)
End Sub
Je nach Zahlentyp (Integer, Long, Single, Double oder Currency), wie er von dir berechnet werden soll, müssen die Converter anders angegeben werden: CInt() für Integer, CLng für Long, CDbl() für Double oder CCur() für Currency. In der Access-Hilfe findest du weitere Erläuterungen. Wo du die Routine einbaust, hängt davon ab, ob sie automatisch oder nur auf Knopfdruck ausgeführt werden soll. Die gemachten Ausführungen betreffen ACCESS 2000.
Gruss Sovereign Sylvia
