その保存用の環境設定テーブルを作成します。
今回は社員マスターレコードを毎回シートに表示するのはムダなので、データ更新日を設定テーブルに保存しておくようにします。
その為の、社員マスター更新日フィールドを作成します。
■追加された「T_設定」テーブル
■実行コード
'環境設定テーブル作成
Private Function MyMakeEstablish(tdb As Database) As Boolean
Dim tbdef As TableDef
Dim fld As Field
On Error GoTo ErrExit
'テーブル作成
Set tbdef = tdb.CreateTableDef("T_設定")
'フィールド作成
Set fld = tbdef.CreateField("社員マスター更新日", dbDate)
tbdef.Fields.Append fld
tdb.TableDefs.Append tbdef
'終了処理
Set fld = Nothing
Set tbdef = Nothing
MyMakeEstablish = True
Exit Function
ErrExit:
MyMakeEstablish = False
MsgBox "設定テーブル作成中にエラーが発生しました。処理を中止します。" & vbNewLine & Err.Description
End Function