Discussion :

[mat75019]

Bonjour, j'ai une case validée le fiche saisie que je rend disponible que si certains contrôles sont saisis. Mon code marche trés bien mais j'ai un souci : si l'utilisateur efface le contenu d'un contrôle, le contrôle Oui/non devient bien indisponible mais il reste coché... Je voudrait qu'il se décoche automatiquement lorsque l'utilisateur efface le contenu d'un controle (soit en même temps que la coche devient indisponible)

Pour vous éclairé 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
 
Private Sub ControlOnOff()
Dim valid As Long
If Nz(Me.Liste93, "") = "" Or Nz(Me.Liste95, "") = "" Or Nz(Me.Liste96, "") = "" _
Or Nz(Me.Liste97, "") = "" Or Nz(Me.Liste98, "") = "" Or Nz(Me.decision, "") = "" _
Or Nz(Me.comm_quali1, "") = "" Or Nz(Me.comm_quali2, "") = "" _
Or Nz(Me.comm_quali3, "") = "" Or Nz(Me.comm_quali4, "") = "" _
Or Nz(Me.comm_quali5, "") = "" Then
Me.valid.Enabled = False
Else: Me.valid.Enabled = True
End If
End Sub

Je fait appel a cette procedure avant MAJ de chaque contrôle concerné
Par exemple :

Code :

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

1
2
3
4
 
Private Sub comm_quali5_BeforeUpdate(Cancel As Integer)
Call ControlOnOff
End Sub

En rajoutant :

Code :

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

me.valid.value = 0

J'ai une erreur d'execution

J'ai essayé aussi de mettre

Code :

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

me.valid.undo

mais ca fait rien, la case reste coché...

Merci d'avance de votre aide !

[mat75019]

Peronnes n'a de solution, ou meme une piste ?



please help me !

[moicats]

salut,

il faut mettre
[CODE]

me.valid.value = false

[CODE]

a+

[mat75019]

oui merci je viens de voir ta réponse à un autre post
merci bcp !

[tamerlan]

ou tu peux faire un test dans une procedure du champ en mettant

Code :

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

1
2
3
4
 
If Texte.SelText = "" Then
    tu décoche la case
End If

[Caroline1]

N'oublie pas le tag résolu :-)
En haut: Outils de la discussion -> Résolu