Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 01:16:02

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par pile_poil

RE : TRI AVEC RELATIONS par LIBRE_MAX

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par didyvine

RESEDIT (1.4.6)

ResEdit est un éditeur de ressources pour vos programmes Win32. Il vous permettra notamment d'int...

Cliquez pour télécharger ResEdit
ResEdit (1.4.6)
TODOLIST (5.8.7)

Pour organiser vos projets de programmation, un bon outil de planification est nécessaire. ToDoLi...

Cliquez pour télécharger ToDoList
ToDoList (5.8.7)
XNVIEW (1.96.2)

XnView est un outils puissant permettant de visualiser et convertir de nombreux format graphique ...

Cliquez pour télécharger XnView
XnView (1.96.2)
UTORRENT (1.8.3 BUILD 15772)

C'est un client BitTorrent très puissant et très performant. Comme son nom l'indique, uTorrent (m...

Cliquez pour télécharger uTorrent
uTorrent (1.8.3 Build 15772)
NOTEPAD++ (5.4.4)

Notepad++ est un editeur de code source qui supporte plusieurs langages. Ce programme, a pour but...

Cliquez pour télécharger Notepad++
Notepad++ (5.4.4)

+ de logiciels à télécharger

1 467 588 membres
9 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 660 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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

Information sur la source

Catégorie :VBA Niveau : Débutant Date de création : 04/06/2003 Date de mise à jour : 04/06/2003 12:55:05 Vu : 3 184

Auteur : Psycadi02

Ecrire un message privé

Note :

1,00 / 10

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

TRACER UN PAPIER MILLIMÉTRÉ PERSONNALISÉ par VBsearch

EXPORT TABLEAU EXCEL EN BBCODE par nikovb

AFFICHEUR DE LISTE AVEC VALIDATION (EXCEL) par AC045364

REDIMENSIONNER IMAGE par Le Pivert

RENOMMER SÉRIE D'IMAGE DIRECTEMENT AVEC VBA EXCEL (CLASSEMEN... par davidparison

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...