Function = null

Bonjour à tous,
J'ai une requète ou dans un champs j'ai un critère de sélection qui est basé sur une fonction

-> Le problème est que lorsque cette fonction est égale à rien (champs vide) la requete me retourne aucune valeurs alors que mon souhait serais de récupérer toutes les valeurs de la table

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public FrmPx As Variant   Function Frmx() Frmx = FrmPx End Function       SELECT VFIC.PROJ_ID, etc...... FROM OLVX WHERE (((VFIC.PROJ_ID)=Frmx()))

---

J'ai essayé avec la valeur

Code:

---

Frmpx = ""

---

mais cela ne marche pas

Quelqu'un à une idée ?

Merci d'avance
SLH

Bonjour,

Essaie comme ça pour la fonction :

Code:

---

1 2 3 4 5 6 7 8 9

Public FrmPx As Variant   Function Frmx() If IsEmpty(FrmPx) Then Frmx = Null Else Frmx = FrmPx End If End Function

---

Si la variable FrmPx de type Variant n'est pas initialisée, IsEmpty(FrmPx) est Vrai et la fonction Frmx() renvoie Null.
Si la variable FrmPx contient Null, la fonction Frmx() renvoie Null.
Dans les autres cas la fonction Frmx() renvoie la valeur de FrmPx.

Et, pour la requête :

Code:

---

1 2 3

SELECT VFIC.PROJ_ID, etc...... FROM OLVX WHERE (((VFIC.PROJ_ID)=Frmx()) Or (Frmx() Is Null))

---

• Frmx() renvoie Null
  La requête renvoie tous les enregistrements
• Frmx() renvoie une valeur
  La requête renvoie tous les enregistrements pour lesquels VFIC.PROJ_ID=Frmx()

En espérant avoir correctement compris.
A+

Bonjour,

Une solution pourrais consister a construire ta requête suivant la valeur de retour de ta fonction.

Exemple de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim strSQL As String Dim ClauseWhere As String   If Frmx() = "" Then ClauseWhere = "" Else ClauseWhere = "WHERE (((VFIC.PROJ_ID)=" & Frmx() & "))" End If strSQL = "SELECT VFIC.PROJ_ID, etc...... " & _ "FROM OLVX " & _ ClauseWhere & ";"

---

Tu adaptes ainsi la clause Where de la requête en fonction de ton critère.
A+

Bonjour,

Okay parfait, sa fonctionne très bien (j'ai utilisé le code de LedZeppII)

Merci LedZeppII et Yvan49 pour vos réponses rapide et clair

@ bientôt

SLH