从Excel打开时，将访问窗口置于顶部

Question

我有一个Excel 2010电子表格，它从Access 2010数据库中引入数据。用户必须登录才能访问记录。当Access打开时，任务栏中的图标会闪烁，但会停留在屏幕上的其他任何位置。我想要的是Access成为活动窗口，这样用户就不会错过它。

这样做最好的方法是什么？

Answer 1

我之前使用过AppActivate，但我不一定知道利弊。

Sub ActivateAccess()
  On Error Resume Next
  AppActivate "Microsoft Access"
  On Error GoTo 0
End Sub