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?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 -----------------------------
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
-----------------------------
"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 -----------------------------
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...
Sur réception du focus il te restera à faire les SelStart et SelLength.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
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...
"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...