広告
広告
アクセス本体の情報を起動と同時に書き換え、終了時に元に戻す関数。クエリ実行確認メッセージが邪魔になるときに、印刷の余白調整したいとき等々でどうぞ。
Option Compare Database Public varLeftMargin As Variant '印刷時左余白 Public varRightMargin As Variant '印刷時右余白 Public varTopMargin As Variant '印刷時上余白 Public varBottomMargin As Variant '印刷時下余白 Public blnActionQuery As Boolean 'アクションクエリ実行時確認 Public blnRecordChange As Boolean 'レコード変更時確認 Public blnDocDeletions As Boolean 'レコード削除時確認 Public strDefDirectory As String 'アクセス初期フォルダ Public blnOpen As Boolean Public Function AccessIniLoad() If blnOpen = False Then varLeftMargin = Application.GetOption("Left Margin") varRightMargin = Application.GetOption("Right Margin") varTopMargin = Application.GetOption("Top Margin") varBottomMargin = Application.GetOption("Bottom Margin") blnActionQuery = Application.GetOption("Confirm Action Queries") blnRecordChange = Application.GetOption("Confirm Record Changes") blnDocDeletions = Application.GetOption("Confirm Document Deletions") strDefDirectory = Application.GetOption("Default Database Directory") Application.SetOption "Default Database Directory", "C:\" Application.SetOption "Left Margin", 0 Application.SetOption "Right Margin", 0 Application.SetOption "Top Margin", 0 Application.SetOption "Bottom Margin", 0 Application.SetOption "Confirm Action Queries", False Application.SetOption "Confirm Record Changes", False Application.SetOption "Confirm Document Deletions", False blnOpen = True End If End Function Public Function AccessIniEnd() Application.SetOption "Default Database Directory", strDefDirectory Application.SetOption "Left Margin", varLeftMargin Application.SetOption "Right Margin", varRightMargin Application.SetOption "Top Margin", varTopMargin Application.SetOption "Bottom Margin", varBottomMargin Application.SetOption "Confirm Action Queries", blnActionQuery Application.SetOption "Confirm Record Changes", blnDocDeletions Application.SetOption "Confirm Document Deletions", strDefDirectory End Function
広告