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 - Vérifier l'existence d'un contrôle dans un formulaire

Description

		Cette fonction permet de vérifier l'existence d'un contrôle dans un formulaire précis.

Synthaxe

ControlExist(strForm, strControl)

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

Eléments	Description
strForm	Expression de chaîne correspondant au nom du formulaire où l'on souhaite rechercher le contrôle.
strControl	Expression de chaîne correspondant au nom du contrôl que l'on souhaite vérifier.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function ControlExist(strForm As String, strControl As String) As Boolean

'Vérifie l'existant d'un control sur un formulaire
On Error GoTo ErrControlExist
Dim frm As Form
Dim ctl As Control
DoCmd.Echo False
DoCmd.OpenForm strForm, acDesign
Set frm = Forms(strForm)
For Each ctl In frm.Controls
    If ctl.Name = strControl Then
        ControlExist = True
        Exit For
    End If
Next
DoCmd.Close acForm, strForm, acSaveNo
DoCmd.Echo True
Exit Function
ErrControlExist:
    DoCmd.Close acForm, strForm, acSaveNo
    DoCmd.Echo True
    MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical