Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access
Access Forum d'entraide sur Microsoft Access. Avant de poster -> La F.A.Q Access
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 22/09/2011, 15h36   #1
Membre du Club
 
Kev034
Inscription : juin 2010
Messages : 249
Détails du profil
Informations personnelles :
Nom : Kev034
Localisation : France, Hérault (Languedoc Roussillon)

Informations forums :
Inscription : juin 2010
Messages : 249
Points : 58
Points : 58
Par défaut Erreur de RecorSet vide

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 :
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 !
kek's est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 22/09/2011, 18h18   #2
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

Il ne faut pas mettre de guillemets simples (') autour du nom du champ.
On peut mettre des crochets droits, par contre.
Code :
    Set rs = db.OpenRecordset("Select Nom from Article where [" & Me.listeChampsRechercheModif.Value & "] like '*" & Me.TBValeurRechercheModif.Value & "*'")
Il manque un MoveNext dans la boucle.
Code :
1
2
3
4
5
    valeur = ""
    While rs.EOF = False
        valeur = valeur & rs("Nom") & ";"
        rs.MoveNext
    Wend
A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/09/2011, 08h47   #3
Membre du Club
 
Kev034
Inscription : juin 2010
Messages : 249
Détails du profil
Informations personnelles :
Nom : Kev034
Localisation : France, Hérault (Languedoc Roussillon)

Informations forums :
Inscription : juin 2010
Messages : 249
Points : 58
Points : 58
Merci à toi LedZeppII,
effectivement tu avais raison je veux juste savoir pourquoi pas de simple guillemets si possible ?

A+
kek's est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/09/2011, 18h44   #4
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Citation:
Envoyé par kek's Voir le message
... 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+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 17h46.


 
 
 
 
Partenaires

Hébergement Web