Bonjour,
J'ai un formulaire principal qui contient 1 sous-formulaire (1) qui ce sous-formulaire (1) contient un sous-formulaire (2) et ce sous-formulaire (2) contient un sous-formulaire (3).
Dans le formulaire principale, j'ai une case à cochée (accessible uniquement par certains utilisateurs en "mode admin")
Lorsque cette case est cochées j'interdit que les utlisateurs "classiques" ne puissent modifier les données dans les 3 sous-formulaires (1), (2) et (3).
pour cela j'utilise dans les sous-formulaires (1), (2), (3) la fonction suivante:
Pour (1):
Private Sub Form_Dirty(Cancel As Integer) Cancel = Me.Validation_du_cra_semestriel_par_la_hiérarchie End Sub
Pour(2):
Private Sub Form_Dirty(Cancel As Integer) Cancel = Me.Parent.Validation_du_cra_semestriel_par_la_hiérarchie End Sub
Pour(3):
Private Sub Form_Dirty(Cancel As Integer) Cancel = Me.Parent.Parent.Validation_du_cra_semestriel_par_la_hiérarchie End Sub
Avec "Validation_du_cra_semestriel_par_la_hiérarchie " étant la case à cochée.
Cela fonctionne 5 sur 5 sauf que les fenêtres sont difficiles à gérer visuellement.
Pour cela j'ai créé les formulaires en mode "fenêtres indépendantes" avec des relations entre formulaires VIA DES BOUTONS pour avoir une aisance de lecture plus grande.
Sauf que les fonctions ci-dessus ne fonctionnent plus.
Il y a t'il une fonction équivalente que je peux utiliser lorsque j'ai des formulaires liés et non plus des sous-formulaires?
Merci d'avance pour votre aide.
Ong Xa |