Discussion :

[mcharmat]

Bonjour,

J'aimerais forcer un champs [NCommande] à insérer le format suivant :

Code :

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

0000"/"Année([DateBonCom])

Le champs [DateBonCom] représente la date de la commande qui est au format date avec une valeur par défaut : Date()

pour nous donner :
0001/2015

J'ai essayer avec masque de saisie, ça n'a pas marcher.
merci.

[Dixies]

Bonjour,

Code :

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

1
2
3
4
5
Private Sub Commande0_Click()
 
    TxtResultat = Format(TxtCommande, "0000") & "/" & Year(Now)
 
End Sub

Bonne journée.

[mcharmat]

Bonjour,
je vais tester merci.

[mcharmat]

Bonjour,

ça marche très bien merci, juste une idée :

1- Mr Dixies, à utiliser un bouton [Commande0], très bien pensé,

Code :

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

1
2
3
Private Sub Commande0_Click()
    Me.TxtResultat = Format([TxtCommande], "0000") & "/" & Year(Now)
 End Sub

j'ai commencer par ça avant, et puis je voulais me simplifier la vie et faire un peut du bricolage comme qu'il me propose les prochains N° des bon pour chaque service, puis revenir au n° 0001/year(Now) chaque nouvelle année, waoooo très dure a faire qu'à le dire, souhaiter moi bonne chance.

Je voulais voir d'autres options :

2- Pour mois, j'ai utiliser une liste déroulante [ID_Pavillon] et je sélectionne "Après mise à jour",
le champ [N_ComUnite] représente TxtResultat de l'exemple.
le champs [N_Secours] représente TxtCommande j'ai changer "Now" pour un champ [DateComUnitee] date de la commande que je pourais le modifier si la date de la commande est différente d'aujourd'hui.

Code :

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

1
2
3
Private Sub ID_Pavillon_AfterUpdate()
Me.N_ComUnitee = Format([N_Secours], "0000") & "/" & Year([DateComUnitee])
 End Sub

2- Si vous voulez cliquer sur le champs texte [N_Secours] pour que ça marche, alors je vous conseil de sélectionner "sur perte focus".

Code :

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

1
2
3
Private Sub N_Secours_LostFocus()
Me.N_ComUnitee = Format([N_Secours], "0000") & "/" & Year([DateComUnitee])
End Sub

Bonne chance, et suivais les conseils des administrateurs du site.