Discussion :

[oOXimOo]

Bonjour,

Je dispose d'une fonction qui ressemble à ceci :

Code :

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

1
2
3
sub TotalDepenses(num as Integer) 
' CODE
end sub

et je l'appelle à partir d'un autre module comme ceci :

Code :

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

Call TotalDepenses(1)

Actuellement cette fonction modifie le contenu d'un label de mon formulaire, j'aimerais maintenant aller un peu plus loin, et que la fonction TotalDepenses retourne cette valeur pour que je puisse la réutiliser après le Call.

Comment faire ?

[rjamin]

Bonjour,

Une fonction que vous créez peu être utilisée de la même façon qu'une fonction intégrée d'Access.

On peut l'utiliser dans une requête ou une tXtBox de formulaire ou d'état.
Sur la ligne Source contrôle on met

Code :

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

=TotalDépenses(argument)

Si j'ai bien compris votre demande.

[Lou Pitchoun]

Bonjour,

Pour compléter la réponse de rjamin, il faut modifier ta fonction :

Code :

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

1
2
3
4
sub TotalDepenses(num as Integer) As TypeARetourner
' CODE
TotalDepenses = Resultat
end sub

où TypeARetourner est Boolean si tu dois renvoyer un booléen, String si c'est une chaine, etc.

Resultat est le résultat de ta fonction (un calcul ou autre) et doit être du même type que TypeARetourner.

[oOXimOo]

Merci beaucoup pour vos réponses. Je vais essayer cela de suite !

[oOXimOo]

Lorsque je remplace mon code par ceci :

Code :

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

Sub totalDepenses(num As Integer, numb As Integer) as double

Je me retrouve avec l'erreur suivante :
Attendu : Fin d'instruction

Comment se fait-il ?

[rjamin]

Re,

Quand une erreur ce produit la ligne de code fautive est surlignée en jaune, il faut donc voir dans cette instruction si tout les mots clés obligatoires sont bien présents et/ou bien orthographiés.

[Kawabaumga]

Bonjour,

les fonctions définies en "Sub" sont des fonctions ne renvoyant rien (d'après ce que j'ai lu). Remplaces:

Code :

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

1
2
3
4
sub TotalDepenses(num as Integer) As TypeARetourner
' CODE
TotalDepenses = Resultat
end sub

par

Code :

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

1
2
3
4
function TotalDepenses(num as Integer) As TypeARetourner
' CODE
TotalDepenses = Resultat
end function

[oOXimOo]

les fonctions définies en "Sub" sont des fonctions ne renvoyant rien (d'après ce que j'ai lu).

Merci beaucoup, la solution est effectivement là. Maintenant ça marche !