Récupérer des variables d'une fonction dans un code

Bonjour,

je crois que le titre n'est pas très clair.

En fait j'ai créé une fonction qui va chercher des valeurs dans une table et les stocke dans des variables.
De retour dans ma procédure, je n'arrive pas à utiliser ces variables.

Voici une partie du code réduit à l'essentiel :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Commande3_Click() SelectionBase2 (Modifiable34.Value) MsgBox PrefixeTable MsgBox Fournisseur End Sub

---

Et ma fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function SelectionBase2(BaseChoisie As String) Dim rs As DAO.Recordset Dim db As Database Set db = Application.CurrentDb Set rs = db.OpenRecordset("Paramètres", dbOpenDynaset) Dim Critere As String Dim PrefixeTable As String Dim Fournisseur As String Critere = "[base]=" & "'" & BaseChoisie & "'" With rs .FindFirst Critere PrefixeTable = .Fields("prefixe_table") Fournisseur = .Fields("fournisseur") End With End Function

---

Je suppose que c'est un problème de public ou private.
Est-ce qu'il faut utiliser un module de classe ? Si oui je ne vois pas quoi y mettre.

Merci d'avance.

bonjour,

ton probleme viens de tes parenthèse apres le nom de la fonction: tu dois mettre dans ta parenthèse les paramètre en entrée mais aussi ceux que retourne ta foncion:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Commande3_Click()   SelectionBase2 (Modifiable34.Value, sortie_variable1, sortie_variable2) MsgBox PrefixeTable MsgBox Fournisseur   End Sub

---

et pour la fonction:

Code:

---

1 2 3 4

Public Function SelectionBase2(BaseChoisie As String, variable1 as string, variable2 as string)

---

je pense que ca t'aidera.

;)

cain

Salut,

L'existance de tes variables est limité à la fonction SelectionBase2 : dés que cette fonction est finie, les variables sont "effacées".

Tu peux :
utiliser des variables globales (:aie: )
renvoyer une valeur comme résultat de ta fonction
passer tes valeurs par référence

Teste ça (exemple d'utilisation de variables par référence) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Public Function SelectionBase2(ByVal BaseChoisie As String, ByRef Arg_PrefixeTable As String, ByRef Arg_Fournisseur As String)   Dim rs As DAO.Recordset Dim db As Database Set db = Application.CurrentDb Set rs = db.OpenRecordset("Paramètres", dbOpenDynaset) Dim Critere As String     Critere = "[base]=" & "'" & BaseChoisie & "'" With rs .FindFirst Critere Arg_PrefixeTable = .Fields("prefixe_table") Arg_Fournisseur = .Fields("fournisseur") End With   End Function Private Sub Commande3_Click() Dim PrefixeTable As String Dim Fournisseur As String   SelectionBase2 (Modifiable34.Value, PrefixeTable, Fournisseur) MsgBox PrefixeTable MsgBox Fournisseur   End Sub

---

A+

Et il n'y a aucun autre moyen ?
Parce qu'avec le temps il y aura bien une trentaine de paramètres et si je dois les entrer dans l'appel de ma fonction à chaque fois, je n'ai pas fini.
De plus l'entrée est toujours la même, soit Modifiable34.value.

C'est pour ça que j'aurais voulu l'exécuter en entier et ensuite récupérer simplement les résultats nécessaires.

Voilà j'ai trouvé.
J'ai donc passé mes variables en global dans mon module.
Et pour ma zone déroulante, je l'ai appelée avec le nom du formulaire.
Du coup je n'ai plus qu'à exécuter ma fonction de la manière suivante :

Code:

---

1 2	SelectionBase2

---

Tous les paramètres s'affectent dans mes variables et je peux les utiliser à loisir.

Merci quand même de l'aide:ave: