Hvis felt1 er lig med x så skal felt3 være lig med felt2 x med

Er det på en form eller i en foresp ??

Hvis du binder dine felter til tre tekstboxe på en form kan du bruge denne kode på tekst1

Private Sub tekst1_Exit(Cancel As Integer)
   
    Select Case CLng(tekst1)
      Case 14318
        Tekst3 = 0.14 * Tekst2
      Case 14315
        Tekst3 = 0.136 * Tekst2
      Case 13316
        Tekst3 = 0.14 * Tekst2
      Case Else
        Tekst3 = 0
    End Select

End Sub

mvh Niels

Til en foresp kan du oprette et modul med flg kode:

Function EnLilleFunktion(InputFelt1, Inputfelt2) As Double
   
    Dim res
   
    Select Case CLng(InputFelt1)
      Case 14318
        res = 0.14 * Inputfelt2
      Case 14315
        res = 0.136 * Inputfelt2
      Case 13316
        res = 0.14 * Inputfelt2
      Case Else
        res = CLng(InputBox("Indtast noget til felt3"))
    End Select

    EnLilleFunktion = res

End Function

Og i en foresp:
Select felt1, felt2, EnLilleFunktion(fel1,felt2) as felt3
from bla. bla.

nih
Det er en formular

Undskyld mit fravær i alt for lang tid. Du skal have dine points. Tak for svaret.