Erreur suite a une requéte sql [Résolu]

Messages postés
90
Date d'inscription
jeudi 17 mars 2005
Statut
Membre
Dernière intervention
16 juin 2005
- - Dernière réponse : cs_Tene
Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
- 13 avril 2005 à 09:44
Bonjour, j'ai une erreur dans ce bout de code, ça m'écrit, " un objet est requis", j'ai repéré l'erreur en gras.Si vous comprenez d'ou vient l'erreur, ce serait bien.
merci d'avance

Private Sub Cmd_Informations_Click()
' Requête SQL: on sélectionne tous
strsql = "SELECT ReferenceProduit,NumeroDeSerie,TypeProduit FROM produit" strsql strsql & " WHERE NumeroDeSerie '" & Lst_NumSer.Text & "'"
Set RstQuery = Db.OpenRecordset(strsql)
If Not (Recordset.BOF And Recordset.EOF) Then
Do While Not Recordset.EOF
'On affiche les données sélectionnées dans les différents labels
RES_TypeProduit.Caption = Recordset.Fields("TypeProduit").value
RES_NumSer.Caption = Recordset.Fields("NumeroDeSerie").value
Recordset.MoveNext
Loop
End If


End Sub

JIMM
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
3
Merci
Private Sub Cmd_Informations_Click()
' Requête SQL: on sélectionne tous
strsql = "SELECT ReferenceProduit,NumeroDeSerie,TypeProduit FROM produit" strsql strsql & " WHERE NumeroDeSerie '" & Lst_NumSer.Text & "'"
Set RstQuery = Db.OpenRecordset(strsql)
If Not (Recordset.BOF And Recordset.EOF) Then
Do While Not Recordset.EOF
'On affiche les données sélectionnées dans les différents labels
RES_TypeProduit.Caption = Recordset.Fields("TypeProduit").value
RES_NumSer.Caption = Recordset.Fields("NumeroDeSerie").value
Recordset.MoveNext
Loop
End If
End Sub

dans ton test tu écris if not recordset au lieu de RstQuery et pense à le changer dans les lignes suivantes...
de plus tu ne vas jamais entrer dans ton test car après l'exécution d'une requête, ton recordset sera placé sur BOF si EOF n'est pas vrai... tu peux l'enlever et laissé seulement:

Private Sub Cmd_Informations_Click()
' Requête SQL: on sélectionne tous
strsql = "SELECT ReferenceProduit,NumeroDeSerie,TypeProduit FROM produit" strsql strsql & " WHERE NumeroDeSerie '" & Lst_NumSer.Text & "'"
Set RstQuery = Db.OpenRecordset(strsql)

Do While Not Recordset.EOF
'On affiche les données sélectionnées dans les différents labels
RES_TypeProduit.Caption = Recordset.Fields("TypeProduit").value
RES_NumSer.Caption = Recordset.Fields("NumeroDeSerie").value
Recordset.MoveNext
Loop
End Sub

bonne prog, a+

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 207 internautes nous ont dit merci ce mois-ci