Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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 à supprimer. |
| Nom du contrôle | Obligatoire | String | Nom du contrôle à supprimer. |
Valeur renvoyée
Aucune
Remarques
Supposons, par exemple, 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 dans 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 dans le formulaire en mode Création 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.