Office中国论坛/Access中国论坛

标题: 请问,这个功能如何实现 [打印本页]

作者: 宋大951 时间: 2007-6-10 20:59
标题: 请问,这个功能如何实现
如何实现当点击“关闭”时提示还有必填信息，是否退出，如退出则清空新记录。谢谢！！！

Private Sub 关闭_Click()
On Error GoTo Err_关闭_Click

      If IsNull(Me![客户名称]) = True Then
      MsgBox "请输入“名称”，它不可以为空!", vbOKOnly, "输入“名称”"
      Me![客户名称].SetFocus
      Exit Sub

      End  IF

DoCmd.Close acForm, Me.Name
Exit_关闭_Click:
Exit Sub

Err_关闭_Click:
MsgBox Err.Description
Resume Exit_关闭_Click
End If

End Sub
[attach]24882[/attach]

[此贴子已经被作者于2007-6-10 23:02:16编辑过]

作者: tz-chf 时间: 2007-6-11 01:05
你这段代码是无法通过编译的

作者: 一点通 时间: 2007-6-11 05:15
上传示例更能说明问题

作者: 宋大951 时间: 2007-6-11 07:26
我上传了,请各位高手帮我改改,谢谢!!!

作者: Grant 时间: 2007-6-11 07:43
参考一下这个例子

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

作者: tz-chf 时间: 2007-6-11 07:47
多了一个end if，写完代码至少编译一下。

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