Application.DeleteControl メソッド (Access)

DeleteControl メソッドでは、フォームから指定したコントロールを削除します。

構文

式。DeleteControl (FormName、 ControlName)

expressionApplication オブジェクトを 表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
FormName	必須	String	削除するコントロールを含むフォームの名前。
ControlName	必須	String	削除するコントロールの名前。

戻り値

なし

解説

たとえば、各ユーザーがデータベースに初めてサインインするときに実行する必要があるプロシージャがあるとします。 フォームのボタンの OnClick プロパティをこのプロシージャに設定できます。 ユーザーがサインインしてプロシージャを実行した後、 DeleteControl メソッドを使用して、フォームからコマンド ボタンを動的に削除できます。

DeleteControl メソッドは、フォームデザインビューまたはレポートデザインビューでのみ使用できます。

注:

フォームまたはレポートのコントロールを削除するウィザードを作成している場合は、コントロールを削除する前に、フォームまたはレポートをデザイン ビューで開く必要があります。

例

次の例では、コマンド ボタンの付いたフォームを作成し、メッセージを表示してコマンド ボタンの削除を確認します。 ユーザーが [はい] を選択すると、コマンド ボタンが削除されます。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。