Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

Formulaire

º Absence dans liste
º Données non saisies
º Fermer tous les form
º Modifier l'icône
º Recherche sur plusieurs champs
º Tester si formulaire ouvert

Verrouiller les contrôles
º Vérifier l'existence d'un contrôle dans un formulaire
º Vérifier l'existence d'un contrôle sur le form actif
º Vérifier l'existence d'un formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Formulaire - Verrouiller les contrôles

Description

		Cette fonction permet de verrouiller un type de contrôle bien précis ou la totalité des contrôles d'un formulaire. Cette fonction retournera True si elle c'est exécuté correctement.

Synthaxe

Variable_Boolean = LockedControls(strForm[, ControlType])

La synthaxe de la fonction LockedControls comprend les éléments suivants :

Eléments Description
strForm Expression de chaîne contenant le nom du formulaire dont on souhaite verrouiller les contrôles. Si l'argument strForm est une chaîne de longueur Null (""), la fonction LockedControls sera annulée et retournera la valeur False.
ControlType
Facultatif. Valeur numérique indiquant le type de contrôle que l'on souhaite verrouiler. Si elle est omise, tous les types de contrôles du formulaire seront verrouillés. Reportez-vous à la section Valeurs.

Section Valeurs :
L'argument ControlType prend les valeurs suivantes

Constante Valeur Description
acBoundObjectFrame 108 Cadre d'objet dépendant
acCheckBox 106 Case à cocher
acComboBox 111 Zone de liste modifiable
acCommandButton 104 Bouton de commande
acCustomControl 119 Contrôle ActiveX (personnalisé)
acImage 103 Image
acLabel 100 Etiquette
acLine 102 Trait
acListBox 110 Zone de liste
acObjectFrame 114 Cadre d'objet indépendant ou graphique
acOptionButton 105 Bouton d'options
acOptionGroup 107 Groupe d'options
acPage 124 Page
acPageBreak 118 Saut de page
acRectangle 101 Rectangle
acSubform 112 Sous-formulaire / Sous-tata
acTabCtl 123 Onglet
acTextBox 109 Zone de texte
acToggleButton 122 Bouton bascule

Exemple

Si l'on souhaite verrouiller tous les contrôles du formulaire "Form1" et récupérer le résultat de la fonction dans une variable, on procèdera de la manière suivante :

Dim blnResultat as Boolean
blnResultat = LockedControls ("Form1")

Si par contre on avait souhaité verrouiller uniquement les zones de texte de ce même formulaire, on aurait procédé de la manière suivante :

Dim blnResultat as Boolean
blnResultat = LockedControls ("Form1", acTextBox)

Dans ces 2 exemples, si la fonction se déroule normalement, la variable blnResultat retournera True.

Code de la fonction

Public Function LockedControls(strFrm As String, _
Optional ControlType As AcControlType) As Boolean

Dim frm As Form
Dim ctl As Control
If IsNull(strFrm) Or strFrm = "" Then Exit Function
DoCmd.Echo False
DoCmd.OpenForm strFrm, acDesign
Set frm = Forms(strFrm)
For Each ctl In frm.Controls
    If IsMissing(ControlType) = True Then
        If ctl.ControlType <> 100 And ctl.ControlType <> 104 Then
            ctl.Locked = True
        End If
    Else
        If ctl.ControlType = ControlType Then
            ctl.Locked = True
        End If
    End If
Next
DoCmd.Close acForm, strFrm, acSaveYes
LockedControls = True
DoCmd.Echo True