Bring Access to the front window (1 Viewer)

[JayAndy]

Hi

I am trying to get access window to pop top the front if an event happen get the below code of the internet.

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Function ActivateAccessApp(TargetFullname As String) As Boolean
Dim appTarget As Access.Application

Set appTarget = GetObject(TargetFullname)
ActivateAccessApp = Not SetForegroundWindow(appTarget.hWndAccessApp) = 0
Set appTarget = Nothing

End Function


But cant the error message:
The Code in this Project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute

Can anyone help with this.

 

[CJ_London]

there are a number of differences - the easy one is to change
Private Declare Function ....
to
Private Declare PtrSafe Function ....

see this link for more information

https://msdn.microsoft.com/en-us/library/office/ee691831(v=office.14).aspx

 

[JayAndy]

Thanks That Helped