Hey,
danke für deine Antwort.
Jetzt erscheint die Meldung dass die Typen unverträglich wären.
Private Sub cmdVerkaufspreis_Click()
'Verkaufspreis berechnen
With Me
If Me.txtEinkaufspreis = "" Then
MsgBox ("Bitte Einkaufspreis eintragen")
ElseIf Me.txtMarge = "" Then
MsgBox ("Bitte Marge eintragen")
Else
Me.txtVerkaufspreis.Text = CCur(Me.txtEinkaufspreis.Value) * CCur(Me.txtMarge.Value)
End If
End With
|