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 Form_Current()
If Me.Année < IIf(Month(date) < 9, Year(date) - 1, Year(date)) Then ' si le champs Année est inférieur à la saison en cours alors
Me.Parent.Form!btSupprimer.Visible = False ' on cache le bouton
Me.Parent.Form!Boite_sup.Visible = False ' on cache le cadre
Me.Parent.Form!mess_sup.Visible = False ' on cache le nom du cadre
Me.Année_memb.Locked = True ' on verrouille la saison
Me.Cotisation_memb.Locked = True ' on verrouille la cotisation
Me.Badge_memb.Locked = True ' on verrouille le Nr de badge
Me.Nr_badge_vérifie_memb.Locked = True ' on verrouille la vérif du badge
Me.Certif_medical_memb.Locked = True ' on verrouille le certi médical
Me.Certificat_scolarité_memb.Locked = True ' on verrouille le certif scolarité
Me.Autorisation_parentale_memb.Locked = True ' on verrouille l'autorisation parentale
Me.Observation_memb.Locked = True ' on verrouille les observations
Me.Date_inscription_memb.Locked = True ' on verrouille la date d'inscription
Me.Date_MàJ_memb.Locked = True ' on verrouille la date de mise à jour
Else
Me.Parent.Form!btSupprimer.Visible = True ' on montre le bouton
Me.Parent.Form!Boite_sup.Visible = True ' on montre le cadre
Me.Parent.Form!mess_sup.Visible = True ' on montre le nom du cadre
Me.Année_memb.Locked = False ' on déverrouille la saison
Me.Cotisation_memb.Locked = False ' on déverrouille la cotisation
Me.Badge_memb.Locked = False ' on déverrouille le NR de badge
Me.Nr_badge_vérifie_memb.Locked = False ' on déverrouille le contrôle du badge
Me.Certif_medical_memb.Locked = False ' on déverrouille le certif médical
Me.Certificat_scolarité_memb.Locked = False ' on déverrouille le certif de scolarité
Me.Autorisation_parentale_memb.Locked = False ' on déverrouille l'autorisation parentale
Me.Observation_memb.Locked = False ' on déverrouille les observations
Me.Date_inscription_memb.Locked = False ' on déverrouille la date d'inscription
Me.Date_MàJ_memb.Locked = False ' on déverrouille la date de MàJ
End If
End Sub |
Partager