DeleteControl メソッド (Access)Application.DeleteControl method (Access)

DeleteControl メソッドでは、フォームから指定したコントロールを削除します。The DeleteControl method deletes a specified control from a form.

構文Syntax

DeleteControl(FormNameControlName)expression.DeleteControl (FormName, ControlName)

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
FormNameFormName 必須Required StringString 削除するコントロールが含まれているフォームの名前を指定します。The name of the form containing the control that you want to delete.
ControlNameControlName 必須Required StringString 削除するコントロールの名前を指定します。The name of the control that you want to delete.

戻り値Return value

なしNothing

解説Remarks

たとえば、ユーザーがデータベースに初めてサインインするときに実行する必要があるプロシージャがあるとします。For example, suppose you have a procedure that must be run the first time each user signs in to your database. このプロシージャには、フォーム上のボタンのOnClickプロパティを設定できます。You can set the OnClick property of a button on the form to this procedure. ユーザーがサインインしてプロシージャを実行したら、 DeleteControlメソッドを使用して、フォームからコマンドボタンを動的に削除できます。After the user has signed in and run the procedure, you can use the DeleteControl method to dynamically remove the command button from the form.

DeleteControlメソッドは、それぞれフォームのデザインビューまたはレポートのデザインビューでのみ使用できます。The DeleteControl method is available only in form Design view or report Design view, respectively.

注意

フォームまたはレポートのコントロールを削除するウィザードを作成している場合は、コントロールを削除する前に、フォームまたはレポートをデザイン ビューで開く必要があります。If you are building a wizard that deletes a control from a form or report, your wizard must open the form or report in Design view before it can delete the control.

Example

次の例では、コマンド ボタンの付いたフォームを作成し、メッセージを表示してコマンド ボタンの削除を確認します。The following example creates a form with a command button and displays a message that asks if the user wants to delete the command button. ユーザーが [はい] を選択すると、コマンドボタンが削除されます。If the user chooses Yes, the command button is deleted.

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 and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.