MaskEdBox vide [Résolu]

Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
- - Dernière réponse : cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
- 22 oct. 2013 à 21:33
Bonjour,
dans une form j'ai un MaskEdBox
lorsque se que j'appui sur ajouter pour aller dans ma base et que le MaskEdBox n'est pas renseigner,je voudrais qu'il me l'indique donc j'ai mis ce code.
 If txt_secu.Mask = "" Then
MsgBox "Veuillez saisir le champ [N° Sécu]!", vbInformation + vbOKOnly, "Erreur"
txt_secu.SetFocus

mais il ne le prends pas en compte.
par contre pour effacer j'ai mis ce code et lui fonctionne
Dim tmp As String

With txt_secu
tmp = .Mask
.Mask = ""
.Text = ""
.Mask = tmp
End With


mais comment faire pour afficher le MsgBox si le champ n'est pas rempli.
merci
@plus
Afficher la suite 

3 réponses

Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
Bonjour,
la propriété "mask" n'est pas le contenu de ce contrôle, mais uniquement le masque qu'il utilise !
Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
Ouvre ton aide VB6 sur le mot Masked Edit ===>> ouvre ses propriétés ===>>> l'une d'elles est ClipText ===>> lis-la
Commenter la réponse de ucfoutu
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
0
Merci
merci c nickel

If txt_secu.ClipText = "" Then
MsgBox "Veuillez saisir le champ [N° Sécu]!", vbInformation + vbOKOnly, "Erreur"
txt_secu.SetFocus


bonne soirée
Commenter la réponse de cs_petchy