[AC-2003] Utiliser une variable dans une requête SQL [Résolu]

[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 :

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

j'ouvre l'état avec

Code :

DoCmd.OpenQuery "rptEtat",acViewPreview

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

[GAYOT]

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

Code :

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]

Envoyé par 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

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 :

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

tous les enregistrements s'affichent si maListe est vide avec

Code :

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 :

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 :

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 :

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

J'ai la solution avec :

Code :

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

merci pour ton aide précieuse
Alain