[求助]如何使窗体总是获得焦点？

tmtming

有窗体1、窗体2，两个都是弹出式窗体，窗体1有一按钮，点击后弹出窗体2，现想当窗体2打开后，会自动把焦点返回给窗体1。即窗体1总是获得焦点。

gaoqiwen

可利用窗体1的Timer事件使窗体1重获焦点：

Private Sub Command0_Click()
    DoCmd.OpenForm "窗体2"
    Form.TimerInterval = 500
End Sub

Private Sub Form_Timer()
    If CurrentProject.AllForms("窗体2").IsLoaded Then
        Forms("窗体1").SetFocus
        Form.TimerInterval = 0

    End If
End Sub

tmtming

看了，不是我要的效果，我想要的是总是获得焦点（即边框总是蓝色的不会变灰），不是总是在前面。

一点通

参考一下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=39268