Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Commande.Text = Format(Date, "yyyy") & "-0000/00-00"

2 réponses
Avatar
didierM
Boujours =E0 tous,

voici mon probl=E8me, dans un table commande, j'ai un=20
champs "N=B0 de commande" qui commence par l'ann=E9e en cours=20
(ex:2004-1234/56-78), pour simplifier la saisie j'ai mis=20
ce code sur le champs de mon form (sur r=E9ception du focus=20
et sur entr=E9)

If Me.Commande =3D "" Or IsNull(Me.Commande) Then
Me.Commande.Text =3D Format(Date, "yyyy") & "-
0000/00-00"
Me.Commande.SelStart =3D 5
Me.Commande.SelLength =3D 10
End If

Tous ce passe bien quand je rentre dans le cont=F4le, mais=20
quand je commence =E0 saisir le reste du N=B0, le 2004=20
disparait.
Qui pourrai m'aider?

2 réponses

Avatar
3stone
Salut,

"didierM"
voici mon problème, dans un table commande, j'ai un
champs "N° de commande" qui commence par l'année en cours
(ex:2004-1234/56-78), pour simplifier la saisie j'ai mis
ce code sur le champs de mon form (sur réception du focus
et sur entré)

If Me.Commande = "" Or IsNull(Me.Commande) Then
Me.Commande.Text = Format(Date, "yyyy") & "-
0000/00-00"
Me.Commande.SelStart = 5
Me.Commande.SelLength = 10
End If


Utilise un masque, que tu pourra fixer sur ouverture du formulaire...
Me.txtCommande.InputMask = """" & Year(Date) & """" & "-0000/00-00;0;_"

Sur réception du focus il te restera à faire les SelStart et SelLength.


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
didierM
Trop fort, merci


-----Message d'origine-----
Salut,

"didierM"
voici mon problème, dans un table commande, j'ai un
champs "N° de commande" qui commence par l'année en cours
(ex:2004-1234/56-78), pour simplifier la saisie j'ai mis
ce code sur le champs de mon form (sur réception du focus
et sur entré)

If Me.Commande = "" Or IsNull(Me.Commande) Then
Me.Commande.Text = Format(Date, "yyyy") & "-
0000/00-00"
Me.Commande.SelStart = 5
Me.Commande.SelLength = 10
End If


Utilise un masque, que tu pourra fixer sur ouverture du
formulaire...

Me.txtCommande.InputMask = """" & Year(Date) & """" & "-
0000/00-00;0;_"


Sur réception du focus il te restera à faire les
SelStart et SelLength.



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------




.