Discussion :

[kek's]

Bonjour à tous,

J'ai une petit soucis au niveau de mon recordSet et je ne vois pas d'où ca peut venir
mon recorSet est vide après avoir exécuté la requête alors que celle-ci est correcte !
Si quelqu'un voit une anomalie dans mon code qu'il n'hésite pas à la partager avec moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CDRecherche_Click()
Dim db As Database
Dim sql As String
Dim rs As Recordset
Dim valeur As String
 
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select Nom from Article where '" & Me.listeChampsRechercheModif.Value & "' like '*" & Me.TBValeurRechercheModif.Value & "*'")
 
    valeur = ""
    While rs.EOF = False
        valeur = valeur & rs("Nom") & ";"
    Wend
 
    Me.ResultatRechercheModif.RowSource = valeur
    rs.Close
    Set rs = Nothing
 
End Sub

Merci à tous !

[LedZeppII]

Bonjour,

Il ne faut pas mettre de guillemets simples (') autour du nom du champ.
On peut mettre des crochets droits, par contre.

Code :

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

    Set rs = db.OpenRecordset("Select Nom from Article where [" & Me.listeChampsRechercheModif.Value & "] like '*" & Me.TBValeurRechercheModif.Value & "*'")

Il manque un MoveNext dans la boucle.

Code :

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

1
2
3
4
5
    valeur = ""
    While rs.EOF = False
        valeur = valeur & rs("Nom") & ";"
        rs.MoveNext
    Wend

A+

[kek's]

Merci à toi LedZeppII,
effectivement tu avais raison je veux juste savoir pourquoi pas de simple guillemets si possible ?

A+

[LedZeppII]

... je veux juste savoir pourquoi pas de simple guillemets si possible ?

C'est la syntaxe du SQL d'Access qui veut ça pour les noms de tables, requêtes, champs.
Les guillemets simples ne sont utilisés que pour les expressions de type chaîne de caractères.

A+