Discussion :

[mat75019]

Bonjour je voudrais rendre diponible un contrôle Oui/Non en fonction d'autres contrôles, voici le code :

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
Private Sub ControlOnOff()
If Me.Liste93 = "" Or Me.Liste95 = "" Or Me.Liste96 = "" Or _
       Me.Liste97 = "" Or Me.Liste98 = "" Or Me.Texte66 = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub
 
Private Sub Form_Open(Cancel As Integer)
ControlOnOff
End Sub
Private Sub Liste93_BeforeUpdate(Cancel As Integer)
ControlOnOff
End Sub
Private Sub Liste95_BeforeUpdate(Cancel As Integer)
ControlOnOff
End Sub
Private Sub Liste96_BeforeUpdate(Cancel As Integer)
ControlOnOff
End Sub
Private Sub Liste97_BeforeUpdate(Cancel As Integer)
ControlOnOff
End Sub
Private Sub Liste98_BeforeUpdate(Cancel As Integer)
ControlOnOff
End Sub
Private Sub Texte66_BeforeUpdate(Cancel As Integer)
ControlOnOff
End Sub

Malheureusement la case Oui/Non reste tjr disponible !
Je ne comprend pas, la ? J'ai bien comme valeurs par default "" dans les différents controles concerné (j'ai mis ca aussi dans la table).
D'ou viens le problème ?
Merci d'avance à vous !!

[mat75019]

Personne ne voit d'où viens le problème ?
Please Help Me !!!!!!!!!!!!!!!

[pgz]

Bonjour,

Tu pourrais essayer de remplacer les

Me.Liste93 = ""

par

Code :

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

Nz(Me.Liste93,"") = ""

les

ControlOnOff

par

Code :

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

Call ControlOnOff

et faire les appels non sur beforeupdate mais plutôt sur AfterUpdate.

Bon courage,

pgz

[mat75019]

Merci beaucoup ! ca marche pour les controles de style listes, c'est déja une bonne avancée, mais par contre la case Oui/Non est disponible même si le texte n'est pas saisi (texte66 ds le code).
Je précise que j'ai n'est pas changé pour after Update (si ca marche en Before_Update, ca m'arrange...)
Merci de ton aide précieuse !

[pgz]

Fais voir où tu en es de ton code, stp.
A+
pgz

[mat75019]

Voila ou j'en suis :

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
 
Private Sub ControlOnOff()
If Nz(Me.Liste93, "") = "" Or Nz(Me.Liste95, "") = "" Or Nz(Me.Liste96, "") = "" Or Nz(Me.Liste97, "") = "" Or Nz(Me.Liste98, "") = "" Or Nz(Me.decision, "") = "" = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub
 
Private Sub decision_BeforeUpdate(Cancel As Integer)
Call ControlOnOff
End Sub
Private Sub Form_Open(Cancel As Integer)
Call ControlOnOff
End Sub
Private Sub Liste93_BeforeUpdate(Cancel As Integer)
Call ControlOnOff
End Sub
Private Sub Liste95_BeforeUpdate(Cancel As Integer)
Call ControlOnOff
End Sub
Private Sub Liste96_BeforeUpdate(Cancel As Integer)
Call ControlOnOff
End Sub
Private Sub Liste97_BeforeUpdate(Cancel As Integer)
Call ControlOnOff
End Sub
Private Sub Liste98_BeforeUpdate(Cancel As Integer)
Call ControlOnOff
End Sub

Merci

[mat75019]

C'est bon j'ai résolu mon problème (juste un erreur de saisie au niveau du code du texte)
Merci bcp pgz !