Discussion :

[delcroixf]

Private Sub Form_DblClick(Cancel As Integer)
Forms![Missions].Caption = (Year([Date Appel]) & Month([Date Appel]) & [N°mission])
End Sub

permet d'inscrire un format type 2006 2 et n° de mission...

1° Si j'ajoute adroitement la fonction Right avant Year je peux obtenir 06 2 24. Pas de problème. Je n'ai pas trouvé par contre la façon d'écrire 02 au lieu de 2 pour le format du mois... Bien entendu ce 0 doit disparaître quand on arrive aux mois en 10, 11,12.

2° Peut-on de la même façon avoir un format de n° de mission toujours identique type : 0012, 0123, 1456 ?

[motrin]

À première apparence, moi je ferais une fonction qui permet d'écrire ton 0 au début du chiffre du mois.

Par exemple, je te suggère ceci :

c_Mois_Lettre as String
c_Mois_Chiffre as Integer
if c_Mois_Chiffre <10 then
c_Mois_Lettre = "0" & c_Mois_Chiffre
end if

Donc, cela pourrait fonctionner, mais il y a peut-être possibilité de jouer avec les fonctions de format inclus de VB. Bonne chance!

[SfJ5Rpw8]

l'instruction Format... (un nom prédestiné..) peu être ...

Code :

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

Format(2,"0000") => 0002