Boucle For Next

Le
Jacques
Bonjour,

Pour quelles raisons cette boucle ne fonctionne pas :

For intI = Int(Right(E_DernierNuméro, 3)) To Me.txtNbPage ' Nombre de
fiches à créer.
rs.AddNew
rs!NuméroFiche = AutoNumber("[tbl Numéro Fiche vierge]",
"NuméroFiche", "9001-[YY]-", 3)
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

Merci pour votre aide.

Salutations
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #22349661
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)
Jacques
Le #22391541
On 12 juil, 18:56, "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  ' 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
Publicité
Poster une réponse
Anonyme