Discussion :

[DamKre]

Bonjour,

Dans mon formulaire principal, à l'ouverture, je souhaite (dés)activer l'ensemble des contrôles (sauf exception) selon les droits d'utilisateur.

Dans le code (Form_Open), la partie est donc la suivante, pour l'activation ou la désactivation des contrôles (l'inverse est prévu):

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
34
35
36
37
38
39
40
41
Dim ctrl As control
'[...]
 
'Ici, via condition if, selon les droits on active
 
    'Activer tous les contrôles
    For Each ctrl In Me.Controls
        Select Case ctrl.ControlType
            Case acTextBox, acCheckBox, acListBox
                ctrl.Locked = False
            Case acComboBox
            'Activer toutes les listes déroulantes
                ctrl.Locked = False
            Case acCommandButton
                'Activer tous les boutons
                ctrl.Enabled = True
        End Select
    Next ctrl
 
'[...]
 
'Ici, else
 
    'Désactiver tous les contrôles
    For Each ctrl In Me.Controls
        Select Case ctrl.ControlType
            Case acTextBox, acCheckBox, acListBox
                ctrl.Locked = True
            Case acComboBox
            'Désactiver toutes les listes déroulantes, sauf la recherche de Citoyen
                If ctrl.Name <> "Recherche" Then ctrl.Locked = True
            Case acCommandButton
                'Désactiver les boutons autres que Fermer, les boutons de navigation
                Select Case ctrl.Name
                    Case "Fermer", "Premier", "Precedent", "Suivant", "Dernier", "Sauvegarder", "btn_Dossier_Ouverture"
                        ctrl.Enabled = True
                    Case Else
                        ctrl.Enabled = False
                End Select
        End Select
    Next ctrl

Les deux cas (activation des contrôles et désactivation des contrôles) fonctionnent très bien, aucun message d'erreur.

Par contre, en mode création, les propriétés des contrôles reste sur "Verrouillé = Oui", et, pour les boutons "Désactivé = Oui". Ce qui ne me semble pas logique.

Au départ, je n'avais mis que la désactivation, ayant constaté ce soucis. Dès lors, j'ai prévu la réactivation pour les droits totaux.
Or, même avec cette dernière, le formulaire en mode création conserve la propriété "Verrouillé", même si à la dernière ouverture, les accès étaient ouverts.

Comment faire pour que, en mode création, les propriétés initiales (Verrouillé = Non) restent ?

[tee_grandbois]

bonjour,

Comment faire pour que, en mode création, les propriétés initiales (Verrouillé = Non) restent ?

cela me semble inutile, le mode création étant réservé au développeur ... mais il y a (peut-être) une possibilité de le faire à la fermeture du formulaire : tester si l'utilisateur est développeur dans ce cas fermer avec l'option sauvegarder la structure:

DoCmd.Close acForm, Me.Name, acSaveYes

[DamKre]

Bonjour,

cela me semble inutile, le mode création étant réservé au développeur ...

Je reprends parfois certains champs pour un autre formulaire, avec leur mise en forme... #paresse

En tous les cas, merci de la réponse.

mais il y a (peut-être) une possibilité de le faire à la fermeture du formulaire : tester si l'utilisateur est développeur dans ce cas fermer avec l'option sauvegarder la structure:

En mettant d'office "Non" à la fermeture, selon les premiers tests, je ne constate plus de modification de la structure.
Je suppose qu'il n'y a aucun problème pour les données modifiées...

[tee_grandbois]

Je suppose qu'il n'y a aucun problème pour les données modifiées...

c'est au développeur de faire attention aux données si jamais il y touche (d'ailleurs il travaille TOUJOURS sur une base de test ... pour tester, n'est-ce pas ? )

[DamKre]

c'est au développeur de faire attention aux données si jamais il y touche (d'ailleurs il travaille TOUJOURS sur une base de test ... pour tester, n'est-ce pas ? )

Évidemment! Je travaille en développement sur une base à part

Sinon, on est d'accord de dire que cette propriété n'a aucune incidence sur la modification des données? (#jerpéfèreêtretropprudent)

[tee_grandbois]

Sinon, on est d'accord de dire que cette propriété n'a aucune incidence sur la modification des données? (#jerpéfèreêtretropprudent)

faut pas pousser ... relis la dernière phrase de mon post #2 et si tu doutes toujours, lis la doc de la commande Close et la description des paramètres ...
On ne peut pas confondre sauvegarder un objet et sauvegarder un enregistrement