[求助]怎样在close窗口时，如有不合要求的情况下不许关窗口

thinkertoy

如下，如窗口内 某项为空 则 弹出提示，并 不能关闭本窗口。

现在弹出提示是没得问题了，不过关闭提示后，窗口还是关了。

Private Sub Form_Close()

    If IsNull(Me![工序内容]) Then
        MsgBox "必须确定本工序名。"

‘ 不知道要在这儿在加点什么？？？ 才能让窗口不关闭？
    End If

End Sub

谢谢~ 因为完全没有学过VB 就这两天才通过一些例子 按自己理解写的代码。

不知道这儿应该加上什么代码才可以？

[此贴子已经被作者于2006-4-10 16:09:37编辑过]

一点通

If IsNull(Me![工序内容]) Then
        MsgBox "必须确定本工序名。"



else

   ' 在这里写保存代码及退出代码

End If

thinkertoy

不是不是

我就是只要窗口不退出。else里本来就什么也不用做。

现在运行的情况是

If IsNull(Me![工序内容]) Then         //如果这儿为真
        MsgBox "必须确定本工序名。"   //运行到这儿，弹出了提示。我关了提示，窗口就退出了。我就要窗口不退出就ok了

else                 

//这里本来就什么也不用做。 就什么也不写







End If

[此贴子已经被作者于2006-4-10 16:20:42编辑过]

andymark

Private Sub Form_Unload(Cancel As Integer)
If IsNull(Me![工序内容]) Then
        MsgBox "必须确定本工序名。"  

Cancel = True
   Else
   
   End If
   

End Sub

msf

你应该在窗体的 Unload事件中作以上判断才可以，close事件发生时无论发生任何情况窗体都会关闭，所以你的代码改为

Private Sub Form_Unload(Cancel As Integer)



    If IsNull(Me![工序内容]) Then
        MsgBox "必须确定本工序名。"

     Cancel = True

   End If



End Sub

一点通

最好用一个按钮来关闭窗体,在关闭按钮写上上面的语句

thinkertoy

谢谢 谢谢大家.

确实是应该 用 代码+按钮 最好用。只有大家的代码，要偶调试的时候想空 着出去都不行了。呵呵~~

谢谢~~~

nxjswt

Private Sub Form_Unload(Cancel As Integer)




    If IsNull(Me![工序内容]) Then
     Beep
     MsgBox "必须确定本工序名。"
     Me![工序内容].SetFocus


   End If

  End Sub