Champ text en access
Résolu
atlasway
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
atlasway Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
atlasway Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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.
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:
- Champ text en access
- Sms to text - Télécharger - Sauvegarde
- Transcription audio en texte word gratuit - Guide
- Acer quick access - Forum logiciel systeme
- Quick Access service ✓ - Forum PC portable
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
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
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
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
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:
Merci pour votre aide
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
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.