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
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
A voir également:
- Champ text en access
- Transcription audio en texte word gratuit - Guide
- Ai text classifier - Accueil - Guide Intelligence artificielle
- Mettre un texte en majuscule - Guide
- Access appdata - Guide
- Transcription texte en audio - Guide
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
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
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
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
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
2 avril 2011 à 17:41
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
Modifié par sorosoro le 27/03/2011 à 13:46
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.