Et felt største - mindste i en forspørgsel

eller hvis bare største værdi og mindste værdi fra de fem felter kommer autoamtisk over i to andre max og min felter vil det også være fin

det er en meget kompliceret iif-sætning. prøv dette i stedet for:

tabelle med de fem felter skal også have 2 felter til største og mindste værdi.
rutinen opdaterer tabellen, så læg den lige inden du kalder forespørgslen.

Sub Størstogmindst()
Dim Db As Database
Dim Rs As Recordset
Dim StrSQL As String
Dim Største, Mindste, Resultat
Dim I

  Set Db = CurrentDb
  StrSQL = "SELECT Felt1, felt2, felt3, felt4, felt5, felt6, felt7 FROM tabel"
  Set Rs = Db.OpenRecordset(StrSQL)
 
  While Not Rs.EOF
      Største = -10000        'et tal der mindre end det mindste i tabellen
      Mindste =  10000        'et tal der er større end det største i tabellen
      For I = 0 To 4
        If Rs(I) > Største Then Største = Rs(I)
        If Rs(I) < Mindste Then Mindste = Rs(I)
      Next I
      Rs.Edit
      Rs(5) = Største
      Rs(6) = Mindste
      Rs.Update
      Rs.MoveNext
  Wend
 
Rs.Close
Db.Close

End Sub

undskyld men det er lavet lidt om så det er lavet på en anden måde ellers mange tak
http://www.eksperten.dk/spm/808110
det her er noget af det

og det her
http://www.eksperten.dk/spm/807776