Outlook VB Routines Part 5 - modVARS (1 Viewer)

[Joe Boatman]

This is a place for global variables in my programs. Copy and paste into a module called modVARS.


Option Compare Database
Option Explicit

'GLOBAL CONSTANTS
Public Const gcontblImport As String = "tblContacts"
Public Const gconPw As String = "MyDatabasePasssword"
Public Const gnMaxImportCols As Integer = 255 'Max count of table/query fields
Public Const gconsConnectPrefix As String = ";DATABASE=" 'Table connection prefix
Public Const gconsBackEndDb As String = "MyData.accdb" 'My data database file name
Public Const gconsTempDb As String = "DeleteMe.accdb" 'Database for temporary tables to save bloating this db

'GLOBAL VARIABLES
Public gnErr As Long 'Last err number
Public gsErr As String 'Last error message
Public gsPrompt As String 'Msgbox prompt

'REFERENCES
Public fso As New Scripting.FileSystemObject 'Microsoft Scripting Runtime
'Also add Microsoft DAO 3.6 Object Library


Enum dbLocation 'Data database locations
lNone = 0 'No data location yet specified
lCurrent = 1 'db in this program
lLocal = 2 'db in APPDATA folder
lServer = 3 'Back end data location for split databases
lSettings = 4 'db in System folder
lGlobal = 5 'Location of global db
End Enum