Discussion :

[TicTac75]

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 :

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

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 :

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

Frmpx = ""

mais cela ne marche pas

Quelqu'un à une idée ?

Merci d'avance
SLH

[LedZeppII]

Bonjour,

Essaie comme ça pour la fonction :

Code :

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

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 :

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

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+

[Yvan49]

Bonjour,

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

Exemple de code:

Code :

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

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+

[TicTac75]

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