Discussion :

[C15nantes]

Bonjour à toutes et à toutes,

J'ai un formulaire pour gérer les cotisations d'adhérents d'une association

J'ai des cases à cocher C10 à C35 pour valider les cotisations.
J'ai des zones de textes Du10 à Du35 où apparaissent les valeurs des cotisations dues (par défaut=25)

Dans une version précédente, j'avais par exemple

Code :

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

1
2
3
4
5
Private Sub C10_BeforeUpdate(Cancel As Integer)
If Me!C10.Value = True Then
Me!Du10 = 0
End If
End Sub

répété un grand nombre de fois ; c'est fastidieux à mettre en place

Ainsi pour l'année 2018, j'ai la C18 qui n'est pas encore cochée.
Quand on aura reçu la cotisation 2018, on cochera C18 et Du18 passera à 0

Je cherche le code, appliqué une seule fois, qui me permettrait, quand je coche la case CXX de mettre à 0, la zone DXX.

Merci de votre aide

A+

C15

[jimbolion]

C15 bonjour

Sur chaque événement de tes cases à cocher tu fais appel à une private sub ainsi

Code :

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

1
2
3
4
5
Private Sub C10_BeforeUpdate(Cancel As Integer)
 
    Call Change_Value
 
End Sub

Tu crées dans ton module une procédure privée Change_Value

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Change_Value()
    If Me.ActiveControl = True Then
        newName = "DU" & Mid(Me.ActiveControl.Name, 2)
        Me(newName) = 0
    Else
        newName = "DU" & Mid(Me.ActiveControl.Name, 2)
        Me(newName) = -1
    End If
End Sub

Ainsi cette procédure va analyser le contrôle actif et appliquer la règle définie sur le champ Duxx correspondant au Cxx actif.



Cldt

[C15nantes]

Bonjour,

Merci, cela fonctionne parfaitement

A+

c15

[Robert1957]

Bonjour C15nantes, jimbolion,

En complément de réponse à jimbolion il est possible en modifiant le sub en fonction (privée) donc:

Code :

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

1
2
3
4
5
6
7
8
9
Private Function Change_Value()
    If Me.ActiveControl = True Then
        newName = "DU" & Mid(Me.ActiveControl.Name, 2)
        Me(newName) = 0
    Else
        newName = "DU" & Mid(Me.ActiveControl.Name, 2)
        Me(newName) = -1
    End If
End Function

D'inscrire en une seule fois le code au lieu de le répéter dans tous les champs. On sélectionne tous les champs concerné et dans la feuilles des propriétés on colle la fonction comme suit:


Bonne journée

[Invité]

Bonsoir,

Code :

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

1
2
3
Private Function Change_Value()
     Me("DU" & Mid(Me.ActiveControl.Name, 2))= Not ActiveControl
End Function

[C15nantes]

Bonjour,

Merci à tous pour vos contributions complémentaires et efficaces

A+

C15