Discussion :

[rahali_n]

svp, je cherche à remplir un champs de la mnière suivante :

champ b = max(champ a,50)+min(champ c*1.5,100)
donc j'ai besoin la fonciton max normal, le problème et que dans access je ne trouve que la fonction max d'agrégat qui s'applique à une colonne alors je suis vraiment coincé et étonné ! : :

merci pour votre aide

[cafeine]

Hello,

ce n'est pas trop difficile de programmer une fonction maison Maxi() et Mini() ...

[rahali_n]

j'ai bien pensé à le faire mais puisque je maitrise pas trop l'environnement access je ne sais pas où je écrire la fonction
Pourriez vous m'aidre

[cafeine]

Heu ... pourquoi pas un truc dans le genre ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Maxi(a, b)
   If a > b Then Maxi = a Else Maxi = b
End Function

[Tofalu]

Ou bien pour un nombre indéterminé de paramètres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Maxi(ParamArray vNbr()) As Double
Dim i As Integer
Maxi = CDbl(vNbr(0))
If UBound(vNbr) > 1 Then
For i = 1 To UBound(vNbr)
    If Maxi < vNbr(i) Then Maxi = vNbr(i)
Next i
End If
End Function
 
Sub test()
MsgBox Maxi(3)
End Sub