Parcours du resultat d'une requetes sous VBA
Bonjour a tous
Voila mon prob. Quand je parcours le resultat d'une requetes ACCESS faite a partir de VBA, il me lit mes informations dans n'importe quel ordre. quelqu'un saurait comment faire pourqu'il commence au premier enregistrement et s'arrete au dernier??
Merci
Lionel
Voila mon prob. Quand je parcours le resultat d'une requetes ACCESS faite a partir de VBA, il me lit mes informations dans n'importe quel ordre. quelqu'un saurait comment faire pourqu'il commence au premier enregistrement et s'arrete au dernier??
Merci
Lionel
5 réponses
-
ContributeurBonjour...
après recherche dans mes archives, tu fais comme ça:
rstExample.MoveFirst do while rstExample.EOF = false
Sachant que rstExample est un recordset!!
Bon courage
Maily :-))))-
Bonjour mayli, j'ai vu que tu a donne des conseils concernant VBA et requetes
j'ai un pb avec tous les Liste.MoveNext, Liste.RecordCount, Liste.EOF. Le message d'erreur est : Propiété ou methode non geree par cet objet (erreur 408)
tout le reste est ok (connection, execution de la requete, ...)
j'ai coché dans les references : Microsoft ActiveX Database Objects v2.5
saurais tu ce qu'il faut que je coche en plus ?
merci
chris -
-
-
@chrispense à lire la charte et l'encart en bas du formulaire d'envoi chris. Ca veut dire: nouvelle question = nouveau message sur le forum, il ne faut pas poster dans le message d'une question de quelqu'n d'autre, sauf évidemment pour répondre ou si c'est vraiment dans le fil de la conversation, c'est pas trop sympa pour le posteur initial (-:
kinder.surprise,
le maton du matou
-
-
ok je teste
merci -
en fait c'est pas ca le prob désolé.
voila ce que je fais:
PerMax = 0
For indice = 1 To nbrofrecs - 1 Step 1
Per1 = req.Fields("lastdate")
req.MoveNext
Per2 = req.Fields("lastdate")
If Per1 <= Per2 Then
pertemp = Per2
Else
pertemp = Per1
End If
If PerMax <= pertemp Then
PerMax = pertemp
indmax = indice
End If
Next
En fait j'ai besoin de garder indmax pour povoir retourner a cet enregistrement precis apres pour pouvoir récuperer les données.
Mais quand j'y retourne ca me donne la donnée qui suit et pas celle dont j'ai besoin. -
Essaye ceci:
PerMax = 0
req.MoveFirst
For indice = 1 To nbrofrecs - 1 Step 1
Per1 = req.Fields("lastdate")
req.MoveNext
Per2 = req.Fields("lastdate")
If Per1 <= Per2 Then
pertemp = Per2
Else
pertemp = Per1
End If
If PerMax <= pertemp Then
PerMax = pertemp
indmax = indice
End If
Next indice
Rien n'est plus dangereux qu'une idée quand on a
qu'une idée :-) -
ok merci j'essaierai ca
