从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