Hi All.
I want to change a connect string based on 32 or 64 bit at compile time. I am getting invalid outside procedure... How do I do this?
Code:
Option Compare Database
Option Explicit
Global Const DENODO_SERVER_32BIT_CONNECTION_STRING = "DSN=DenodoODBC_PROD_32Bit;BLA BLA BLA"
Global Const DENODO_SERVER_64BIT_CONNECTION_STRING = "DSN=DenodoODBC_PROD_64Bit;BLA BLA BLA"
Global CONNECTION_STRING_SET_AT_COMPILE
#If VBA7 And Win64 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
CONNECTION_STRING_SET_AT_COMPILE = DENODO_SERVER_64BIT_CONNECTION_STRING
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
CONNECTION_STRING_SET_AT_COMPILE = DENODO_SERVER_32BIT_CONNECTION_STRING
#End If
Public Function System_Startup_Check()
Dim findstring As String
etc...
Thanks
Steve