Tester si un textbox est vide en vba
Bonjour,
Je suis en train de créer un formulaire dans access.
J'ai deux champs indépendants nommés : User et Passwd.
J'ai également un bouton OK.
J'aimerais que lorsque je click sur le bouton, une fenêtre s'affiche si un des deux textbox est vide.
Voici le code que j'ai :
If User = Null Or Passwd = Null Then
MsgBox "Veuillez saisir un utilisateur et un mot de passe"
End If
Seulement cela ne fonctionne pas.
Une petite aide me serait bien précieuse svp.
Merci
Luis
Je suis en train de créer un formulaire dans access.
J'ai deux champs indépendants nommés : User et Passwd.
J'ai également un bouton OK.
J'aimerais que lorsque je click sur le bouton, une fenêtre s'affiche si un des deux textbox est vide.
Voici le code que j'ai :
If User = Null Or Passwd = Null Then
MsgBox "Veuillez saisir un utilisateur et un mot de passe"
End If
Seulement cela ne fonctionne pas.
Une petite aide me serait bien précieuse svp.
Merci
Luis
8 réponses
-
ModérateurTant mieux !
N'oublie pas de tester également la valeur vide, qui n'est pas "null" (si l'utilisateur commence à saisir et efface ensuite...)If IsNull(User.Value) or User.Value = "" Then...
-
ModérateurSalut,
c'est normal, null ne se teste pas en tant que valeur, mais avec une fonction :If IsNull(User.value)...
-
Ah oui j'avais pas pensé à ça...
Merci -
ça fonctionne.
Merci Beaucoup
Luis -
J'aurais juste une dernière question :
Savez-vous quelle police je dois utiliser pour le textbox contenant le mot de passe ?
Pour que ça affiche que des boules noires... -
ModérateurCa n'est pas une histoire de police, mais plutôt une histoire de format, il faut choisir "password" ou "mot de passe" et c'est lui qui va afficher des étoiles ou des "boules noires"... (onglet données du textbox, champ "masque de saisie")...
-
C tout bon alors
Merci beaucoup pour votre aide et bonne journée
Luis -
Bonjour
Je développe un formulaire et je veux contrôler la valeur d'un TextBox qui doit être un entier non nul
Que dois-je faire ?
J'ai écrit celà mais voilà que ça ne marche pas :
Private Sub TextBoxl_Change()
Dim KeyAscii As MSForms.ReturnInteger
Select Case KeyAscii
Case Is < 49, Is > 57
MsgBox "Seuls un entier non nul est autorisé."
KeyAscii = Asc(Chr(8))
End Select
End Sub