スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●

構文  expression.BorderStyle　設定/取得


設定項目        内容
expression      Formオブジェクト［省略可能］


フォームの境界線の種類とタイトルバー上の要素（コントロールメニュー、最小化ボタン、最大化ボタン、閉じるボタン）を設定します。
は、フォームモジュールで使用する場合のみ省略可能です。省略した場合、自身のFormオブジェクトを指定したことになります。
BorderStyleプロパティの設定値は以下のようになります。


値　名称　　　境界線　　　サイズ　　　コントロール　最小化/最大化　閉じるボタン
　　　　　　　　　　　　　　　　　　　メニュー　　　ボタン
0　なし　　　　 なし　　　変更不可　　　　×　　　　　　×　　　　　　×
1　細線　　　　 細線　　　変更不可　　　　○　　　　　　○　　　　　　○
2　サイズ調整可 既定　　　変更可　　　　　○　　　　　　○　　　　　　○
3　ダイアログ　 太線　　　変更不可　　　　○　　　　　　×　　　　　　○

次のコードは、カスタムダイアログボックスタイプのフォームを作成するものです。
ModalプロパティをTrueに設定して、作業ウィンドウ固定フォームにしていることに注意してください。
この場合、フォームを閉じるまで、他のウィンドウは無効になります。


● サンプル ●
'カスタムダイアログボックスを作成する
Sub BorderStyleSample()
    Dim myForm As Form
     '最小化したフォームを作成
    Set myForm = CreateForm()
    With myForm
          'レコードセレクタなし
        .RecordSelectors = False
          '移動ボタンなし
        .NavigationButtons = False
          '区切り線なし
        .DividingLines = False
          '境界線スタイル：ダイアログ
        .BorderStyle = 3
          '作業ウィンドウ固定
        .Modal = True
          '標題設定
        .Caption = "VBAで作成したフォーム" 
    End With
    'フォームビューでフォームを開く
    DoCmd.OpenForm myForm.Name
End Sub


● 実行結果 ●
フォームの境界線とタイトルバー上の要素を設定した「VBAで作成したフォーム」がフォームビューで表示されました。