nagara127
Messages postés1Date d'inscriptiondimanche 18 mai 2008StatutMembreDernière intervention27 février 2009
-
27 févr. 2009 à 19:52
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 2013
-
27 févr. 2009 à 20:32
run-time error '3021'
bof ou eof est égale a true ou l’enregistrement actuel a été supprimé
Private Sub Combo2_Click()
Dim rsa As New ADODB.Recordset
Dim req As String
Dim Y As String
Y = (Left(Combo2.Text, 5))
req = "SELECT * FROM article where [Narticle]=' " & Y & "'"
rsa.Open req, ct, adOpenDynamic, adLockOptimistic
Text8.Text = rsa!narticle
Text9.Text = rsa!desig
Text10.Text = rsa!pvente
rsa.Close
End Sub
cs_Jack
Messages postés14007Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 27 févr. 2009 à 19:59
Salut
Oui, parce que après l'exécution de la requète, il faut scruter les solutions.
Cette boucle est présente dans TOUS les codes qui parlent de RecordSet.
Tu aurais donc pu trouver seul la solution en faisant des recherches sur le site
With monRecordSet
If .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
MsgBox monRecordSet!monChamp
.MoveNext
Loop
Else
MsgBox "Rien trouvé"
End If
End With
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)