Discussion :

[jmde]

Bonjour,

Pour ma zone de texte500 je voudrais avoir la valeur suivante:
900108001

Avec ce code j'obtient :
9001081

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Texte500 = "9001" & Right(fnMillesime, 2) & [Page] + DepartNumerotation()

Jai essayé en mettant une fonction à [Page]:
Fpage([Page])
mais cela ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function Fpage(P As Integer) As String
    Fpage = Format(P, "000")
End Function

Merci pour votre aide.

Salutations

[Jeannot45]

as-tu essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Texte500 = "9001" & Right(fnMillesime, 2) & format([Page],"000") + DepartNumerotation()

Bonne journée

[jmde]

Bonjour jeannot,

Merci pour ta réponse,

J'ai essayé ta ligne de code mais aucun changement.

Salutations

[Renardo]

Et comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Texte500 = "9001" & Right(fnMillesime, 2) & format([Page] + DepartNumerotation(),"000")

[jmde]

Bonsoir Renardo,

Merci pour ta réponse, ta solution fonctionne.

Salutations