目次の標準化

【マスタ関連テーブル定義の標準化】
各種テーブルを作成する場合、下記の必須フィールドは必ず設定します。

フォームで直にテーブルの内容を変更する際は、ダーティ時のイベントプロシージャに以下の処理を入れておく事により誰が何時変更したのか記録出来る。
テーブルのデータ変更は通常管理者権限F=Trueとなっているユーザーだけに限ります。

Private Sub Form_Dirty(Cancel As Integer)

登録者 = Parent!利用者名

登録日 = Format(Date$, "yyyy-mm-dd")

登録時間 = Format(Time$, "hh:nn:ss")

End Sub

【目次フォームの共通化】
目次フォームはどのツールでもVBAを変更せずとも使用できるフォームオブジェクトです。
フォームのサイズは画面の解像度に合わせてフルサイズで作成します。テキストボックスのサイズをウィンドウのサイズに合わせて自動的に調整 するアンカー機能は利用しません。

目次フォームは以下のフォームがセットで動作します。

• U000_目次_FM（U000_目次_FM_SUBF01／U000_目次_FM_SUBF01_可変／U000_目次_FM_SUBF01_固定／U000_目次_FM_SUBF02）

• U997_自動終了_FM（システム設定で指定した時間が来るとAccessを終了させる為の監視フォーム）

• U998_開始画面_FM（バージョンアップ等チェックや利用者マスタに登録してあるかどうかチェックします）

• U999_終了画面_FM（本ツールの利用状況をデータベースに書き込みしたりライセンス期間の確認をします）

U997～U999は不可視フォームです。

【マルチデータシートフォーム】
下図のフォームは上図のようにテーブル毎にフォーム画面を作成するのではなく、サブフォームに指定したテーブルのテーブル情報を反映させて情報の修正等を行う画面となります。
個々の項目に対して特別な処理が必要でない場合、データの更新・追加・削除等の処理は下図のフォームだけで事足ります。
テーブルのフィールド名／データ型に合わせて文字位置を変更しています。但し、登録日／登録時間／登録者は文字位置を中央にしています。（システム設定）
また、見出しマスタに登録すると表示する順番、非表示にするもの、列幅の指定、文字位置等も細かく指定が出来ます。エクセルに出力する際は、フィルター付きのシートとして出力されシート名にAccessのテーブル名を設定しています。

①のサブフォームの「+」をクリックすると③で表示されるようにエクセルに出力する際のパラメータが表示されます。①のレコードセレクタをダブルクリックすると④のように②のサブフォーム内容が置き換わります。

上記表示の処理方法は二通考えられます。

1. テーブル毎にサブフォームを作成しておいて④のサブフォームのObjectsourceと置き換える方法

2. ベースとなるサブフォームに表示させるテーブルの最大項目数を備えたものを作成し、名前、データソースを置き換えて表示させる方法です。例：④

「iMenuA」では２の方法を採用しています。

データソースには何も設定はしません。①のサブフォームをダブルクリックしたイベントプロシージャは以下の通りです。

利用している標準モジュールは以下となります。
GetColumnList(ExtensionSystemTitleName, strMainFrmName, TargetFormName, TargetTBLName)
↑  見出しマスタの登録を確認する（データシートが固定テーブルの場合）
GetColumnListFree(ExtensionSystemTitleName, FMSsymbol, TBLName, strMainFrmName, TargetFormName, TargetTBLName)
↑  見出しマスタの登録を確認する（データシートが決まっていないテーブルの場合）
DataSheetMatrixAdjustment(strMainFormName, strSubFormName, ClmHeight, strCenter)
strMainFormName（strMainFrmName）：メインフォーム
strSubFormName（TargetFormName）：サブフォーム
TargetTBLName：データシートのテーブル名
ClmHeight：データシート高（システム設定にて設定）
strCenter：文字位置中央にする見出し文字（システム設定にて設定）