Discussion :

[Chopper]

Bonjour,

Est-il possible dans une requête SQL, de faire appel à une variable définie en VBA ?
Par ex : SELECT * FROM table WHERE champ = Identifiant

où Identifiant est une variable VBA déclarée plus tôt avec un Dim par ex.

Merci d'avance

[Pitou5464]

où Identifiant est une variable VBA déclarée plus tôt avec un Dim par ex

Code :

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

1
2
3
4
Dim identifiant as string
identifiant = Me.Tonchamp.value
str = "SELECT * FROM table WHERE champ = '" & Identifiant & "'"
DoCmd.runsql str

Tout dépend de ce que contient ta variable identifiant en fait

[random]

il faut que identifiant soit déclaré au niveau module

sinon le mieux est de déléguer cela à une fonction

Code :

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

1
2
3
4
5
6
7
 
 
Function identifiant(Optional nident As Variant) As Variant
Static identi As Variant
If Not IsMissing(nident) Then identi = nident
identifiant = identi
End Function

ceci permet de partout (requete, formulaire...) de mettre à jour ou d'interroger

[Chopper]

Merci pour vos réponses, je vais me pencher dessus.

En fait voici la situation :
- Un premier formulaire permet de contrôller un accès utilisateur, et d'en déduire l'identifiant utilisateur (un nombre)
- Cet identifiant est stocké dans une variable publique IdUtilisateur déclarée dans un module : Public IdUtilisateur (l'identifiant dont je parle plus haut)
- Le formulaire de Login se ferme, et ouvre un formulaire de saisie. Celui-ci se base sur une requête qui nécessite un paramètre dont la valeur est justement cette identifiant. Donc l'idéal serait que la requête puisse récupérer en tant qu'argument le résultat d'une variable déclarée en VB, plutot que de me demander de la saisir manuellement.

Le but final étant de faire un système de contrôle d'accès. Selon l'utilisateur, le résultat de la requête est différent. Car certains utilisateurs ne doivent pas avoir accès à certaines données...

Voila pourquoi j'avais besoin de ça lol
@++