Application.DeleteControl-Methode (Access)

Artikel
04/07/2023

Die DeleteControl-Methode löscht ein Steuerelement aus einem Formular.

Syntax

Ausdruck. DeleteControl (FormName, ControlName)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FormName	Erforderlich	String	Der Name des Formulars, das das Steuerelement enthält, das Sie löschen möchten.
ControlName	Erforderlich	String	Der Name des Steuerelements, das Sie löschen möchten.

Rückgabewert

Nichts

Bemerkungen

Angenommen, Sie verfügen über eine Prozedur, die ausgeführt werden muss, wenn sich jeder Benutzer zum ersten Mal bei Ihrer Datenbank anmeldet. Sie können die OnClick-Eigenschaft einer Schaltfläche im Formular auf diese Prozedur festlegen. Nachdem sich der Benutzer angemeldet und die Prozedur ausgeführt hat, können Sie die DeleteControl-Methode verwenden, um die Befehlsschaltfläche dynamisch aus dem Formular zu entfernen.

Die DeleteControl-Methode ist nur in der Entwurfsansicht des Formulars bzw. in der Berichtsentwurfsansicht verfügbar.

Hinweis

Wenn Sie einen Assistenten entwickeln, der ein Steuerelement von einem Formular oder Bericht löscht, muss der Assistent das Formular oder den Bericht in der Entwurfsansicht öffnen, bevor er das Steuerelement löschen kann.

Beispiel

Dieses Beispiel erstellt ein Formular mit einer Befehlsschaltfläche und zeigt eine Meldung an, in der der Benutzer gefragt wird, ob die Befehlsschaltfläche gelöscht werden soll. Wenn der Benutzer Ja auswäht, wird die Befehlsschaltfläche gelöscht.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über