Discussion :

[escobar]

bonjour,
je cherche une methode pour faire un calcul spécifique....
j'ai mis une case a cocher qui me rend un champ "prixtransporteuro" visible ou non

j'ai un champ "prixnormal"
puis en dessous un champ "%"
en dessous un champ "prixtransport" ( qui ne sera que le prix en euro du % du prix normal)

au final j ai le champ "prixtotaldevis" qui additionne prix normal + prix transport.

je souhaite si on remplit le champ prixtransporteuro que prixtotaldevis=prixnormal+prixtransporteuro

j'ai donc pensé a une fonction dont le code est le suivant mais il me met une erreur sur la 1ere ligne, ile me met pour "[Formulaires]"nom non defini

Code :

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

1
2
3
4
5
6
7
8
 
Public Function prixtotaldevis()
If prixtotaldevis(([Formulaires]![frmKalk]![FraisTeuro]), "") = "" Then
prixtotaldevis = ([Formulaires]![frmKalk]![fraisT] + [Formulaires]![frmKalk]![prixexw])
 Else
 prixtotaldevis = ([Formulaires]![frmKalk]![FraisTeuro] + [Formulaires]![frmKalk]![prixexw])
End If
End Function

merci de me donner un coup de pouce

[pgz]

Bonjour,

Formulaires représente la collection des formulaires, il ne faut pas l'écrire entre [].
Pour le reste je n'ai pas regardé.

pgz

[escobar]

cela ne change rien si l'on ne met pas les parenthéses ....

merci tout de meme

[Arkham46]

slt,

Code :

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

If prixtotaldevis(([Formulaires]![frmKalk]![FraisTeuro]), "")

ça fait quoi ça?

sinon n'appelle pas ta fonction comme ton champ, ça évitera les conflits éventuels

[escobar]

oui desolé j'ai vait une bourde
voici le code

Code :

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

1
2
3
4
5
6
7
 
Public Function prixtotaldevis(prix As Variant) As Integer
If prix((Formulaires![frmKalk]![FraisTeuro]), "") = "" Then
prix = (Formulaires![frmKalk]![fraisT] + Formulaires![frmKalk]![prixexw])
 Else
 prix = (Formulaires![frmKalk]![FraisTeuro] + Formulaires![frmKalk]![prixexw])
End If

le prix((Formulaires![frmKalk]![FraisTeuro]), "") = "" Then est si le champs est vide alors le prix est ....

ma fonction ne s appelle pas comme mon champs pas de souci. mais tjs ERREUR