Discussion :

[alainb]

Bonjour et meilleurs vœux à tous,
mon problème du 1er de l'an !

Je souhaite utiliser une variable dans la requête source d'un état

Code :

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

1
2
varMaTable="nomdeMaTable"
sqlFiltre = "SELECT * FROM " & varMaTable & ""

j'ouvre l'état avec

Code :

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

DoCmd.OpenQuery "rptEtat",acViewPreview

Comment affecter le contenu de ma requête SQL à la source de mon état ?
Merci pour votre aide
Alain

[Invité]

Bonjour
Sur l'évènement Ouverture de l'état:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Report_Open(Cancel As Integer)
Dim varMaTable as String
Dim sqlFiltre as String
 
varMaTable="nomdeMaTable"
sqlFiltre = "SELECT * FROM " & varMaTable 
Me.RecordSource = sqlFiltre
End Sub

[Jeannot45]

Pour compléter l'information de Gayot , je te conseille la lecture de ce tuto : Plusieurs requêtes pour un même état

Bonne lecture

[alainb]

Pour compléter l'information de Gayot , je te conseille la lecture de ce tuto : Plusieurs requêtes pour un même état
Bonne lecture

Bonjour,
L'article cité me donne plusieurs réponses.
Je souhaite maintenant utiliser NZ dans ma requête
Mes essais sont laborieux...

aucun enregistrement ne s'affiche si maListe est vide avec

Code :

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

sqlFiltre = "SELECT * FROM " & varMaTable & " WHERE monChamp = NZ('" & maListe & "', monChamp)"

tous les enregistrements s'affichent si maListe est vide avec

Code :

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

sqlFiltre = "SELECT * FROM " & varMaTable & " WHERE NZ('" & maListe & "', monChamp)"

[Jeannot45]

la Fonction NZ(NomVariable,ValeurSiVide) te permet de tester d'une manière plus simple le cas d'une valeur nulle

exemple :

Code VBA :

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

1
2
3
4
5
6
 
If Nz(Mavariable,0) = 0 Then
    ....
else
    ....
End If

Par contre dans ta syntaxe SQL, j'utiliserai plutot la fonction VraiFaux() dans l'interface VBE qui se traduit pas Iif() en SQL
Exemple :

Code SQL :

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

1
2
 
sqlFiltre = "SELECT * FROM " & varMaTable & " WHERE Iif(" & monChamp & "= ;monChamp;'" & maListe & "')"

Je n'ai pas testé donc à vérifier

[alainb]

Bjr Jean,

Dans ta proposition, je ne comprend par comment "Iif" teste "maListe"

Code :

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

sqlFiltre = "SELECT * FROM " & varMaTable & " WHERE Iif(" & monChamp & "= ;monChamp;'" & maListe & "')"

J'ai la solution avec :

Code :

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

1
2
sqlFiltre = "SELECT * FROM " & varMaTable & _
" WHERE Iif ( '" &  maListe & "';'" & maListe.value & "'; monChamp)"

merci pour ton aide précieuse
Alain