Champ text en access

Résolu/Fermé
atlasway Messages postés 5 Date d'inscription samedi 26 mars 2011 Statut Membre Dernière intervention 9 avril 2011 - Modifié par atlasway le 26/03/2011 à 14:26
atlasway Messages postés 5 Date d'inscription samedi 26 mars 2011 Statut Membre Dernière intervention 9 avril 2011 - 2 avril 2011 à 17:41
Bonjour,

sur access 2010 je cherche a personnaliser le format d'un champ texte,
les donnée a insérer doivent impérativement commencer par 4 chiffres tel que 4411 ou 3421 par exemple, suivi d'un espace et 4 chiffres. par exemple 4411 0001 ou 3421 0008.

pouvez-vous m'aider.
merci d'avance.

A voir également:

4 réponses

Bonjour

Definir les propriété du champs :

1-Taille du champs : 9
2-Masque de saisie : \ 0000\ 00000;;_
Faire un copie coller des paramètres que j'ai defini pour vous.
J'ai testé ça marche !

access-conceptions com
1
bONJOUR
Avec le code VB :

Private Sub txt_GotFocus()

If me.txt<>"" then
else
me.txt.value="4411 0000"
exit sub
end if

End Sub


Explication du langage VB

si la zone de texte de saisie'txt" est vide
alors le contenu est "411 000"
si non rien n'est fait.
0
atlasway Messages postés 5 Date d'inscription samedi 26 mars 2011 Statut Membre Dernière intervention 9 avril 2011
27 mars 2011 à 12:43
Bonjour,

Merci pour votre repense,
le problème c'est que ce champ ne doit pas commencer par autre que 4411,
j'ai essayer \ "4411"\ 00000;;_ mais il n'apret que lors de la saisie, après insertion on n'obtiens que 0001

est ce que on peut utiliser la fonction comme()

merci
0
BONJOUR
Avec le code VB :


1 ************************
Private Sub txt_GotFocus()

If me.txt<>"" then
else
me.txt.value="4411 0000"
exit sub
end if

End Sub

2 *********************************************
Private Sub txt_AfterUpdate()
If Me.txt.Value Like "*4411*" Then

Else
MsgBox "Veuillez commencer par 4411", vbInformation, "Masque se saisie"
On Error Resume Next
Me.txt.Value = "4411 0000"
Err.Clear
Exit Sub
End If

End Sub

*************************************


Explication du langage VB

1* si la zone de texte de saisie'txt" est vide
alors le contenu est "411 0000"
si non rien n'est fait.

2*
Si après avoir saisie la valeur dans la zone de texte"txt"
si la valeur ne commence pas par 4411 alors informer
l'utilisateur que la saisie doit commencée par 4411
mettre la valeur 4411 0000



solsurm live.fr


access-conceptions com
0
atlasway Messages postés 5 Date d'inscription samedi 26 mars 2011 Statut Membre Dernière intervention 9 avril 2011
2 avril 2011 à 17:41
Bonjour,

voila le code que j'ai utiliser:

Private Sub RefFrs_AfterUpdate()
If Not Me.RefFrs.Value Like "*4411*" Then

MsgBox "Le code Fournisseur doit commencer par 4411", vbInformation, "atlasway"

Me.RefFrs.BorderColor = vbRed
Me![RefFrs] = "4411 "
Me![RefFrs].SetFocus
End If
End Sub


Merci pour votre aide
0