有条件阻止转到上笔记录的代码完善

明镜

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

Grant

阻止转入是用 exit sub 进行退出过程即可

7777777

ddddddddddd

ACMAIN_CHM

    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 .

明镜

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

明镜

    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

以ACMAIN_CHM 的水平，我怎么感觉都可以胜任斑竹了,厉害,我的好多问题都是他帮忙解决的~