"overføre" en formel fra Exell til Access

Selve VB-koden er simpel.

Hvordan du rent praktisk implementerer det i Access kan jeg desværre ikke hjælpe dig med.

    Dim vogn As Double, KM As Double, RM As Double
    If KM <= 200 Then vogn = RM * 36.74
    If KM <= 180 Then vogn = RM * 34.16
    If KM <= 160 Then vogn = RM * 31.57
    If KM <= 140 Then vogn = RM * 28.72
    If KM <= 120 Then vogn = RM * 25.88
    If KM <= 100 Then vogn = RM * 22.77
    If KM <= 80 Then vogn = RM * 20.44
    If KM <= 60 Then vogn = RM * 17.6
    If KM <= 50 Then vogn = RM * 16.04
    If KM <= 40 Then vogn = RM * 14.23
    If KM <= 30 Then vogn = RM * 12.42
    If KM <= 20 Then vogn = RM * 10.35

    vogn får værdien 0, hvis KM>200

Der er en lille fejl:
KM og RM skal IKKE erklæres men inputtes, evt i en funktion:

Function XXX(ByVal KM As Double, ByVal RM As Double) As Double

    'koden her
    XXX = vogn

End Function

Du opretter et modul og placerer ovenstående funktion i det  (let tilrettet)

Function XXX(ByVal KM As Variant, ByVal RM As Variant) As Double
  Dim Vogn As Double

  If IsNull(KM) Or IsNull(RM) Then
    XXX=0    ' Eller hvad du nu vil
    Exit Sub
  EndIf

  If KM <= 200 Then vogn = RM * 36.74
  If KM <= 180 Then vogn = RM * 34.16
  If KM <= 160 Then vogn = RM * 31.57
  If KM <= 140 Then vogn = RM * 28.72
  If KM <= 120 Then vogn = RM * 25.88
  If KM <= 100 Then vogn = RM * 22.77
  If KM <= 80 Then vogn = RM * 20.44
  If KM <= 60 Then vogn = RM * 17.6
  If KM <= 50 Then vogn = RM * 16.04
  If KM <= 40 Then vogn = RM * 14.23
  If KM <= 30 Then vogn = RM * 12.42
  If KM <= 20 Then vogn = RM * 10.35

  XXX = Vogn
End Function

I Vogn på din formular lægger du så i feltet KontrolelementKilde følgende:
  =XXX(KM;RM)