Office中国论坛/Access中国论坛

标题: 有条件阻止转到上笔记录的代码完善 [打印本页]

作者: 明镜 时间: 2009-2-2 12:26
标题: 有条件阻止转到上笔记录的代码完善
本帖最后由明镜于 2009-2-2 12:27 编辑

表中有几个字段,其中一个为时间,一个为原因,想在代码中设定一下条件,如果"时间"和"原因"二个字段均没有或者均有记录,可以转到上笔记录,如果只有"时间"的记录而没有"原因"的记录,那么就会提示.并阻止转到上笔.
编写了几句代码,但只有提示而仍然不能阻止转到上笔.
请高手帮助完善一下.
谢谢了.
附上实例.

作者: Grant 时间: 2009-2-2 12:43
阻止转入是用 exit sub 进行退出过程即可

作者: 7777777 时间: 2009-2-2 12:53
ddddddddddd

作者: ACMAIN_CHM 时间: 2009-2-2 13:16
If IsNull(Me![原因]) And IsNull([时间]) = False Then '判断是否为空白
      If MsgBox("你已输入了”时间”，请输入“原因”!", vbOKOnly) = vbNo Then '提示是否转上笔
         Exit Sub
      End If
End If

******************
* 一切皆有可能 *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: 明镜 时间: 2009-2-2 14:06
本帖最后由明镜于 2009-2-2 14:11 编辑

用Exit Sub没用,仍然转到上笔的记录了.
是否还有其他办法?

作者: 明镜 时间: 2009-2-2 16:54

If IsNull(Me![原因]) And IsNull([时间]) = False Then '判断是否为空白
      If MsgBox("你已输入了”时间”，请输入“原因”!", vbOKOnly) = vbNo Then '提示是否转上笔
         Exit Sub
      ...
ACMAIN_CHM 发表于 2009-2-2 13:16

已经搞定了
把vbNo改为vbok就行了.

作者: ty_1029 时间: 2009-2-2 17:47
以ACMAIN_CHM 的水平，我怎么感觉都可以胜任斑竹了,厉害,我的好多问题都是他帮忙解决的~

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