Application.DeleteReportControl-Methode (Access)
Mit der DeleteReportControl-Methode wird ein Steuerelement aus einem Bericht gelöscht.
Syntax
Ausdruck. DeleteReportControl (ReportName, ControlName)
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
ReportName | Erforderlich | String | Der Name des Berichts, der 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
Die DeleteReportControl-Methode ist nur in der Formularentwurfsansicht 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.