Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Boucle

Boucle

6 réponses
Avatar
didier
Bonjour

J'ai une boucle du type
Dim...
......
For I=3D2 to Me.ctrl
Rst.addnew
w_N=B0=3Dw_N=B0+1
Rst!N=B0=3Dw_N=B0
Rst!Ct=3Dw_Ct
Rst.Update
Next I
Je souhaite faire un exit sub d=E9s que compteN=B0=3Dctrl1
j'ai essay=E9 apr=E9s le=20
Rst.update
If compteN=B0=3Dctrl1
Exite sub
End if
Next I
Mais sans r=E9sultat

Comment je peut faire pour stopper ma boucle si compteN=B0=20
atteint ctrl1
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
If compteN°=ctrl1 then
Exit sub
End if
ou exit for si tu veux continuer ta proc

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit dans le message de news:2469c01c45f6f$2d6419c0$
Bonjour

J'ai une boucle du type
Dim...
......
For I=2 to Me.ctrl
Rst.addnew
w_N°=w_N°+1
Rst!N°=w_N°
Rst!Ct=w_Ct
Rst.Update
Next I
Je souhaite faire un exit sub dés que compteN°=ctrl1
j'ai essayé aprés le
Rst.update
If compteN°=ctrl1
Exite sub
End if
Next I
Mais sans résultat

Comment je peut faire pour stopper ma boucle si compteN°
atteint ctrl1
Avatar
didier
Re

Mon problème n'est pas la formule, mais le moment ou je
dois placer la procédure puique comme je l'ai mis dans
mon message j'ai essayé
Rst.update
If compteN°=ctrl1
Exit sub
End if
Next I
Mais ça narrete pas ma procédure

compteN° est un champs indépendant dans mon pied de
formulaire qui compte les enregistrements de mon
formulaire
ctrl1 est un champs contenant le nombre souhaité
d'enregistrement
Je veut stopper la saisie des enregistrement dès que l'on
a atteint ctrl1
A quel moment je doit placer la procédure?


-----Message d'origine-----
bonjour
If compteN°=ctrl1 then
Exit sub
End if
ou exit for si tu veux continuer ta proc

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:2469c01c45f6f$2d6419c0

$
Bonjour

J'ai une boucle du type
Dim...
.......
For I=2 to Me.ctrl
Rst.addnew
w_N°=w_N°+1
Rst!N°=w_N°
Rst!Ct=w_Ct
Rst.Update
Next I
Je souhaite faire un exit sub dés que compteN°=ctrl1
j'ai essayé aprés le
Rst.update
If compteN°=ctrl1
Exite sub
End if
Next I
Mais sans résultat

Comment je peut faire pour stopper ma boucle si compteN°
atteint ctrl1


.



Avatar
Pierre CFI [mvp]
.../...
tu ferais mieux de compter
ton update
puis
if dcount("*","nomtablesource") = Me.ctrl1 then exit sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit dans le message de news:23f9f01c45f77$3dfec430$
Re

Mon problème n'est pas la formule, mais le moment ou je
dois placer la procédure puique comme je l'ai mis dans
mon message j'ai essayé
Rst.update
If compteN°=ctrl1
Exit sub
End if
Next I
Mais ça narrete pas ma procédure

compteN° est un champs indépendant dans mon pied de
formulaire qui compte les enregistrements de mon
formulaire
ctrl1 est un champs contenant le nombre souhaité
d'enregistrement
Je veut stopper la saisie des enregistrement dès que l'on
a atteint ctrl1
A quel moment je doit placer la procédure?


-----Message d'origine-----
bonjour
If compteN°=ctrl1 then
Exit sub
End if
ou exit for si tu veux continuer ta proc

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:2469c01c45f6f$2d6419c0

$
Bonjour

J'ai une boucle du type
Dim...
.......
For I=2 to Me.ctrl
Rst.addnew
w_N°=w_N°+1
Rst!N°=w_N°
Rst!Ct=w_Ct
Rst.Update
Next I
Je souhaite faire un exit sub dés que compteN°=ctrl1
j'ai essayé aprés le
Rst.update
If compteN°=ctrl1
Exite sub
End if
Next I
Mais sans résultat

Comment je peut faire pour stopper ma boucle si compteN°
atteint ctrl1


.



Avatar
Didier
Pas possible car je viens rentrer des N° de série en auto
avec ma procédure ou en manuel
D'autre part j'ai pas de domaine particulier, une fois
dans la table, jai rien pour faire un dcount
en gros j'ai par exemple reçu 10 machines
je viens rentrés par exemple dans mon formulaire (entrées
données exclusif) 5 machines en auto car les N° se
suivent puis 2 en manuelle car 2 N° non consécutif puis 3
en auto.
Ce que je veut faire c'est de bloquer pour qu'il ne
saisisse pas plus
-----Message d'origine-----
..../...
tu ferais mieux de compter
ton update
puis
if dcount("*","nomtablesource") = Me.ctrl1 then exit sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:23f9f01c45f77$3dfec430

$
Re

Mon problème n'est pas la formule, mais le moment ou je
dois placer la procédure puique comme je l'ai mis dans
mon message j'ai essayé
Rst.update
If compteN°=ctrl1
Exit sub
End if
Next I
Mais ça narrete pas ma procédure

compteN° est un champs indépendant dans mon pied de
formulaire qui compte les enregistrements de mon
formulaire
ctrl1 est un champs contenant le nombre souhaité
d'enregistrement
Je veut stopper la saisie des enregistrement dès que l'on
a atteint ctrl1
A quel moment je doit placer la procédure?


-----Message d'origine-----
bonjour
If compteN°=ctrl1 then
Exit sub
End if
ou exit for si tu veux continuer ta proc

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:2469c01c45f6f$2d6419c0

$
Bonjour

J'ai une boucle du type
Dim...
.......
For I=2 to Me.ctrl
Rst.addnew
w_N°=w_N°+1
Rst!N°=w_N°
Rst!Ct=w_Ct
Rst.Update
Next I
Je souhaite faire un exit sub dés que compteN°=ctrl1
j'ai essayé aprés le
Rst.update
If compteN°=ctrl1
Exite sub
End if
Next I
Mais sans résultat

Comment je peut faire pour stopper ma boucle si compteN°
atteint ctrl1


.




.




Avatar
Pierre CFI [mvp]
..../...
dcount te compte le nombre d'enregistrements dans une table, tu en fais un au départ, puis 1 au fur et à mesure des entrées

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Didier" a écrit dans le message de news:2492101c45f82$1552c670$
Pas possible car je viens rentrer des N° de série en auto
avec ma procédure ou en manuel
D'autre part j'ai pas de domaine particulier, une fois
dans la table, jai rien pour faire un dcount
en gros j'ai par exemple reçu 10 machines
je viens rentrés par exemple dans mon formulaire (entrées
données exclusif) 5 machines en auto car les N° se
suivent puis 2 en manuelle car 2 N° non consécutif puis 3
en auto.
Ce que je veut faire c'est de bloquer pour qu'il ne
saisisse pas plus
-----Message d'origine-----
..../...
tu ferais mieux de compter
ton update
puis
if dcount("*","nomtablesource") = Me.ctrl1 then exit sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:23f9f01c45f77$3dfec430

$
Re

Mon problème n'est pas la formule, mais le moment ou je
dois placer la procédure puique comme je l'ai mis dans
mon message j'ai essayé
Rst.update
If compteN°=ctrl1
Exit sub
End if
Next I
Mais ça narrete pas ma procédure

compteN° est un champs indépendant dans mon pied de
formulaire qui compte les enregistrements de mon
formulaire
ctrl1 est un champs contenant le nombre souhaité
d'enregistrement
Je veut stopper la saisie des enregistrement dès que l'on
a atteint ctrl1
A quel moment je doit placer la procédure?


-----Message d'origine-----
bonjour
If compteN°=ctrl1 then
Exit sub
End if
ou exit for si tu veux continuer ta proc

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:2469c01c45f6f$2d6419c0

$
Bonjour

J'ai une boucle du type
Dim...
.......
For I=2 to Me.ctrl
Rst.addnew
w_N°=w_N°+1
Rst!N°=w_N°
Rst!Ct=w_Ct
Rst.Update
Next I
Je souhaite faire un exit sub dés que compteN°=ctrl1
j'ai essayé aprés le
Rst.update
If compteN°=ctrl1
Exite sub
End if
Next I
Mais sans résultat

Comment je peut faire pour stopper ma boucle si compteN°
atteint ctrl1


.




.




Avatar
Didier
Je viens de résoudre le problème en auto, il était si
simple que je me compliquer la vie
en fait je connais la quanttité totale à rentrer et la
quantité pour la boucle (ctrl) il suffisait que je
n'autorise pas la saisi de ctrl supérieur à ctrl1-compteN°
mais je ne t'avait pas donné toutes ces infos mais le
dcount peut être intéressant pour la vérif

Par contre sur quel evenement place-t_on une condition
pour empécher toutes saisi d'enregistrement
complémentaires?

-----Message d'origine-----
...../...
dcount te compte le nombre d'enregistrements dans une
table, tu en fais un au départ, puis 1 au fur et à mesure

des entrées

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Didier" a écrit
dans le message de news:2492101c45f82$1552c670

$
Pas possible car je viens rentrer des N° de série en auto
avec ma procédure ou en manuel
D'autre part j'ai pas de domaine particulier, une fois
dans la table, jai rien pour faire un dcount
en gros j'ai par exemple reçu 10 machines
je viens rentrés par exemple dans mon formulaire (entrées
données exclusif) 5 machines en auto car les N° se
suivent puis 2 en manuelle car 2 N° non consécutif puis 3
en auto.
Ce que je veut faire c'est de bloquer pour qu'il ne
saisisse pas plus
-----Message d'origine-----
..../...
tu ferais mieux de compter
ton update
puis
if dcount("*","nomtablesource") = Me.ctrl1 then exit sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:23f9f01c45f77$3dfec430

$
Re

Mon problème n'est pas la formule, mais le moment ou je
dois placer la procédure puique comme je l'ai mis dans
mon message j'ai essayé
Rst.update
If compteN°=ctrl1
Exit sub
End if
Next I
Mais ça narrete pas ma procédure

compteN° est un champs indépendant dans mon pied de
formulaire qui compte les enregistrements de mon
formulaire
ctrl1 est un champs contenant le nombre souhaité
d'enregistrement
Je veut stopper la saisie des enregistrement dès que
l'on


a atteint ctrl1
A quel moment je doit placer la procédure?


-----Message d'origine-----
bonjour
If compteN°=ctrl1 then
Exit sub
End if
ou exit for si tu veux continuer ta proc

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"didier" a écrit
dans le message de news:2469c01c45f6f$2d6419c0

$
Bonjour

J'ai une boucle du type
Dim...
.......
For I=2 to Me.ctrl
Rst.addnew
w_N°=w_N°+1
Rst!N°=w_N°
Rst!Ct=w_Ct
Rst.Update
Next I
Je souhaite faire un exit sub dés que compteN°=ctrl1
j'ai essayé aprés le
Rst.update
If compteN°=ctrl1
Exite sub
End if
Next I
Mais sans résultat

Comment je peut faire pour stopper ma boucle si
compteN°



atteint ctrl1


.




.




.