【Access】不真面目にシステム開発を考える3～ユーザーフォームのお作法～

2024年6月9日

ユーザーフォームのお作法でテンプレ作成

土日、、何もすることがないJimです。どうも✋

何もすることがないのでブログ更新します。

今回はAccessシステムのテンプレートを用意します。

Accessのフォームは他のOfficeのユーザーフォームと違います。

何か色々違うんだ。

で、ランタイム実行することを前提で作成するので余計な機能は排除しておきます。

今回作成するフォーマットを元にブログを更新していきます。（多分）

とりあえず、Accessを新規で作成し、下記の手順で余計な機能を排除していきます。

↓作成タブ⇒フォームデザイン

↓Ctrl+Sかフォームのタブを右クリックして上書き保存で適当な名前を付けて保存

↓ホームタブで表示アイコンからフォームビューするかフォームのタブを右クリックしてフォームビューで開きます

↓緑枠の部分はランタイム実行すると表示されなくなりますが赤枠部分はユーザーからしたら不要な機能なので排除していきます

↓まずファイル⇒オプション⇒現在のデータベースでアプリケーションタイトルを変更しフォームの表示を設定し（ここまではメニューを増やすたび毎回やります）ウィンドウを重ねて表示する（これは好みですけどね）

↓開きなおせと言われるがデータベースツールの最適化で反映されます

↓デザインビューに戻してフォームを右クリックしフォームのプロパティを選択

↓レコードセクタと移動ボタンを『いいえ』にし（こんな機能を使ってデータベースを更新するのは事故の元）スクロールバーを『なし』にする

↓Tabキー移動を『カレントレコード』にしておきます（こいつも事故の元）

↓最後にフォームのイベントの開くときをイベントプロシージャにし『･･･』をクリック

↓ランタイム実行時のみAccessのタブを非表示にするコードをフォームのイベントを追加します

Option Compare Database
Option Explicit

'フォームオープン時
Private Sub Form_Open(Cancel As Integer)
    
    'ランタイムで開いたときのみリボン非表示
    If SysCmd(acSysCmdRuntime) Then

        'リボン非表示
        DoCmd.ShowToolbar "Ribbon", acToolbarNo

    End If
    
End Sub

↓ランタイム実行するとスッキリ～♪