Discussion :

[jalain.gosse]

Bonjour à tous,

je viens de créer un code me permettant de verrouiller ou déverrouiller facilement certains champs de mes formulaires

si je mets le code en local sur chaque formulaire cela fonctionne (exemple FOR_MOT-PARA) [code sur les boutons Modifer/Ajouter/Enregistrer]

Par contre si je mets le code dans un module pour éviter de répéter ce code à chaque fois, il bloque systématique sur le code ci-dessous avec le message "erreur de compilation : Variable non définie" (test fait sur le Formulaire FOR_MOT_accessoire]

je ne comprends pas pourquoi
pouvez-vous m'aider ?

merci par avance

Code :

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

1
2
3
4
5
6
7
 
    For Each ctl_CLEF In Controls
       If ctl_CLEF.Tag = "CLEF" Then
           ctl_CLEF.Locked = Verrouillage
            ctl_CLEF.BackColor = code_Couleur
        End If
        Next ctl_CLEF

[accessisgood]

Un controle n'est pas concevable sans qu'il appartienne a une forme ou un rapport
il faut passer ta forme en argument de la procedure d'inactivation et alors tu pourras faire la boucle
"For Each ctl_CLEF In Myform.Controls"

[jalain.gosse]

Merci pour la réponse mais cela ne fonctionne pas, j'ai toujours la même erreur

Code :

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

1
2
3
4
5
6
7
 
    For Each ctl_CLEF In myForm.Controls
       If ctl_CLEF.Tag = "CLEF" Then
           ctl_CLEF.Locked = Verrouillage
            ctl_CLEF.BackColor = code_Couleur
        End If
        Next ctl_CLEF

[fsmrel]

Essayez ceci :

Public Sub Verrouillage_prog()

'Autorisation de modification champs

Dim theControl As Object, theControlAutre As Object

Set theControl = Screen.ActiveForm
Set theControlAutre = Screen.ActiveForm

    For Each ctl_CLEF In theControl.Controls
      If ctl_CLEF.Tag = "CLEF" Then
           ctl_CLEF.Locked = Verrouillage
            ctl_CLEF.BackColor = code_Couleur
       End If
    Next ctl_CLEF
        
'Cadre de regroupement/sous formulaire

    For Each ctl_CLEF_Autres In theControlAutre.Controls
        If ctl_CLEF_Autres.Tag = "CLEF_AUTRES" Then
           ctl_CLEF_Autres.Locked = Verrouillage
       End If
    Next ctl_CLEF_Autres
    
End Sub

[jalain.gosse]

Merci fsmrel

Cela fonctionne quand j'ouvre directement le formulaire.

Mais quand j'utilise mon formulaire de navigation pour ouvrir ce formulaire, je n'arrive pas à le débloquer les champs (je n'ai aucun message d'erreur)

Merci par avance pour l'aide

[fsmrel]

Bonsoir jalain.gosse

Mais quand j'utilise mon formulaire de navigation

Quel est-il ? On clique sur quoi pour y accéder ? Quand on ouvre votre fichier, tout est est blanc...

[fsmrel]

En tout cas, il est probable qu’il faille faire la même manip dans le code VBA pour :

MO_Name_User
Form_FOR_MOT_PARA
Form_FOR_PARA_MACRO-Type_distribution
Form_FOR_PARA_MACRO-ALIM 24VDC
Form_FOR_PARA_MACRO-Alimentation
Form_FOR_PARA_MACRO-DISJ_ELECTRONIQUE
Form_FOR_PARA_MACRO_DISTRI_INT_EXT
Form_FOR_PARA_MACRO-Surveillance - DISJ
Form_FOR_PNEU_CPV10
Form_FOR_PNEU-TRAITEMENT-AIR
Form_FOR_SPEC
Form_FOR_SPEC Type Couleur Fil
Form_FOR_PARA_MACRO-EMERGENCY STOP
Form_FOR_SPEC_TYPE_POTENTIEL
Form_FOR_PARA_ETIQUETTE
Form_FOR_PNEU_ARTICLE
Form_FOR_PARA_EMERGENCY_BP
Form_FOR_PARA_MACRO-POWERMETTER
Form_FOR_PARA_MACRO-LAMPES/VENTILATIONS

[jalain.gosse]

Bonjour,

j'avais un peu trop fait le vide dans mon fichier
j'ai ajouté le formulaire "NAVIGATION" celui me permet d'ouvrir l'ensemble de mes formulaires (pour accéder aux formulaires TEST puis le nom du formulaire)

En tout cas, il est probable qu’il faille faire la même manip dans le code VBA pour :

oui c'est pour ça que je veux faire un seul code

[jalain.gosse]

Bonjour,

j'ai trouvé la méthode pour accéder aux champs des sous formulaires, voici mon 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
20
21
22
23
24
25
26
27
28
29
30
 
Public Sub Verrouillage_prog()
 
'Déclaration des variables
    Dim theControl As Object, SOUS_FOR As Object
 
'Récupération Nom des formulaires
    'Formulaire actif
        Set theControl = Screen.ActiveForm
    'Sous formulaire
        Set SOUS_FOR = Screen.ActiveControl.Parent
 
 
'Autorisation de modification champs
    For Each ctl_CLEF In SOUS_FOR.Controls
      If ctl_CLEF.Tag = "CLEF" Then
           ctl_CLEF.Locked = Verrouillage
            ctl_CLEF.BackColor = code_Couleur
       End If
    Next ctl_CLEF
 
 
'Cadre de regroupement/sous formulaire
    For Each ctl_CLEF_Autres In SOUS_FOR.Controls
        If ctl_CLEF_Autres.Tag = "CLEF_AUTRES" Then
           ctl_CLEF_Autres.Locked = Verrouillage
       End If
    Next ctl_CLEF_Autres
 
End Sub

Merci à tous pour votre aide