vba code to bring app to front

[arathra]

I have snippet of code in Outlook which, at the click of a button, finds a specific record in Access and moves to it.

However, one small issue, can I add something so that Access comes to the front, i.e. the Access window appears on top of Outlook?

[gypsyjoe11]

 
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
 
Public Sub test()
  Set acObj = GetObject(, "Access.Application") 'get the currently open access program
  SetForegroundWindow acObj.hWndAccessApp       'set it to be the active window
End Sub

hope this helps,

Joe