I am getting a 64bit error when I try and hide the Red X close button in Access

[anoble1]

Hi,
I am having some issues with 32 and 64 bit systems and error messages.
I upgraded to 64bit and now it doesn't work.
I have an autoexec run when the program is open where is calls :

Function InitApplication()

Here is the code:

Function InitApplication()
 
Dim c As CloseCommand
Set c = New CloseCommand
 
'Disable Close menu.
c.Enabled = False
 
End Function

At the top of that module, I have this too....

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
 
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long

My question is... How do I get this to work for a 64bit system?

[zmbd]

You may have to set the conditional prtsafe in the Declare Statement (read more); however, you've failed to give us the exact error number and details so it's impossible to give you any real guidance beyond the link.