AccessVBA 標準モジュール①共通メッセージ

Option Compare Database

‘/**********************************************************
‘/*
‘/*           共通メッセージ
‘/*
‘/**********************************************************
Public Const comMsg0001 As String = “登録しました。”
Public Const comMsg0002 As String = “削除しました。”
Public Const comMsg0003 As String = “内容が変更されています。閉じる前に登録しますか?”
Public Const comMsg0004 As String = “マスタを削除するとあらゆる処理で障害が発生しますが、よろしいですか?”
Public Const comMsg0005 As String = “削除してよろしいですか?”
Public Const comMsg0006 As String = “出力該当データはありません。”
Public Const comMsg0007 As String = “これ以前のコードはありません。”
Public Const comMsg0008 As String = “これ以後のコードはありません。”
Public Const comMsg0009 As String = “内容が変更されています。印刷前に登録しますか?”
Public Const comMsg0010 As String = “内容が変更されています。新規データに移動する前に登録しますか?”
Public Const comMsg0011 As String = “内容が変更されています。前データに移動する前に登録しますか?”
Public Const comMsg0012 As String = “内容が変更されています。後データに移動する前に登録しますか”
Public Const comMsg0013 As String = “処理を中止しました。”
Public Const comMsg0014 As String = “エラー発生処理は完了しておりません。”
Public Const comMsg0015 As String = “障害発生データは登録できませんでした。”
Public Const comMsg0016 As String = “障害発生データは削除できませんでした。”
Public Const comMsg0017 As String = “エクスポートを完了しました。”

‘/*共通メッセージ補助
Public Const cmdMsgtittle1 As String = “確認”
Public Const cmdMsgtittle2 As String = “エラー”

‘/*パスワード
‘管理者用(adomin)
Public Const adominPW As String = “password”
‘ユーザー用(user)
Public Const userPW As String = “user”

‘背景画像のファイルのパスを指定
Public Const BgImageDataPath As String = “c:\背景08.jpg”

About

You may also like...

Your email will not be published. Name and Email fields are required