Tester si un textbox est vide en vba
Luis
-
swissi -
swissi -
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
-
Tant 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...
-
Salut,
c'est normal, null ne se teste pas en tant que valeur, mais avec une fonction :If IsNull(User.value)...
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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... -
Ca 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")...
-
-
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
