Forespørgsel - find nærmeste

Hvis det er for hver 1000 kr, kan denne måske bruges, husk at sætte feltet til %

Bonus: (Int([beløb]/1000)+1)/100

Den kobler ikke tabeller sammen, men udregner %

den dur sikkert ikke for den siger jo 2% af hele beløbet, så glem det.

Det er faktisk som excel, med Lopslag(A1;D:E;2;SAND)...dermed findes nærmeste værdi

Brug en funktion:

Function BonusPct(Beløb As Single) As Single
  If Beløb < 1000 Then
    BonusPct =  0.01
  Else
    BonusPct =  0.02
  End If
End Function

tak for indlægget, desværre er der tale om flere tusinde trin end det ene eksempel jeg viste. faktisk handler det om et produkt-hierarki, men jeg tænkte at det var mere forståeligt i kr./øre.

et lille hint....Celkos metode...i korte træk ud på, at opbygge træstrukturen ved hjælp af en ”left/right” logik frem for at anvende fremmednøgler og ”parent/child” struktur.

OK så.
Opret en tabel (her: Tabel2) med grænseværdierne og procenterne:
  Beløb      Pct
  999,99    1
  1999,99    2
  2999,99    3
  1000000    4

Læg puslespillet. Her er brikkerne:

Private Sub Test_FindPct()
  Dim x  As Single
  x = 1999
  Debug.Print x, FindPct(x)
End Sub

Function FindPct(b As Single) As Single
  FindPct = DLookup("Pct", "Tabel2", "Beløb>=" & RealSQLformat(b))
End Function

Function RealSQLformat(x As Variant) As String
  Dim DummyStr As String, KommaPos As Integer
  DummyStr = Format(x, "0.00")
  KommaPos = InStr(1, DummyStr, ",")
  RealSQLformat = Left(DummyStr, KommaPos - 1) & "." & Right(DummyStr, (Len(DummyStr) - KommaPos))
End Function

uha, det er lidt svært det her, men jeg har fundet en anden mulighed...simpelthen bare lade excel gøre det, jeg holder mig på ca. 55.000 poster, så det er heldigvis muligt. Men fdata, tak for hjælpen, jeg tror jeg vil prøve dit forslag, når jeg er blevet lidt mere skrap.

Helt i orden. Tak for point.