Kald af funktion

Det burde fungere. Husk at værdien i feltet skal ændres før AfterUpdate indtræder.

Får en fejlmelding: Compile Error.
Forstår det ikke helt.
Jeg har fire tal hvor de fire tal er frembragt hver for sig beregnet ud fra data som bedste tal1, bedste tal2, bedste tal3, bedste tal4. Ud af disse 4 tal er det så jeg vil have vist stoerste.
Jeg kan forøvrigt fortælle at stoerste fint kommer frem i forespørgsel, men altså ikke i formularen...

Prøv [FeltetsNavn] = stoerste().
Hvordan ser funktionen ud?

Funktionen virker som sagt udmærket, hvilket jeg kan konstatere ved at jeg får stoerste frem i forespørgsel. Funktionen ser således ud.
Function stoerste(tal1, tal2, tal3, tal4) As Long
    Dim status As Boolean
    Dim var As Variant
    Dim temp As Long
   
    var = Array(tal1, tal2, tal3, tal4)
    Do
        status = False
        For i = 0 To 2
   
            If var(i) > var(i + 1) Then
                status = True
                temp = var(i)
                var(i) = var(i + 1)
                var(i + 1) = temp
            End If
        Next i
    Loop Until status = False
    'Debug.Print var(0) & var(1) & var(2) & var(3)
    stoerste = var(3)
End Function

Jeg prøvede lige muligheden fra fynbohans. Denne virkede heller ikke.

Jeg mener betingelsen skal med i Do og ikke i Loop:

Function stoerste(tal1, tal2, tal3, tal4) As Long
    Dim status As Boolean
    Dim var As Variant
    Dim temp As Long
   
    var = Array(tal1, tal2, tal3, tal4)
    Do Until status = False
        status = False
        For i = 0 To 2
   
            If var(i) > var(i + 1) Then
                status = True
                temp = var(i)
                var(i) = var(i + 1)
                var(i + 1) = temp
            End If
        Next i
    Loop
    'Debug.Print var(0) & var(1) & var(2) & var(3)
    stoerste = var(3)
End Function

Til mugs:
Resultatet i mine forespørgsler er at dit forslag også finder stoerste i forespørgslen, men stoerste blev også fundet ved den hidtidige funktion.
Men hvordan pokker får jeg stoerste frem i formularen????????

Du må jo have et felt i formularen der sættes = stoerste.

Jeg har et felt med stoerste i formularen

En anden version af funktionen:

Function Stoerste(Tal1,Tal2,Tal3,Tal4) as Variant
Dim x as Variant
Dim Maxtal As Variant

x = Tal1
MaxTal = x
x = Tal2
IF x>=MaxTal THEN MaxTal = x
x = Tal3
IF x>=MaxTal THEN MaxTal = x
x = Tal4
IF x>=MaxTal THEN MaxTal = x

Stoerste = MaxTal
END FUNCTION

I Kontrolelementkilde skriver du:
=Stoerste(Tal1,Tal2,Tal3,Tal4)

Jeg må bryde sammen og tilstå at jeg ikke lige havde været vågen nok da jeg havde sat postkilden i formularen til at være en tabel fremfor forespørgslen, - hvor dumt......
Tak for jeres ulejlighed. Jeg beklager, men er dog alligevel glad for at I hjalp på vej.

:o)