[em06][em06][求助]取消窗體關閉的代碼如何寫？

rushing

      有一窗體，名：APEX，要求在關閉該窗口時檢測字段單號是否為空，如果為空則窗口不關閉，提示"你必須輸入單號！"，然后將焦點定位于單號字段。

      檢測部分已完成，現(xiàn)求助取消關閉窗口的代碼。





Private Sub Form_Close()

    If IsNull(單號) Then

    MsgBox "你必須輸入單號！", vbExclamation

    單號.SetFocus

    End If

End Sub

高處不勝寒

試試CANCEL=TRUE

zyp

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

wuwu200222

學習