Discussion :

[Jean-Luc80]

Bonjour
Peut t'on dans le code suivant remplacer la clause where par une valeur contenue dans un champ de formulaire ?

Code :

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

1
2
3
4
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=CurrentDb
Set oRst=oDb.OpenRecordset("SELECT NomClient,Ville FROM Clients WHERE NomClient=Dupont",dbOpenDynaset)

Je m'explique : au lieu de

Code :

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

Where Nomclient=Dupont

je voudrais faire qqchose comme

Code :

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

Where Nomclient=ChampduFormulaire.value

Merci

[Invité]

Bonjour

Oui, c'est tout à fait possible et heureusement.

Voici un exemple.

Code :

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

1
2
3
4
dim strSql as String
strSql =  SELECT NomClient,Ville FROM Clients WHERE NomClient='" & Me.Lechamp.value & "'"
 
Set oRst=oDb.OpenRecordset(strSql,dbOpenDynaset)

Remarques :

• Je l'ai tapé à la main, donc peut-être une erreur de syntaxe.
• Tu prends une donnée de type texte, donc tu il faut entourer de doubles-quotes (ne nombreux postes et articles en parle).
• Le fait du passer par une variable (strSQL) simplifie la lecture du code, surtout si ta chaine SQL est assez longue.

Autre Remarque :
On ne fait jamais une recherche sur un nom dans une table des clients, elles doivent être gérée par une clé primaire. Comment vas-tu faire si tu as deux clients avec le même nom ?

Starec

[Jean-Luc80]

Merci à Starec pour ses conseils
Ca fonctionne
Quant à cette remarque

"On ne fait jamais une recherche sur un nom dans une table des clients, elles doivent être gérée par une clé primaire. Comment vas-tu faire si tu as deux clients avec le même nom ?"

La recherche par le nom n'est qu'un exemple, en fait je recherche par un code client qui lui est unique

[Invité]

La recherche par le nom n'est qu'un exemple, en fait je recherche par un code client qui lui est unique

Je préfère