Comment rendre inactif un bouton si un champ texte est vide?

**Subkill** · 17/01/2007, 20h53

Bonjour,

je cherche à rendre inactif un bouton si l'utilisateur n'a rien rentré dans une zone de texte. Voiçi le code que j'ai écrit dans l'événement "Sur Changement" de la zone de texte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtAjout_Change()
 
If txtAjout = "" Or IsNull(txtAjout) Then
 
    cmdAjouter.Enabled = False
 
Else
 
   cmdAjouter.Enabled = True
 
End If

Mon problème est que la valeur de txtAjout est égale à Null même si je tappe du texte...

J'ai essayé d'autres événement de la zone de texte sans succès...

**ft035580** · 17/01/2007, 21h07

Salut,

Au lieu de rendre un contrôle inactif ,pourquoi ne pas dire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Bouton_Click()
If IsNull(Me.txtAjout) Then
MsgBox "Aucune saisie"
Else
...
End If
End Sub

**Subkill** · 17/01/2007, 21h10

J'y avais pensé, mais selon le dossier fonctionnel je dois ABSOLUEMENT le rendre inactif....ce n'est pas moi qui décide...malheureusement...

Merci quand même

**ft035580** · 17/01/2007, 21h12

Envoyé par Subkill

mais selon le dossier fonctionnel

Qu'entends tu par ceci ?

**Subkill** · 17/01/2007, 21h14

Le dossier fonctionnel est un document qui indique le fonctionnement de l'application et qui doit être validé par le client avant de commencer la programmation...

**philben** · 17/01/2007, 21h18

bonjour,

Regarder sinon du coté de la propriété <Text> de la zone de texte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.cmdAjouter.Enabled = Len(Me.txtAjout.Text & "") <> 0

cordialement,

philippe

**ft035580** · 17/01/2007, 21h24

Envoyé par Subkill

Le dossier fonctionnel est un document qui indique le fonctionnement de l'application et qui doit être validé par le client avant de commencer la programmation

Bon..........,

Quelles sont tes tables , les formulaires "incriminés" etc ... .

Pourrais tu poster un fragment de ton projet , car je ne comprends pas grand chose voire rien du tout ... .

Désolé !!!!!!

**=JBO=** · 17/01/2007, 21h27

Bonsoir,

Envoyé par Subkill

Mon problème est que la valeur de txtAjout est égale à Null même si je tappe du texte...

C'est parce que tu ne "regardes" pas au bon endroit.

Quand la valeur d'un contrôle TextBox est en cours de modification, le changement n'est pas encore répercuté dans la propriété Value.
A la place, tu peux consulter (et modifier) la propriété Text qui te présente le texte en cours de saisie... tu saisis ?

(humour

)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub txtAjout_Change()
    If txtAjout.Text = "" Then
        cmdAjouter.Enabled = False
    Else
        cmdAjouter.Enabled = True
    End If

[EDIT]
Désolé, Philben était déjà passé par là.

Au passage, Text retourne toujours un String, donc pas besoin de se protéger en concaténant une chaîne de caractères vide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.cmdAjouter.Enabled = (Len(Me.txtAjout.Text) <> 0)

[/EDIT]

**ft035580** · 17/01/2007, 21h32

Envoyé par =JBO=

Bonsoir,
C'est parce que tu ne "regardes" pas au bon endroit.

Quand la valeur d'un contrôle TextBox est en cours de modification, le changement n'est pas encore répercuté dans la propriété Value.
A la place, tu peux consulter (et modifier) la propriété Text qui te présente le texte en cours de saisie... tu saisis ?

(humour

)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub txtAjout_Change()
    If txtAjout.Text = "" Then
        cmdAjouter.Enabled = False
    Else
        cmdAjouter.Enabled = True
    End If