请教！[附件]

fatmingli

文本框退出时检测文本框为空时，给出选择重新输入或关闭窗体，代码如下：
If IsNull(船舶名称) Then
   If MsgBox("按“确定”输入船名，按“取消”退出！", vbOKCancel, "") = vbOK Then
      Cancel = True
   Else
      DOCMD.CLOSE
End If
End If
运行时，按“确定”重新输入没有问题，按“取消”关闭窗体就不行，
系统提示如下：
运行时错误’2585‘
处理窗体或报表事件时不能执行这个操作。
请问如何做到我的要求？

[此贴子已经被作者于2004-4-8 8:31:46编辑过]

zhengjialon

换一下事件过程，然后给船舶名称一个默认值。