Office中国论坛/Access中国论坛

标题: [求助]在Private Sub 客户名称_LostFocus()事件中可否实现关闭当前窗体？ [打印本页]

作者: tmtming 时间: 2006-9-16 00:11
标题: [求助]在Private Sub 客户名称_LostFocus()事件中可否实现关闭当前窗体？
在以下这个事件中可否实现先打开“价格表修改窗体”再关闭当前窗体，现我只能把当前窗体隐藏，而不能关闭。

Private Sub 客户名称_LostFocus()

If Me.客户名称 = DLookup("[客户名称]", "价格主表", "[客户名称]= " & "'" & Me.客户名称 & "'") Then
MsgBox "此客户已经存在，请不要重复录入，如需添加单价请在单价修改窗口处添加！", vbInformation, Title:="系统消息"
Me.Visible = False（这个只能隐藏，我想要关闭。）
DoCmd.OpenForm "价格表修改窗体"
End If
End Sub

作者: hi-wzj 时间: 2006-9-16 01:24
关闭前应该先用命令取消该记录的编辑，然后再closeform

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)