begin process at 2012 02 17 02:33:34
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBA

 > UTILISATION DE LA COMMANDE "MOVENEXT" DANS UN "DO WHILE REC.EOF = FALSE"

UTILISATION DE LA COMMANDE "MOVENEXT" DANS UN "DO WHILE REC.EOF = FALSE"


 Information sur la source

Note :
1 / 10 - par 4 personnes
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Niveau :Débutant Date de création :04/06/2003 Date de mise à jour :04/06/2003 12:55:05 Vu :4 553
Auteur : Psycadi02

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

bonjour,

je souhaite faire une lecture de tous les enregistrements d'une de mes tables sous Access 2000 et modifier certains champs.

Pour cela j'utilise do while eof et un movenext.

Malheureusement, lorsque j'arrive à la fin de mon fichier, il me met un message d'erreur, hors il devrait simplement quitter ma boucle et passer à la suite.

La boucle fonctionne bien; c'est simplement en arrivant au dernier enregistrement de ma table que ça bug.

Qu'est ce qui va pas dans mon code ??

Merci.


Source

  • Dim db as database
  • Dim rec as recordset
  • Dim trouver1 as string
  • Dim Chercher1 as String
  • Set db = currentdb
  • set rec = db.openrecordset ("Table1")
  • Do While rec.EOF = False
  • If Chercher1 = Trouver1 Then
  • rec.Edit
  • rec![NumAuto] = Me.C_Nom
  • rec.Update
  • End If
  • Rec.MoveNext
  • Trouver1 = Rec![NumFacture]
  • Loop 
Dim db as database
Dim rec as recordset
Dim trouver1 as string
Dim Chercher1 as String

Set db = currentdb
set rec = db.openrecordset ("Table1")

Do While rec.EOF = False
 
    If Chercher1 = Trouver1 Then

        rec.Edit
        rec![NumAuto] = Me.C_Nom
        rec.Update

    End If
    
    Rec.MoveNext
    Trouver1 = Rec![NumFacture]
            
Loop



 Sources de la même categorie

Source avec Zip Source avec une capture OUTLOOK ATTACHEMENT SAVER par MoiLafouine
Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Toutes les sources de la catégorie VBA

Commentaires et avis

Commentaire de Zoltan67 le 04/06/2003 13:07:11

ici, c pour déposer des sources, pas pour poser des questions
les questions, c sur le forum que ça se pose !!!
mais je vais être gentil :
après ton movenext, tu fais un rec![numfacture].
donc c normal qu'il te mette un message d'erreur quand tu es au dernier enregistrement, car a ce moment tu as rec.eof=true, donc fais juste un test genre
if not rec.eof then Trouver1 = Rec![NumFacture]
la prochaine fois, met ta question dans le forum

Commentaire de Jujufouq le 04/06/2003 21:30:33

Euh...
If source = question Then source = pasSource : MsgBox "Faut virer ce message qui devrait être au forum!"

Merci de comprendre l'utilité du forum et de respecter cette place pour les SOURCES que nous offre le réseau CodeS-SourceS.

Commentaire de olivier42 le 09/06/2003 03:33:34

le plus simple c'est d'inverser tes lignes "rec.movenext" et "Trouver1 = Rec![NumFacture]"

Commentaire de krissssss le 18/12/2003 16:44:56

Il est assez facile de transformer cette question en source :-)
(source qui devient alors très interressante)

A ce momment, c'est vos 3 commentaires et le mien qui n'auront plus leur place ici ;-)

Psycadi02, transforme ta question maintenant que tu as ta réponse et le mal sera réparé :-)

Jujufouq, lis les comentaires de autres avant de mettre le tien, car c'est inutile de se répéter

olivier42, quelle clarté !!! :-)

Zoltan67, rien à redire...

Commentaire de espsl25 le 19/10/2004 16:39:06

le programme et de type débutant, et c pas la peine de trop critiquer, c tres mauvais

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo Landscape of a Sunrise in Kauai Hawaii 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,562 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)