[em06][em06][求助]取消窗体关闭的代码如何写？

rushing

      有一窗体，名：APEX，要求在关闭该窗口时检测字段单号是否为空，如果为空则窗口不关闭，提示"你必须输入单号！"，然后将焦点定位于单号字段。

      检测部分已完成，现求助取消关闭窗口的代码。





Private Sub Form_Close()

    If IsNull(单号) Then

    MsgBox "你必须输入单号！", vbExclamation

    单号.SetFocus

    End If

End Sub

高处不胜寒

试试CANCEL=TRUE

zyp

把代碼加在ｕｎｌｏａｄ事件中，而不是加在ｃｌｏｓｅ事件中．在程序中再加上樓上的代碼

wuwu200222

学习