Discussion :

[mat75019]

Bonjour j'ai une un controle oui non que je voudrait rendre accessible que si certain controle sont saisie (listes déroulantes et zone de texte) voila le code qui ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub Form_Current()
Me.valid.Enabled = False
End Sub
 
Private Sub activite_Exit(Cancel As Integer)
If Me.activite = "" Or Me.fiab_trans = "" Or Me.managt = "" Or Me.prev = "" Or Me.taille_noto = "" Or Me.decision = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub
 
Private Sub fiab_trans_Exit(Cancel As Integer)
If Me.activite = "" Or Me.fiab_trans = "" Or Me.managt = "" Or Me.prev = "" Or Me.taille_noto = "" Or Me.decision = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub
 
Private Sub managt_Exit(Cancel As Integer)
If Me.activite = "" Or Me.fiab_trans = "" Or Me.managt = "" Or Me.prev = "" Or Me.taille_noto = "" Or Me.decision = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub
 
Private Sub prev_Exit(Cancel As Integer)
If Me.activite = "" Or Me.fiab_trans = "" Or Me.managt = "" Or Me.prev = "" Or Me.taille_noto = "" Or Me.decision = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub
 
Private Sub taille_noto_Exit(Cancel As Integer)
If Me.activite = "" Or Me.fiab_trans = "" Or Me.managt = "" Or Me.prev = "" Or Me.taille_noto = "" Or Me.decision = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub
 
Private Sub decision_Exit(Cancel As Integer)
If Me.activite = "" Or Me.fiab_trans = "" Or Me.managt = "" Or Me.prev = "" Or Me.taille_noto = "" Or Me.decision = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub

Qu'es qui va pas la dedans ????
Merci d'avance !!!!!

[Keuf95]

Salut, pour ma part je commencerais par créer une fonction pour ne pas répéter le code à chaque fois.

Code :

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

1
2
3
4
5
6
Private Sub ControlOnOff()
If Me.activite = "" Or Me.fiab_trans = "" Or Me.managt = "" Or Me.prev = "" Or Me.taille_noto = "" Or Me.decision = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub

Ensuite il ne te reste plus qu'a appeler ta fonction à chaque fois

Code :

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

1
2
3
Private Sub activite_Exit(Cancel As Integer)
ControlOnOff
End Sub

Ceci ne resoud pas ton problème, essaie déjà de tester en ne mettant pas toutes les zones, pour vérifier si ce n'est pas une zone en particulier qui te pose problème.

Code :

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

1
2
3
4
5
6
Private Sub ControlOnOff()
If Me.activite = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub

[mat75019]

Merci de tes conseils, c'est vrai que c'est plus lisible maintenant !
Par contre ca ne marche que que je mette comme conditions dans le code la case s'active des que je quitte la premiere condition (activité), je ne comprend vraiment pas la.....

pleease help me... !!!!!!!

[Keuf95]

Quand tu veux tester une valeur "Null" il vaut mieux utiliser la syntaxe suivante :

Code :

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

If Nz(Me.Activite, "") = "" Then

Un petit tour du coté de l'aide en ligne sur la fonction Nz t'expliquera les choses mieux que moi.

[tmervillon]

Le test des valeurs nulles est toujours un problème sous Access.
J'ai déjà utilisé le système avec Nz dont on parle au-dessus.
Si tu veux une technique simple et fiable voilà comment faire :
If Me.text <> "" then
'a faire si contient une valeur
else
' a faire si par déduction ne contient pas (pas rien) donc contient rien...
endif

Un peu tordu mais fonctionne sans problème.
C'est dans le test des valeurs nulles que se trouve ton problème.