Tester si un textbox est vide en vba

Fermé
Luis - 27 nov. 2006 à 08:41
 swissi - 27 mars 2007 à 11:24
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
A voir également:

8 réponses

blux Messages postés 25999 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 23 avril 2024 3 289
27 nov. 2006 à 12:35
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...
10
blux Messages postés 25999 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 23 avril 2024 3 289
27 nov. 2006 à 09:24
Salut,

c'est normal, null ne se teste pas en tant que valeur, mais avec une fonction :
If IsNull(User.value)...
5
Ah oui j'avais pas pensé à ça...
Merci
1
ça fonctionne.

Merci Beaucoup

Luis
0

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...
0
blux Messages postés 25999 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 23 avril 2024 3 289
27 nov. 2006 à 14:44
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")...
0
C tout bon alors

Merci beaucoup pour votre aide et bonne journée

Luis
0
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
0