Discussion :

[Ragnarok85]

Je n'arrive pas à utiliser les variables a et b ds ma requête, à l'ouverture de l'état il me demande quelles sont leurs valeurs.
Si vous avez une solution, merci.

Voici le code, j'ai laissé une partie de la requête de côté.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Report_Open(Cancel As Integer)
Dim a As String
Dim b As String
 
a = Forms!frmEntree!txtNoRef.Column(0, 0)
b = Forms!frmEntree!txtNoRef.Column(0, 1)
Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = a OR NoRef = b"
 
End Sub

[Junior_jef]

Code :

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

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = ' " & a & " ' OR NoRef = ' " & b & " ' "

si tes variables sont de types string

Code :

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

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = " & a & "  OR NoRef =  " & b

si tes variables sont d'un type autre qu'une chaine de caractère

[jfc]

Crée une fonction VBA qui renvoie la valeur de a et intègre cette fonction dans ta clause Where.

Code :

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

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = fReturna() OR NoRef = fReturnb()"

[Gary_Stoupy]

Bonjour,

le code dépend du type de tes variables et de tes champs
si tes variables sont de type numérique (entier, long, etc...) alors le code de junior_jef fonctionne impecc...

par contre, si c'est des chaines de caractères (string) alors il faut mettre

Code :

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

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = '" & a & "' OR NoRef = '" & b & "'"

Après cela dépend aussi du type de tes champs sur lesquels tu exécutes tes conditions

[soltani1]

Bonjour,

Essaie de sortir les variables des côtes (") sinon il seront considérés comme tel

Code :

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

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef  WHERE NoRef = " & a & " OR NoRef = " & b

A+

[cafeine]

Hello,

Tout ça est intéressant, mais ne pas oublier un

Code :

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

Me.Requery

sinon ça n'aura pas d'impact

[Ragnarok85]

Je suis desolé de vous dire cela, mais rien ne fonctionne jusqu'au bout.
Donc a et b sont des valeurs String.
Le programme arrive à lire les variables avec la syntaxe " & a & " mais il y a alors une erreur de syntaxe. Et si je rejoute des quotes, cela ne fonctionne pas car il comprend que je cherche un Noref = & a &, il lit ce qu'il y a entre les quotes.

[Ragnarok85]

Caféine,
J'avais fait un test sans me.requery en utilisant des valeurs que je connaissais, et ca fonctionnait. Ma procédure s'effectue avant l'ouverture du premier enregistrement dc j'en ai pas besoin si je ne me trompe pas.

[cafeine]

Pour déboguer, il faut utiliser le Debug.Print.

Cf. mon tuto : http://cafeine.developpez.com/access...el/debugprint/

Je suis desolé de vous dire cela, mais rien ne fonctionne jusqu'au bout.
Donc a et b sont des valeurs String.
Le programme arrive à lire les variables avec la syntaxe " & a & " mais il y a alors une erreur de syntaxe. Et si je rejoute des quotes, cela ne fonctionne pas car il comprend que je cherche un Noref = & a &, il lit ce qu'il y a entre les quotes.

[Ragnarok85]

J'obtiens rien de plus avec DebugPrint, il me renvoit toujours erreur 3075, erreur de syntaxe.

[Ragnarok85]

Excusez moi, je vais aller me cacher.....

Le code suivant fonctionne:

Code :

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

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = '" & a & "' OR NoRef = '" & b & "'"

Merci à gary-stoupy
Cela ne fonctionnait pas car j'avais un deuxième problème, je n'avais pas encore enregistré les NoRef que je voulais afficher dans l'état.
Merci à tout le monde

Bon je vais essayer d'arrêter les boulettes...