Méthode Application.DeleteControl (Access)

Article
04/07/2023

La méthode DeleteControl permet de supprimer un contrôle déterminé dans un formulaire.

Syntaxe

expression. DeleteControl (FormName, ControlName)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FormName	Requis	String	Nom du formulaire contenant le contrôle que vous souhaitez supprimer.
Nom_contrôle	Obligatoire	String	Nom du contrôle à supprimer.

Valeur renvoyée

Aucune

Remarques

Par exemple, supposons que vous ayez une procédure qui doit être exécutée la première fois que chaque utilisateur se connecte à votre base de données. Vous pouvez définir la propriété OnClick d’un bouton du formulaire sur cette procédure. Une fois que l’utilisateur s’est connecté et a exécuté la procédure, vous pouvez utiliser la méthode DeleteControl pour supprimer dynamiquement le bouton de commande du formulaire.

La méthode DeleteControl est disponible uniquement en mode Création de formulaire ou en mode Création d’état, respectivement.

Remarque

Si votre Assistant est destiné à supprimer un contrôle d'un formulaire ou d'un état, il doit d'abord demander l'ouverture du formulaire ou de l'état en mode Création avant de pouvoir supprimer le contrôle.

Exemple

Cet exemple montre comment créer un formulaire contenant un bouton de commande et afficher un message demandant à l'utilisateur s'il souhaite supprimer le bouton de commande. Si l’utilisateur choisit Oui, le bouton de commande est supprimé.

Sub DeleteCommandButton() 
 Dim frm As Form, ctlNew As Control 
 Dim strMsg As String, intResponse As Integer, _ 
 intDialog As Integer 
 
 ' Create new form and get pointer to it. 
 Set frm = CreateForm 
 ' Create new command button. 
 Set ctlNew = CreateControl(frm.Name, acCommandButton) 
 ' Restore form. 
 DoCmd.Restore 
 ' Set caption. 
 ctlNew.Caption = "New Command Button" 
 ' Size control. 
 ctlNew.SizeToFit 
 ' Prompt user to delete control. 
 strMsg = "About to delete " & ctlNew.Name &". Continue?" 
 ' Define buttons to be displayed in dialog box. 
 intDialog = vbYesNo + vbCritical + vbDefaultButton2 
 intResponse = MsgBox(strMsg, intDialog) 
 If intResponse = vbYes Then 
 ' Delete control. 
 DeleteControl frm.Name, ctlNew.Name 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via