Laufzeitfehler 94

[benjamin.grimm]

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

[69bruno]

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))       

[Stapi]

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

[benjamin.grimm]

Super.


Vielen Dank