标题: 两种关闭按钮的不同效果 [打印本页] 作者: wlltnt 时间: 2004-2-22 22:20 标题: 两种关闭按钮的不同效果 Private Sub cmdlabel1_Click()
Dim isok As Integer
isok = MsgBox("关闭前，要仔细核对哦", vbYesNo, SoftName)
If isok = vbYes Then
Me.出库单编号.SetFocus
Else
DoCmd.Close
End If
End Sub（这种关闭的是整个数据库，怎么让它只关闭该窗口，又有提示呢？）
Private Sub cmdlabel1_Click()
On Error GoTo Err_cmdlabel1_Click
DoCmd.Close
Exit_cmdlabel1_Click:
Exit Sub
Err_cmdlabel1_Click:
MsgBox Err.Description
Resume Exit_cmdlabel1_Click
End Sub（这个关闭的是窗口）作者: zhengjialon 时间: 2004-2-23 16:49
我试过是关闭的本窗口，不是整个数据库啊，你可以试试这个：
Dim isok As Integer
isok = MsgBox("关闭前，要仔细核对哦", vbYesNo, SoftName)
If isok = vbYes Then
Me.出库单编号.SetFocus
Else
DoCmd.Close acForm, Me.Name
End If 作者: wlltnt 时间: 2004-2-23 17:05
可以了，可这是为什么呢作者: zhengjialon 时间: 2004-2-23 17:10
可能是焦点转移到主窗口上去了吧。