以下是引用一点通在2005-11-25 22:46:00的发言:
(窗体1)弹出方式窗体会在前面当住(窗体2)非弹出方式窗体的,要窗体2显示在前面,可以用隐藏、关闭、更改弹出方式等方法处理窗体1
老大,你可能没搞懂我说的是什么问题,给个图你看看。
我先打开 窗体1 ,再从 窗体1 打开 窗体2 ,
然后鼠标点击窗体1,看到 窗体1 中间的 标签了吗?显示的是 CURRENT 事件啊。本来应该要是ACTIVATE事件的
下面是窗体1的代码:
Private Sub Form_Activate()
lbl1.Caption = "Form_Activate"
End Sub
Private Sub Form_Current()
lbl1.Caption = "Form_Current"
End Sub
Private Sub Form_Dirty(Cancel As Integer)
lbl1.Caption = "Form_Dirty"
End Sub
Private Sub Form_Load()
lbl1.Caption = "Form_Load"
End Sub
Private Sub 命令3_Click()
On Error GoTo Err_命令3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "窗体2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_命令3_Click:
Exit Sub
Err_命令3_Click:
MsgBox Err.Description
Resume Exit_命令3_Click
End Sub
[此贴子已经被作者于2005-11-25 23:01:32编辑过]
|