Discussion :

[qr1687]

Bonjour,

J'ai un sous-formulaire représenté par l'image jointe.

Le premier champs "Gestion :" donne accès à une liste de choix.

Je souhaite pouvoir bloquer l'accès et l'écriture des autres champs liste ou texte de ce formulaire si la réponse n'est pas "Unité de gestion gérable".

Est-ce possible de paramétrer ceci grace à un code VBA ?

Merci par avance.

[Invité]

Bonjour
Une solution consiste sur l'ouverture du formulaire à avoir les différents contrôles, avec leur propriété "Enabled" à False.
Puis sur l'évènement Après Mise à jour de la liste de choix faire une condition.

En voici le principe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListeChoix_Choix_AfterUpdate()
    If  Me.Liste_Choix.Value = "Unité de gestion gérable" Then
        Me.NomControl1.Enabled = True
        Me.NomControl2.Enabled = True
        ......
    Else
        Me.NomControl1.Enabled = False
        Me.NomControl2.Enabled = False
        ...
    End If
End Sub

Dans ce cas les contrôles concernés seront grisés et non actifs tant que la zone de liste n'aura pas la bonne valeur.
C'est une solution...à adapter bien sûr..

[qr1687]

Bonjour,

J'ai adapté le code :

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
Private Sub GESTION_AfterUpdate()
If Me.GESTION.Value = "Unité de gestion gérable" Then
        Me.PP_OBJECTIF.Enabled = True
        Me.COUPE_PROGRAMMEE.Enabled = True
        Me.ANNEE_PROGR_COUPE.Enabled = True
        Me.VBO_RECOLTABLE.Enabled = True
        Me.VBI_RECOLTABLE.Enabled = True
        Me.ANNEE_REAL_COUPE.Enabled = True
        Me.RETARD.Enabled = True
    Else
        Me.PP_OBJECTIF.Enabled = False
        Me.COUPE_PROGRAMMEE.Enabled = False
        Me.ANNEE_PROGR_COUPE.Enabled = False
        Me.VBO_RECOLTABLE.Enabled = False
        Me.VBI_RECOLTABLE.Enabled = False
        Me.ANNEE_REAL_COUPE.Enabled = False
        Me.RETARD.Enabled = False
    End If
End Sub

Mais quand je retourne sur mon formulaire, il m'indique un message d'erreur (en PJ)

Je ne comprend pas pourquoi il me demande d'accéder à une macro.

Merci pour votre éclairage.

Bonjour
Une solution consiste sur l'ouverture du formulaire à avoir les différents contrôles, avec leur propriété "Enabled" à False.
Puis sur l'évènement Après Mise à jour de la liste de choix faire une condition.

En voici le principe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListeChoix_Choix_AfterUpdate()
    If  Me.Liste_Choix.Value = "Unité de gestion gérable" Then
        Me.NomControl1.Enabled = True
        Me.NomControl2.Enabled = True
        ......
    Else
        Me.NomControl1.Enabled = False
        Me.NomControl2.Enabled = False
        ...
    End If
End Sub

Dans ce cas les contrôles concernés seront grisés et non actifs tant que la zone de liste n'aura pas la bonne valeur.
C'est une solution...à adapter bien sûr..

[qr1687]

Bonjour,

J'ai enfin résolu mon problème de code. Cela fonctionne.

J'ai un nouveau problème :

C'est un sous-formulaire et si un des enregistrements est différent de "unité de gestion gérable" tous les champs de tous les enregistrements se grisent.

Est-ce qu'il faut attacher un nouveau code à l'identifiant de l'enregistrement ?

Merci