设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 9359|回复: 29
打印 上一主题 下一主题

[帮助] 请教各位一个关于让vba延迟执行的问题

[复制链接]
跳转到指定楼层
1#
发表于 2012-12-28 10:25:37 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
各位,一个窗体A,内含一个子窗体b,子窗体b的窗脚里面有一个字段c,c是求和函数SUM
现在我在vba里面有一个条件语句要判断字段c是否大于0
但是经过实践,发现这样运行vba语句,速度太快,以致字段c的sum函数还没来得及计算出结果,就已经被vba语句判断为等于0了
请问各位有何方法能够让sum先算出结果,然后再让vba语句来判断这个c字段的值呢?



分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
30#
 楼主| 发表于 2012-12-29 16:12:59 | 只看该作者
轻风 发表于 2012-12-29 11:04
在你的例子上修改用DSum。不是很明白你具体的意图,或许有更好的办法。

谢谢了轻风哥,功能确是这样了,thx!
29#
 楼主| 发表于 2012-12-29 11:34:51 | 只看该作者
本帖最后由 smilingkiss 于 2012-12-29 11:36 编辑

我用dsum函数把求和的数在vba里面代替了text10作为判断依据了,结果是做出来了,谢谢各位的鼎力相助,只是这样,dsum的条件参数要设置得很复杂,因为我本身的数据库的窗体是经过多重筛选和多重关系联接的
如果各位有更好的方法,小弟继续洗耳恭听,谢谢!
28#
 楼主| 发表于 2012-12-29 11:30:53 | 只看该作者
Henry D. Sy 发表于 2012-12-29 11:17
能不能好好描述一下,不是很明白你的意思?

版主,你好
你看看主窗体的按钮的click事件的语句,其实我的思路就是按vba语句的逻辑了,只是判断是否text10>0的时候得不到正确的结果

版主或者把我vba语句里面的
if me.[bbb 子窗体].text10>0 then
这一句改成:
if me.[bbb 子窗体].text10=0 then
那么就可以看到信息框显示的内容了
27#
发表于 2012-12-29 11:17:50 | 只看该作者
能不能好好描述一下,不是很明白你的意思?
26#
 楼主| 发表于 2012-12-29 11:16:00 | 只看该作者
轻风 发表于 2012-12-29 11:04
在你的例子上修改用DSum。不是很明白你具体的意图,或许有更好的办法。

先谢谢了^_^

点击这里给我发消息

25#
发表于 2012-12-29 11:04:50 | 只看该作者
本帖最后由 轻风 于 2012-12-29 11:07 编辑

在你的例子上修改用DSum。不是很明白你具体的意图,或许有更好的办法。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
24#
 楼主| 发表于 2012-12-29 10:58:35 | 只看该作者
Henry D. Sy 发表于 2012-12-29 10:09
你的例子跟你的问题如何关联?
请描述一下。

例子里面,按照我的思路,按下按钮以后,信息框会显示所有结余大于0的“联系ID”,从逻辑来说,vba那段语句是正确的,只是语句在判断text10是否大于0的时候,text10的sum函数还没来得及算出应有的数值出来,结果统统判断是=0
23#
 楼主| 发表于 2012-12-29 10:47:00 | 只看该作者
Henry D. Sy 发表于 2012-12-29 10:09
你的例子跟你的问题如何关联?
请描述一下。

aaa主窗体左边的按钮,按下去的话,思路是判断子窗体text10的值是否大于0,如果大于0,则通过字符串参数“Filter”把该主记录的“联系ID”记录下来,遍历主窗体后通过弹出信息框,把参数“Filter”显示出来,这样就知道一共有哪些主记录的结余数(text10)大于0了
22#
发表于 2012-12-29 10:09:45 | 只看该作者
smilingkiss 发表于 2012-12-28 13:37
例子已经上传,请版主过目并赐教

你的例子跟你的问题如何关联?
请描述一下。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-11 08:00 , Processed in 0.104205 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表