Discussion :

[robocop2776]

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 :

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

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 :

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

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.

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

[Pago]

Salut
est-ce que liste_critères et listerequetes sont des données provenant de 2 tables ou tu as rentrés manuellement les données, as -tu le code complet