请帮我看看错在哪里

宋大951

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

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

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

andymark

If IsNull(Me![客户名称])  Then

宋大951

谢谢!!!

可能是我没有把问题说清楚,我说的是不能关闭

[此贴子已经被作者于2007-6-10 0:38:39编辑过]

sgrshh29

以下是引用宋大951在2007-6-10 0:37:00的发言：


谢谢!!!

可能是我没有把问题说清楚,我说的是不能关闭

................

Exit Sub
end if
DoCmd.Close acForm, Me.Name

[此贴子已经被作者于2007-6-10 5:47:49编辑过]

一点通

到现在你也没有说清楚,关闭什么?

宋大951

谢谢,这个问题已解决了.但又出了新问题,请帮忙改改.

1、以上代码是在关闭窗体时检查"必填"不能为空；

2、新问题是：

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



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 12:11:05编辑过]