Discussion :

[plasto590807]

bonjour,

je reste bloquer.

Dans mon code (donc dans mon formulaire : "Formulaire_Saisie_Equipe") ,j'ai deux Combox (ComboDefiler_PRENOM1 et ComboDefiler_PRENOM2 et les 2 zone de text Saisie_NOM1 et Saisie_NOM2) mais le bouton Cmd_SaisirEquipene s'active pas après avoir remplis les 4 champs.

Les 4 champs dans le Formulaire_Saisie_Equipe :
-les 2 zones de text Saisie_NOM1 et Saisie_NOM2)
-les 2 combox ComboDefiler_PRENOM1 et ComboDefiler_PRENOM2


Voici le formulaire:


voici le code (de mon bouton : Cmd_SaisirEquipe) :

Private Sub Saisie_NOM1_Change()

If (Saisie_NOM1 <> "" And ComboDefiler_PRENOM1 <> "" And Saisie_NOM2 <> "" And ComboDefiler_PRENOM2 <> "") Then

Cmd_SaisirEquipe.Enabled = True 'Active le bouton "Saisir Equipe à ajouter dans la base de données"

Else

Cmd_SaisirEquipe.Enabled = False 'Desactive le bouton "Saisir Equipe à ajouter dans la base de données"

End If

End Sub

Avez-vous une solution pour m'aider ?

Merci pour votre aide.

[Philippe Tulliez]

Bonjour,
A la lecture rapide de ton code,il faudrait que les deux contrôles TextBox soit remplis et que l'on ait sélectionné un élément dans les deux ComboBox pour que le contrôle CommandButton soit Actif
Mais je suppose que si on sélectionne un prénom dans une des listes le nom dans le TextBox est rempli donc je m'interroge sur la raison de contrôler si le TextBox est rempli et si un élément de la liste a été sélectionné.

De plus la propriété Enabled devant contenir une valeur booléenne et un test logique renvoyant également une valeur booléenne il est parfaitement inutile de passer par une structure décisionnelle telle qu'un IF. Soit PropriétéLogique = RésultatTestLogique

Exemple

Code :

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

1
2
3
4
5
Private Sub TextBox4_Change()
 With Me
 .CommandButton1.Enabled = .TextBox1 <> "" And .ListBox1 <> ""
 End With
End Sub

[HopPopPop]

Bonjour à tous et bon dimanche,

Ta méthode comme dit Philippe oblige que tous les champs soient renseignés et celui du Nom1 en dernier.
Le mieux est de mettre la condition dans la Sub du Bouton Valider avec l'exemple suivant à adapter.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
If TextBox1 = "" Or ComboBox1 = "" Or TextBox2 = "" Or ComboBox2 = "" Then
   MsgBox "Validation refusée :" & Chr(10) & "Tous les champs ne sont pas renseignés.", vbOKOnly + vbCritical, "Validation - saisie équipe"
    Exit Sub
End If
 
' ... Code de validation ...
 
End Sub

[unparia]

Bonjour
Ou encore du genre

Code :

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

CommandButton1.Enabled = Len(TextBox1.Text) And Len(TextBox2.Text) And Len(ComboBox1.Text)

[plasto590807]

Ma reponse va vers HopPopPop:

Pourquoi que la TextBoxSaisie_Nom1 doit etre rempli en dernier ?

J'ai testé avec la TextBox Saisie_Nom1 en premier, aussitot le MsgBox s'ouvre.

Puis j'ai testé avec la TextBox Saisie_Nom1 en dernier, le MsgBox ne s'ouvre pas puisque les 4 champs sont remplis. mais, pour moi ce n'est pas normal, illogique. Pourquoi que la TextBox Saisie_nom1 doit etre rempli en dernier ?????

Je reste perplexe....

[HopPopPop]

Quand je disais que le champs du Nom1 devait être saisi en dernier, c'était par rapport à ton code fourni et présent dans la Sub Change du Nom1 ; et non dans celui que j'ai mis en exemple.

Dans l'exemple fourni, le bouton Valider n'est pas Enabled. Tu peux cliquer dessus à tout moment, mais il vérifiera si les 4 conditions sont remplies.
On ne sait jamais comment l'utilisateur rempli un Formulaire et ce qu'il met dans le champs, le mieux est de vérifier à la fin lorsqu'il valide le Formulaire. Et s'il y a là lors de la vérification une erreur de saisie, un MsgBox informe l'utilisateur et annule la validation.

Dans ton code, pour qu'il fonctionne il faut que ton champs Nom1 soit saisi en dernier sinon la commande Valider restera inaccessible.

[plasto590807]

A l'intention de unparia :

Bonjour
Ou encore du genre

Code :

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

CommandButton1.Enabled = Len(TextBox1.Text) And Len(TextBox2.Text) And Len(ComboBox1.Text)

J'ai deux questions :
1) pourquoi ne pas ajouter au code "and Len(ComboBox2.Text)".

2) une explication au code que tu m'as donné, ca serait sympa...........succinte mais clair. S'il te plait. Merci


Je peux dire qu'avec le code

Code :

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

CommandButton1.Enabled = Len(TextBox1.Text) And Len(TextBox2.Text) And Len(ComboBox1.Text)

ça fonctionne à merveille.

REMARQUE : En effet, des que que le troisième champ est rempli, le bouton s'active. J'aurai préféré que les 4 soient remplis puis que le bouton s'active....C'est possible ou non ?