Discussion :

[aminnio]

Bonjour,
Ma question est simple, elle ne concerne que VBA .
Est-il possible de faire une requete dont le nom de la colonne est parametré.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande2_Click()
Dim param As String
Dim rst As DAO.Recordset
param = Texte0.Value
Set rst = db.OpenRecordset("SELECT Colonne LIKE '" & param & "' FROM [Condition Name]")
rst.MoveFirst
Do
MsgBox rst
rst.MoveNext
Loop Until rst.EOF
rst.Close
End Sub

J'ai cherché sur internet, j'ai pas trouvé une reponse concrete sur la façon de l'utiliser, ni si vraiment ça existe ...


Voila, Merci !

[Jean-Philippe André]

Salut,

Ici tu as le nom exacte de ton champ ou bien seulement une partie du champ ?

Code :

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

Set rst = db.OpenRecordset("SELECT [" & param & "] FROM [Condition Name]")

[aminnio]

Le nom que je donnerais sera le nom exacte.
Si jamais c'est qu'une partie du nom, j'ajouterais l' * au debut, c'est bien ça?


Merci pour la reponse rapide, j'ai une erreur par contre à l'execution ..
Erreur 13, Incompatibilité du type. Au niveau de :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande2_Click()
Dim param As String
Dim rst As DAO.Recordset
param = Texte0.Value
Set rst = db.OpenRecordset("SELECT [" & param & "] FROM [Conditions]")
rst.MoveFirst
Do
MsgBox rst
rst.MoveNext
Loop Until rst.EOF
rst.Close
End Sub

Encore Merci !

[Jean-Philippe André]

Si tu souhaites afficher le contenu de ton recordset il faut spécifier le champs par son nom ou son numéro dans le recordset :

Code :

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

Msgbox rst.Fields(0).Value