Outlook VB Routines Part 5 - modVARS

[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