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 :
Qu'es qui va pas la dedans ????
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
Merci d'avance !!!!!
Partager