fonction qui renvoi un objet Parameter
Bonjour,
J'ai une fonction qui récupère un paramètre dans une requete par rapport au nom de la requete et au nom du parametre.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
'renvoi le paramètre
'@param nom de la requete et nom du parametre
Private Function getParametre(nom_requete, nom_parametre) As Parameter
Dim qdf As QueryDef
Dim param As Parameter
Set qdf = CurrentDb.QueryDefs(nom_requete)
Set param = qdf.Parameters(nom_parametre)
Set getParametre = param
End Function |
Et je l'appel comme ceci:
Code:
1
2
3
4
5
6
7
8
| Dim param As Parameter
If (Not IsNull(Liste_criteres.value) And Not IsNull(listeRequetes.value)) Then
Set param = getParametre(listeRequetes.Column(1), Liste_criteres.value) 'Erreur: mon param ne contient rien
lbl_nom_critere.Caption = "Critères: " & param.Name & " de type " & param.Type
afficherOperande param
Else
lbl_nom_critere.Caption = "Critères: Aucun"
End If |
Le problème est le suivant:
La fonction getParametre fonctionne très bien mais dans l'appel de la fonction je n'est pas le parametre dans ma variable param.
Citation:
erreur: objet non defini sur la ligne:
lbl_nom_critere.Caption = "Critères: " & param.Name & " de type " & param.Type
Comment se fait il que l'objet parameter ne soit pas bien renvoyer?
Merci d'avance
