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 :
Et ma fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub Commande3_Click() SelectionBase2 (Modifiable34.Value) MsgBox PrefixeTable MsgBox Fournisseur End Sub
Je suppose que c'est un problème de public ou private.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Est-ce qu'il faut utiliser un module de classe ? Si oui je ne vois pas quoi y mettre.
Merci d'avance.
Partager