Requete en LIKE sous VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Requete en LIKE sous VBA

Mariooo

Bonjour !! :hello:

Je ne m'explique pas une fantaisie que me fait Access.
Je génère une requête SQL, à travers VBA. Elle a cette tête :

Code :

Set rst = CurrentDb.OpenRecordset("SELECT CodeEtudiant, Nom FROM TableEtudiants WHERE CodeEtudiant LIKE '" & code_etudiant & "*'" )

Je but de la manoeuvre étant de récupérer tous les étudiants dont le code commence par la chaine de caractères code_etudiant (en général deux ou trois caractères)
Mon problème : la requete ne semble renvoyer toujours qu'un seul élément, puisque un RecordCount me renvoit toujours 1 !

Le problème vient-il de la syntaxe de la requête ?

Mon code entier :

Code :

Set rst = CurrentDb.OpenRecordset("SELECT CodeEtudiant, Nom FROM TableEtudiants WHERE CodeEtudiant LIKE '" & code_etudiant & "*'" )
nb_enreg = rst.RecordCount
If nb_enreg = 0 Then
MsgBox "Pas d'étudiant ayant ce code"
DoCmd.Close acForm, "FormulaireEtudiantRechIntuitive"
ctl.SetFocus
Exit Sub
End If
tablo = rst.GetRows(nb_enreg)
'affectation du tableau à la liste
ctlListeEtudiants.RowSourceType = "Value List"
For i = 0 To (nb_enreg - 1)
ctlListeEtudiants.AddItem (tablo(0, i) & " " & tablo(1, i))
Next i

En attendant je potasse le problème, merci pour votre aide :jap:

Message édité par Mariooo le 06-05-2005 à 11:37:28

---------------
Dyslexics have more fnu.

Publicité

AlainTech

Pas trouvé? Cherche encore!

Mets ta string de requête dans une variable "string".

Ca te permettra de voir son contenu avant de l'appliquer.

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Mariooo

Merci Alaintech mais... problème résolu !!!

Cela n'avait rien à voir avec la requête, c'était mon RecordCount qui clochait.
Pour qu'un RecordCount renvoit autre chose que 1, il faut lui avoir fait parcourir d'abord tous les enregistrements du recordset...
Donc hop, un petit MoveLast et le tour est joué !

Code final-qui-marche pour ceux que ça intéresse

Code :

'Compte le nombre de résultats en vu de l'affectation au tableau
Set rst = CurrentDb.OpenRecordset("SELECT CodeEtudiant, Nom FROM TableEtudiants WHERE CodeEtudiant LIKE '" & code_etudiant & "*'" )
rst.MoveLast
nb_enreg = rst.RecordCount
If nb_enreg = 0 Then
MsgBox "Pas d'étudiant ayant ce code"
ctl.SetFocus
Exit Sub
End If
'réouverture obligatoire du recordset (en tout cas ya que ça qui marche :p)
Set rst = CurrentDb.OpenRecordset("SELECT CodeEtudiant, Nom FROM TableEtudiants WHERE CodeEtudiant LIKE '" & code_etudiant & "*'" )
tablo = rst.GetRows(nb_enreg)
'affectation du tableau à la liste
ctlListeEtudiants.RowSourceType = "Value List"
For i = 0 To (nb_enreg - 1)
ctlListeEtudiants.AddItem (tablo(0, i) & " " & tablo(1, i))
Next i

---------------
Dyslexics have more fnu.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Requete en LIKE sous VBA

Sujets relatifs
menu deroulant et requete	LIKE et access
Requete SLQ/php avec LIKE	Access - VBA - Propriétés d'un MSGraph.Chart.8
Executer une requête action avec OLE DB	Message d'erreur - requete SQL (resolu)
Lien hypertexte VBA	[MySql] requete d'effacement d'id
Transformer du code VBA en VB et Userform en Form
Plus de sujets relatifs à : Requete en LIKE sous VBA

Page générée en 0.064 secondes