Problème Do Until .EOF Loop

Bonjour,

J'essaie de faire une boucle qui me permette d'utiliser un recordset et d’arrêter la boucle lorsque l'on arrive à la fin des valeurs.

Je veux utiliser un champs du recordset pour faire une sélection dans une requête du type SELECT .... WHERE Champ1 = recordset(Champ1)

Pour débuger ma requête j'essaie de la simplifier en faisant apparaitre une valeur dans un objet de formulaire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Test_Click() Dim SQL As String Dim Req As Recordset Dim VarTest As String   SQL = "SELECT [T_Client_Acces].[ID_Client], [T_Client_Acces].[ID_Segment_Client] FROM [T_Client_Acces]"   Set Req = CurrentDb.OpenRecordset(SQL) Req.MoveFirst   Do Until Req.EOF Req.MoveNext VarTest = Req("[ID_Client]") Lieu = VarTest Loop End Sub

---

Lorsque j'applique ce code, j'obtiens bien l'affichage de la dernière valeur de ma liste dans mon objet de formulaire.
Mais il apparait une fenêtre erreur:
Erreur d'exécution '3021': Aucun enregistrement en cours
le debug étant sur: VarTest = Req("[ID_Client]")

Par contre lorsque je rajoute dans mon code un

Code:

---

1 2 3 4

If VarTest = 49 Then Exit Do End If

---

J'obtiens l'affichage de ma dernière valeur qui est mon enregistrement sans fenètre erreur, ou tout autre valeur que je met dans le VarTest = ...

Étant donné que cette boucle sera utilisée dans d'autres boucles j'aurais besoin de vos conseils pour corriger cette erreur.

J'ai aussi essayé les syntaxes suivantes:

Code:

---

Do While not Req.EOF ... loop

---

Code:

---

Do Until Req.EOF = true ... loop

---

Code:

---

1 2 3 4 5

Do If Not Req.EOF = true Then ... End if Loop

---

Qui me font tomber sur la même erreur.

Code:

---

Do While not Req.EOF(1) ... loop

---

Code:

---

Do Until Req.EOF(1) ... loop

---

Me donne une autre erreur: erreur de compilation nombre d'arguments incorrect ou affectation de propriété incorrecte.

Mais je ne trouve pas ou est l'erreur.

Bien cordialement.
Julien

Bonjour.

Access se place automatiquement sur le 1er enregistrement donc il fautt changer d'enregistrement apres avoir traite celui courant.

Code:

---

1 2 3 4 5

Do Until Req.EOF VarTest = Req("[ID_Client]") Lieu = VarTest Req.MoveNext Loop

---

Et personnellent je prefere :

Code:

---

1 2 3 4 5

Do while not Req.EOF VarTest = Req("[ID_Client]") Lieu = VarTest Req.MoveNext Loop

---

"Tant que je n'ai pas atteind la fin du recordset" je trouve plus parlant que "Jusqu'a la fin du recordset".

Et pense a indenter ton code, cela le rend plus lisible.

A+

Re-bonjour.

Citation:

---

Je veux utiliser un champs du recordset pour faire une sélection dans une requête du type SELECT .... WHERE Champ1 = recordset(Champ1)

---

Il est generalement plus efficace d'utiliser une requete SQL plutot qu'un parcours d'enregistrement un a un en VBA, surtout si tu as beaucoup d'enregistrements.
Donc tu peux eventuellement regarder vers les requetes parametrees, l'utilisation de jointure ou/et la creation dynamique de SQL.
VBA peut tout de meme etre une tres bonne solution.
Cela depend du contexte.

A+

Re-Re-Bonjour.

Citation:

---

Pour débuger ma requête j'essaie de la simplifier en faisant apparaitre une valeur dans un objet de formulaire.

---

Tu es mieu d'utiliser au choix :

1. Code:

   ---

   Debug.Print Req("[ID_Client]")

   ---

   Qui va t'afficher le resultat dans la fenetre d'execution immediate ([ctrl][g] pour l'afficher si elle n'est pas la).
2. Le parcours pas a pas
   
   1. Tu cliques dans la marge a gauche de ton code.
   2. Access affiche un gros point rond, c'est le point d'arret.
   3. Tu executes ton code.
   4. Access s'arrette sur le point d'arret.
   5. Pour avancer dans l'execution tu appuis sur [f8].
   6. Tu peux voir la valeur d'une variable ou d'un champ en pointant dessus avec la souris.
3. L'editeur de requetes.
   
   1. Tu recopies le SQL dans l'editeur dans une
   2. Tu crees une nouvelle requete a laquelle tu n'ajoutes aucune table.
   3. Tu changes l'affichage pour SQL (en haut a gauche)
   4. Tu colles le SQl.
   5. Tu rebascules en mode conception.
   6. Tu demandes l'affichage du resultat.

A+

Bonjour Marot,

Un grand merci pour ton aide c'est toujours magique comme tout marche bien quand on applique des conseils bien donnés :D

Par curiosité, est-ce possible de faire une boucles en SQL?

Très cordialement
Julien

Bonjour.

Citation:

---

Par curiosité, est-ce possible de faire une boucles en SQL?

---

Certains SQL le permettent mais pas celui d'Access.
SQL est un langage "descriptive" et non procedural.
Donc tu dis a la BD ce que tu veux faire et elle s'arrange pour le realiser.

On peut "simuler" un boucle en utilisant une jointure sur une table qui contient N elements.
Par exemple, il m'arrive d'avoir besoin des 12 mois de l'annee pour presenter des statistiques mais que dans mes donnees je n'ai que quelque mois.
J'ai donc un table qui contient 12 enregistrements et je fais une jointure avec mes stats mensuelles pour avoir quand meme 12 mois donc j'ai une sorte de boucle de 1 a 12.
Sorti de cas assez simples c'est souvent plus de complication qu'une boucle en VBA et une table temporaire mais ca peut etre pratique.

A+

J'utilise justement VBA pour l'exemple des mois ou des semaines... Je pense que je vais passer par ta technique :)

Un grand merci pour cette astuce.

Très cordialement.
Julien

Pour les mois ca reste viable.

Pour les semaines, je ne suis pas certain que ce soit rentable,

Pour info.

Tu 53 semaines par an (365/7=52.14) avec la 1ere semaine de l'annee ou la derniere ou les 2 qui peuvent etre incompletes.
Pour recuperer le numero de semaine, tu peux utiliser

Code:

---

format(IciUneDate, "ww", vbMonday, vbFirstJan1) 'Voir l'aide pour les valeurs de parametre

---

Cela te retourne un numero entre 1 et 53.

A+

Bonjour Marot,

J'ai une petites questions pour les dates:
J'essaie de travailler sur un calendrier perpétuel où je soustrait une date à une autre et ou je veux faire disparaitre l'impact des années.

Est-ce qu'il existe sous Access une commande d'extraction de la valeur numérique semaine (autre qu'un formatage par copie - spécial valeur formule no.semaine sous excel)?

Bien cordialement
Julien

Bonjour.

Le format est a ma connaissance la seule facon d'avoir la semaine en Access.

Tu peux peut-etre utiliser cette formule dans un champ calcule dans une table.

Tu aurais :

• DateQuelqueChose : Date
• NumSemaineQuelqueChose : Calcule

et evidement tu peux t'ecrire une function que tu utiliseras, quelque chose comme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

public function LireNumSemaine(prmDate as variant) as variant 'Utiliser des variants permet de passer des Null   dim result as variant:result=null   if not isnull(prmDate) then   if isdate(prmDate) then result=val(format(prmDate, "ww", vbMonday, vbFirstJan1)) end if   end if   LireNumSemaine=result end function

---

A+

Bonjour Marot,

Merci beaucoup pour cette information!!

Très cordialement.
Julien Brach