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

● サンプル ●

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メソッド
で開きます。

Access2000



戻る


Excel Word Access VBA! モーグ