[Formulaire] Activer un bouton de commande en fonction de champs

**Melhiril** · 18/04/2007, 17h12

Bonjour,

Comme je l'ai dit dans le titre, j'ai un formulaire avec différents champs à remplir. Une fois que c'est fait, il faut valider pour enregistrer et passer à un nouvel enregistrement.

Pour vérifier que tous les champs sont bien remplis avant d'enregistrer, j'ai voulu désactiver le bouton "Valider" et il ne s'activera qu'une fois tous les champs remplis.
J'ai réussi à faire ça avec un seul champ avec ce code:

Code :

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

1
2
3
Private Sub affaire_LostFocus()
BT_valider.Enabled = True
End Sub

mais en fait il y a 3 champs à remplir et je trouve pas comment faire

Quelqu'un peut m'aider ?

**helas** · 18/04/2007, 18h50

Ca peut le faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub bouton_Click()
 If IsNull(Me!Champ1) Or IsNull(Me!Champ2) Or IsNull(Me!Champ3) Then
  MsgBox("Saisie incomplète")
  Exit Sub
 End If 
 
 ' Traitement 
 .....................
 
 
End Sub

**Melhiril** · 19/04/2007, 09h28

Bonjour,
J'ai essayé le code que tu m'as donné en essayant de combiner avec ce que j'avais fait, mais ça ne marche pas

le bouton reste désactivé même si tous les champs sont remplis.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub BT_valider_Click()
 If IsNull(Me!affaire) Or IsNull(Me!date) Or IsNull(Me!tempsPasse) Then
    MsgBox ("Saisie incomplète")
    Exit Sub
 Else
    BT_valider.Enabled = True
    DoCmd.Save acForm, "F_saisirTempsAffaire_salaries"
    DoCmd.GoToRecord , , acNewRec
 End If
End Sub

J'ai aussi essayé d'autres codes, mais le résultat reste le même..

Invité · 19/04/2007, 09h33

Bonjour

C'est normal ton bouton reste désactiver, donc un clique dessus n'a aucun effet, il faut transformer ton code en sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub ActiveBTValider()
 If IsNull(Me!affaire) Or IsNull(Me!date) Or IsNull(Me!tempsPasse) Then
    MsgBox ("Saisie incomplète")
    Exit Sub
 Else
    BT_valider.Enabled = True
    DoCmd.Save acForm, "F_saisirTempsAffaire_salaries"
    DoCmd.GoToRecord , , acNewRec
 End If
End Sub

ensuite dans chaque événement After_Update de tes contrôles tu appelles cette routine avec

Code :

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

Call ActiveBTValider

Starec

**Melhiril** · 19/04/2007, 10h12

Ca ne marche pas

En fait, je suis pas sûr de l'endroit où il faut mettre le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub ActiveBT_valider()
If IsNull(Me!affaire) Or IsNull(Me!date) Or IsNull(Me!tempsPasse) Then
    MsgBox ("Saisie incomplète")
    Exit Sub
 Else
    BT_valider.Enabled = True
    DoCmd.Save acForm, "F_saisirTempsAffaire_salaries"
    DoCmd.GoToRecord , , acNewRec
 End If
End Sub

A partir directement du code du formulaire?

Pour l'autre code, je pense que c'est bon.

Invité · 19/04/2007, 10h16

Re

Il faut le mettre dans le code du formulaire

Starec

**Melhiril** · 19/04/2007, 10h22

Désolée, mais ça ne marche toujours pas. J'ai bien mis le code dans le formulaire, et "Call ActiveBTValider" dans les évènements après MAJ de chacun des champs concernés du formulaire. C'est bien ça pourtant non ?

Invité · 19/04/2007, 10h25

Re

Tu as mis

Code :

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

Sub ActiveBT_valider

et

Code :

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

Call ActiveBTValider

Il y'a une petite différence, je te conseille d'enlever le _

Si cela ne marche pas, mets le message d'erreur et où

Starec

**Renardo** · 19/04/2007, 10h32

Pourquoi desactive tu ton bouton puisque si tes champs ne sont pas renseigner cela envoi le message saisi imcomplete et que tant que tu n'a pas remplis ses champ tu n'ira pas plus loing
Enfin! tu as peut etre tes raisons

**Melhiril** · 19/04/2007, 10h35

Oui peut-être.. mais de toute façon ça ne marche pas, le message d'erreur n'apparaît pas même si c'est incomplet et l'enregistrement se fait quand même (soit par un bouton, soit avec les tabulations).

Invité · 19/04/2007, 10h44

Re

Dans la sub remplace tes OR par des AND

Dans les propriétés de ton formulaire contrôle si Cycle est sur "Enregistrement en Cours", à mon avis il est sur "tous les enregistrements"

Starec

**Melhiril** · 19/04/2007, 11h05

Cylce était bien sur tous les enregistrements.

Finalement, j'ai arrêté l'idée de désactiver/activer le bouton valider comme la dit Renardo. C'est vrai que ce n'est pas trop utile... Donc sur le bouton valider j'ai mis ce code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub BTValider_Click()
If IsNull(Me!affaire) Or IsNull(Me!date) Or IsNull(Me!tempsPasse) Then
    MsgBox ("Saisie incomplète")
    Exit Sub
 Else
    DoCmd.Save acForm, "F_saisirTempsAffaire_salaries"
    DoCmd.GoToRecord , , acNewRec
 End If
End Sub

Ca marche bien mais il manque quelque chose. En fait, s'il y a des champs qui ne sont pas complétés, le message d'erreur apparait bien et revient sur la saisie du formulaire, mais il enregistre quand même dans la table! Y a-t-il un code qui empêche l'enregistrement dans ce cas là?