Discussion :

[C15nantes]

Bonjour à tous et à toutes,

Pour gérer les adhérents d'une assoc, j'ai un formulaire contenant les données principales avec un sous-formulaire contenant les infos des cotisations.

Par défaut les adhérents sont "actifs" et donc doivent payer leurs cotisations (gérées dans le sous-formulaire)

On accepte, à titre exceptionnel, des adhérents "associés" ou "honoraires" qui sont exonérés de cotisation

En m'inspirant d'un code utilisé par ailleurs, j'ai voulu associé le code suivant pour, lorsque l'adhérent n'est pas "actif", le sous-formulaire et 3 zones de texte soient masqués

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
Private Sub Type_Adherent_AfterUpdate()
Dim l_strSql As String
 
If Me.Type_Adherent.Value <> "Actif" Then
 
    'If MsgBox("Etes-vous sur que cet adhérent est bien Associé ou Honoraire ?", vbQuestion + vbYesNo) = vbNo Then
 
        'End If
 
 
 
        l_strSql = "UPDATE T_Cotisation SET Cotisation_Du = 0 WHERE Cotisation_An  >= " & Year(Me.DateAdhesion) & " AND T_Adherent_FK = " & Me.N°Adherent
        Me!F_Cotisation.Visible = False
        Me!Montantdu.Visible = False
        Me!ZoneCotisations.Visible = False
        Me!Étiquette_total_5_cotis.Visible = False
 
 
          With DoCmd
            ' Desactive les messages système
            .SetWarnings False
            ' Execute la commande Sql
            .RunSQL l_strSql
            ' Réactive les messages système
            .SetWarnings True
          End With
 
 
 
   End If
 
 
End Sub

Cela fonctionne...sauf que cela masque les 4 éléments pour tous les enregistrements

Il y a donc un problème de code et/ou de propriété à utiliser.

Merci de votre aide
A+

C15

[electrosat03]

Salut,

C'est logique puisque tu masque les 4 éléments après un update, mais quand tu change d'adhérent, les éléments sont toujours masqués
Dans ton form principal, tu as un seul adhérent ou tous

[C15nantes]

Bonsoir
J'ai un seul enregistrement dans mon formulaire
Merci
C15

[bertiny]

Bonjour
Il faut mettre un Else dans ta condition If où tu mettras les valeurs de ta propriété Visible à True et changer les conditions de ton Update.

[hyperion13]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Type_Adherent_AfterUpdate()
If Me.Type_Adherent.Value <> "Actif" Then
    Me.F_Cotisation.Visible = False
    Me.Montantdu.Visible = False
    Me.ZoneCotisations.Visible = False
    Me.Étiquette_total_5_cotis.Visible = False
    CurrentDb.Execute "UPDATE T_Cotisation SET Cotisation_Du = 0" _
    & " WHERE Cotisation_An  >= " & Year(Me.DateAdhesion) & " AND T_Adherent_FK = " & Me.N°Adherent & "", dbFailOnError
Else
    Me.F_Cotisation.Visible = True
    Me.Montantdu.Visible = True
    Me.ZoneCotisations.Visible = True
    Me.Étiquette_total_5_cotis.Visible = True
End Sub

La syntaxe en L7/8 évite l'utilisation du SetWarnings
D'ailleurs je copierai le code ci-dessus sans L7/8 dans Private Sub Form_Current()

[bertiny]

Salut
Juste pour compléter le code de hyperion13

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
Private Sub Type_Adherent_AfterUpdate()
If Me.Type_Adherent.Value <> "Actif" Then
    Me.F_Cotisation.Visible = False
    Me.Montantdu.Visible = False
    Me.ZoneCotisations.Visible = False
    Me.Étiquette_total_5_cotis.Visible = False
    CurrentDb.Execute "UPDATE T_Cotisation SET Cotisation_Du = 0" _
    & " WHERE Cotisation_An  >= " & Year(Me.DateAdhesion) & " AND T_Adherent_FK = " & Me.N°Adherent & "", dbFailOnError
Else
    Me.F_Cotisation.Visible = True
    Me.Montantdu.Visible = True
    Me.ZoneCotisations.Visible = True
    Me.Étiquette_total_5_cotis.Visible = True
End If
End Sub

[hyperion13]

Salut Bertiny
Effectivement, pas de correcteur automatique sur le bloc-notes
Merci pour C15 (Pedro)

[electrosat03]

Salut c15nantes,

Tu pourrais nous faire un retour des propositions faites stp

Merci et bon dimanche

[C15nantes]

Bonjour à tous et à toutes,

Pour répondre à electrosat03
membre du forum depuis 2011, j'ai toujours répondu, pas toujours immédiatement car le planning d'un retraité est parfois chargé, à tous les contributeurs, et ils sont nombreux, qui ont bien voulu m'aider.

A hyperion13 (calot10) et à bertiny,
merci de vos réponses.

Hélas, cela ne fonctionne pas (avec ou sans L7/8) sur le

Code :

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

Private Sub Type_Adherent_AfterUpdate()

Les contrôles concernés sont masqués pour tous les adhérents, quelque soit leur statut.

Par contre, cela fonctionne (sans L7/8) sur le

Code :

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

Private Sub Form_Current()

Merci encore de votre aide.
Affaire conclue

pour tous C15nantes
et si j'osais "Access MVP" (Moi Vouloir Progresser)

pour Hyperion13 ex Castel15

[electrosat03]

Salut,

@c15nantes, c'était juste pour savoir. Content que tu ai reçu des réponses qui ont réglé ton problème.

A+

[C15nantes]

Bonsoir
Effectivement le principe même d'un forum est que tout le monde en profite
A+
c15