Logo GNT
Actualités Tests & Guides Bons Plans
Prime Day iPhone 16 Copilot PS5 Pro Xiaomi 15 ChatGPT Tesla
Entraide Applications Microsoft Office Access Boucle For Next

Boucle For Next

2 réponses
Avatar
Jacques
Bonjour,

Pour quelles raisons cette boucle ne fonctionne pas :

For intI =3D Int(Right(E_DernierNum=E9ro, 3)) To Me.txtNbPage ' Nombre de
fiches =E0 cr=E9er.
rs.AddNew
rs!Num=E9roFiche =3D AutoNumber("[tbl Num=E9ro Fiche vierge]",
"Num=E9roFiche", "9001-[YY]-", 3)
rs("DateFiche") =3D Date
rs.Update
Next intI

(E_DernierNum=E9ro, 3) et du type Variant/Double , et se pr=E9sente de
cette fa=E7on 9001-10-155

Me.txtNbPage et du type Object/TextBox

Merci pour votre aide.

Salutations
Signaler un problème avec ce contenu

2 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
3stone
Salut,


Jacques wrote:
Pour quelles raisons cette boucle ne fonctionne pas :




Au pif, car un tas de raisons peuvent empêcher cela ;-)



For intI = Int(Right(E_DernierNuméro, 3)) To Me.txtNbPage ' Nombre de
fiches à créer.




si Int(Right(E_DernierNuméro, 3)) renvoie une valeur valide
et qu'elle est plus grande que Me.txtNbPage, il faudrait
ajouter : Step -1



rs.AddNew
rs!NuméroFiche = AutoNumber("[tbl Numéro Fiche vierge]",
"NuméroFiche", "9001-[YY]-", 3)



rs![NuméroFiche] serait mieux because le "é"


rs("DateFiche") = Date
rs.Update
Next intI

(E_DernierNuméro, 3) et du type Variant/Double , et se présente de
cette façon 9001-10-155

Me.txtNbPage et du type Object/TextBox




--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Jacques
On 12 juil, 18:56, "3stone" wrote:
Salut,

Jacques wrote:
> Pour quelles raisons cette boucle ne fonctionne pas :

Au pif, car un tas de raisons peuvent empêcher cela ;-)

> For intI = Int(Right(E_DernierNuméro, 3)) To Me.txtNbPage  ' Nomb re de
> fiches à créer.

si Int(Right(E_DernierNuméro, 3)) renvoie une valeur valide
et qu'elle est plus grande que Me.txtNbPage, il faudrait
ajouter :  Step -1

>              rs.AddNew
>              rs!NuméroFiche = AutoNumber("[tbl Numé ro Fiche vierge]",
> "NuméroFiche", "9001-[YY]-", 3)

rs![NuméroFiche]  serait mieux because le "é"

>              rs("DateFiche") = Date
>              rs.Update
>           Next intI

> (E_DernierNuméro, 3) et du type Variant/Double , et se présente de
> cette façon 9001-10-155

> Me.txtNbPage  et du type Object/TextBox

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)



Bonsoir 3stone,

Avec retard merci pour ta réponse, ça fonctionne.

Salutations