Access-97-Datenbank mit Demo-Datenbank
Bei einer solchen Staffel-Berechnung ist in den meisten Fällen eine kleine VBA-Prozedur notwendig.
In der Beispieldatenbank finden Sie eine Funktion namens GetMahngebühr (im Modul modMahngebühren), die anhand eines Rechnungsbetrags die entsprechende Mahngebühr berechnet. Die Prozedur sieht wie folgt aus:
Public Function GetMahngebühr(REBetrag As _ Variant) As Variant
' berechnet Mahngebühren
If IsNull(REBetrag) Then
GetMahngebühr = Null
ElseIf REBetrag <= 1000 Then
GetMahngebühr = 5
ElseIf REBetrag <= 20000 Then
GetMahngebühr = 0.005 * REBetrag
Else
GetMahngebühr = 100
End If
End Function
Diese Funktion können Sie beispielsweise in einer Abfrage einsetzen, um die Mahngebühren zu allen vorhandenen Rechnungen zu ermitteln:
SELECT RechnungNr, [RE-Betrag], GetMahngebühr([RE-Betrag]) AS Mahngebühr FROM Rechnungen;