hallo zusammen,
ich habe 4 verschieden Optionsfelder. Ich kann auswählen zwischen Festpreis, Tagessatz, Kilometersatz oder nach Vereinbarung.
Hinterher muss je nach Auswahl immer der Preis mit MWST berechnet werden + Vergebührung.
Beim Festpreis gibt es noch eine Möglichkeit, nämlich pro Monat oder pro Laufzeit.
Ich habe zwei Textfelder. Der Benutzer kann dann nur jeweils eins beschreiben, entweder pro Monat oder pro Laufzeit. Das klappt super. Mein Problem ist nur das er bei der Berechnung des Preises nun immer den Laufzeitfehler 94 bringt, weil ja eins von den beiden Textfelder leer ist. Wie kann man das umgehen.
Code
If Me.Festpreis = True Then
Dim Pauschalbetrag As Double
Dim preis_pauschalbetrag As Double
Dim monatlicher_Betrag As Double
Dim preis_monatlicher_Betrag As Double
Pauschalbetrag = Me.Pauschalbetrag
monatlicher_Betrag = Me.Festpreis_pro_Monat
preis_pauschalbetrag = (Pauschalbetrag * (1 + Me.Umsatzsteuersatz) * _
(1 + Me.Vertragsgebührsatz)) + (monatlicher_Betrag * (Miettage / 30) * (1 + Me.Umsatzsteuersatz) * (1 + Me.Vertragsgebührsatz))
Me.Preis_exkl_MWST = preis_pauschalbetrag
End If
Vielen Dank im Voraus
Na für das Problem des leeren Feldes kann man folgendes einbauen:
If me.pauschalbetrag = 0 and me.festpreis_pro_Monat = 0 then
msgbox "Bitte nur eines der Felder ausfüllen!"
exit sub
elseif me.pauschalbetrag = 0 then
Rechenwert = Me.Festpreis_pro_Monat
elseif me.monatlicher_Betrag = 0 then
Rechenwert = Me.Festpreis_pro_Monat
else
Msgbox "Sie dürfen nur ein Feld ausfüllen!"
exit sub
end if
Und in der Formel dann nur mit "rechenwert" rechnen.
Me.Preis_exkl_MWST = (rechenwert * (1 + Me.Umsatzsteuersatz) * (1 + Me.Vertragsgebührsatz))
Hallo benjamin.grimm
Du must dafür sorgen das alle Felder die leer sein könnten, mit der Funktion isNull oder NZ() ab zufangen. Beschreibung findest du unter F1 Hilfe
Super.
Vielen Dank