Office中国论坛/Access中国论坛

标题: [求助]怎样在close窗口时，如有不合要求的情况下不许关窗口 [打印本页]

作者: thinkertoy 时间: 2006-4-11 00:03
标题: [求助]怎样在close窗口时，如有不合要求的情况下不许关窗口
如下，如窗口内某项为空则弹出提示，并不能关闭本窗口。

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

Private Sub Form_Close()

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

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

End Sub

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

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

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

作者: 一点通 时间: 2006-4-11 00:11
If IsNull(Me![工序内容]) Then
MsgBox "必须确定本工序名。"

else

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

End If

作者: thinkertoy 时间: 2006-4-11 00:20
不是不是

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

现在运行的情况是

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

else

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

End If

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

作者: andymark 时间: 2006-4-11 00:29
Private Sub Form_Unload(Cancel As Integer)
If IsNull(Me![工序内容]) Then
MsgBox "必须确定本工序名。"

Cancel = True
Else

End If

End Sub

作者: msf 时间: 2006-4-11 00:32
你应该在窗体的 Unload事件中作以上判断才可以，close事件发生时无论发生任何情况窗体都会关闭，所以你的代码改为

Private Sub Form_Unload(Cancel As Integer)

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

Cancel = True

End If

End Sub

作者: 一点通 时间: 2006-4-11 00:32
最好用一个按钮来关闭窗体,在关闭按钮写上上面的语句

作者: thinkertoy 时间: 2006-4-11 01:00
谢谢谢谢大家.

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

谢谢~~~

作者: nxjswt 时间: 2006-4-11 05:15
Private Sub Form_Unload(Cancel As Integer)

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

End If

  End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)