Champ text en access

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

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

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

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