I have an access database that has worked for years with no problem. The windows 10 system is running Office 365 on the desktop. The PC is 64 bit.
I just built a new PC that is windows 10 and I downloaded Office 365 from one of the allowed family subscriptions
. When I try to run the access application it blows up with a compile error. I think the version for Office on the new build is 64bit and therefore causing problems.
Can anyone please help me with this compile error? I have no idea what PtrSafe attribute means. Do I have to uninstall Office and download a 32-bit version if that is still available for download?
I just built a new PC that is windows 10 and I downloaded Office 365 from one of the allowed family subscriptions
Can anyone please help me with this compile error? I have no idea what PtrSafe attribute means. Do I have to uninstall Office and download a 32-bit version if that is still available for download?
Code:
'Windows API functions and constants to work with the Registry
Private Const REG_SZ As Long = 1
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_CURRENT_USER = &H80000001
Private Const KEY_ALL_ACCESS = &H3F
[highlight ]'The three Private Declare Functions show as red.[/highlight]
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult _
As Long) As Long
Private Declare Function RegQueryValueExString Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As String, lpcbData As Long) As Long
Private Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As Long, lpcbData As Long) As Long
Global Channum As Long, App As String, Obj As String
Global FileStr As String, BadgeTitle As String