広告
広告
アクセス本体の情報を起動と同時に書き換え、終了時に元に戻す関数。クエリ実行確認メッセージが邪魔になるときに、印刷の余白調整したいとき等々でどうぞ。
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
広告