HOME > 即効テクニック > AccessVBA > フォーム・レポート > フォームとコマンドボタンを作成する

即効テクニック

フォーム・レポート

フォームとコマンドボタンを作成する

(Access 2000/2002)
サンプルプロシージャでは、作成したフォームにコマンドボタンを配置し、表示位置とサイズを設定してフォームを表示します。
標準モジュールに次のプロシージャを作成してください。

Sub Sample()
    Dim myForm As Form
    Dim myBtn  As Control
    
    Set myForm = CreateForm
    
    Set myBtn = CreateControl(myForm.Name, acCommandButton, , _
        "", "Button", 900, 600)
    myBtn.Caption = "ここをクリック!"
    
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, 4000, 2000
    DoCmd.OpenForm myForm.Name

End Sub

フォームを作成する場合はCreateFormメソッド、開いているフォームにコントロールを作成する場合はCreateControlメソッドを使用します。
サンプルマクロでは、作成したコマンドボタンに表示する文字列をCaptionプロパティで設定しています。
CreateFormメソッドは、フォームのデザインビューで新規の最小化されたフォームを開くので、Restoreメソッドで"元のサイズに戻す" アクションを実行します。
MoveSizeメソッドで表示位置とサイズの設定をしたフォームをOpenFormメソッドで開きます。