请问,这个功能如何实现

宋大951

如何实现当点击“关闭”时提示还有必填信息，是否退出，如退出则清空新记录。谢谢！！！





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

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

tz-chf

多了一个end if，写完代码至少编译一下。

Grant

参考一下这个例子

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

宋大951

我上传了,请各位高手帮我改改,谢谢!!!

一点通

上传示例更能说明问题

tz-chf

你这段代码是无法通过编译的