form中 控件显示更新的问题

Uncle_higo 2013-06-26 04:03:36
我在form中用了一个text控件

在执行一个dao的大循环之前 我用Me.Text2.Value = "ffff" 进行了更新

然后执行大循环,很漫长

但是我发现直至大循环结束后,文本控件才显示出我设定的ffff的字符,本来我的字符串是提示作用的,这样一来就没有任何意义了

我猜是由于循环阻塞了界面刷新的消息导致的,请问如何解决
貌似vba没有sleep函数? 而且即使有估计也没用
...全文
96 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Uncle_higo 2013-06-27
说错了 是access 2010 另外 有个更重要的问题,我真的没分了,斑斑帮帮忙吧,就是我需要一个查询 用distinct去掉重复项,并且要同时得出同一记录里的其他字段,其他字段的内容如果不相同,随机取一个就好了,反正我只需要其他字段有实际内容就好了 貌似mysql里面有group_concat 函数, 想问一下access2010有没有类似函数 ,我实在不想distinct一个表,再用dao去循环一次,把其他字段加入了,我的数据量很大,那样太慢了,虽说其实系统函数实现这个功能也是需要开销的,但是总比我自己写的效率高吧
回复
Uncle_higo 2013-06-27
引用 8 楼 WWWWA 的回复:
你的运行环境是什么?VB+MDB还是ACCESS中?上述代码在ACCESS中没有问题,如果是VB,请到VB版块去问吧
我access 2013 里面的 vba 环境啊 这两句复制进去,第一句就是红色的,说实在的我也不太明白第一句的作用,声明sleep函数是引用自Kernel32 库,这是vba调用windows api的声明方法吗
回复
WWWWA 2013-06-27
简单一点,用1个循环延时
回复
WWWWA 2013-06-27
你的运行环境是什么?VB+MDB还是ACCESS中?上述代码在ACCESS中没有问题,如果是VB,请到VB版块去问吧
回复
Uncle_higo 2013-06-27
引用 6 楼 wwwwb 的回复:
Private Declare Sub Sleep Lib Kernel32 (ByVal dwMilliseconds As Long) Sleep 1000 '延时1秒 自行修改
我最开始就是想试 Sleep 但是 编译不过啊,识别不到这个函数,难道需要包含头文件? 貌似是windows api?
回复
wwwwb 2013-06-27
Private Declare Sub Sleep Lib Kernel32 (ByVal dwMilliseconds As Long) Sleep 1000 '延时1秒 自行修改
回复
Uncle_higo 2013-06-27
11楼问题自己写函数解决了,控件刷新这个问题一直不行啊,写循环当延时也没有效果
回复
Uncle_higo 2013-06-26
加了对话框就不符合设计要求了
回复
Uncle_higo 2013-06-26
我没加messagebox
回复
Uncle_higo 2013-06-26
引用 2 楼 wwwwb 的回复:
Me.Text2.Value = "ffff" me.form.refresh messagebox "123"
木有用啊
回复
wwwwb 2013-06-26
Me.Text2.Value = "ffff" me.form.refresh messagebox "123"
回复
Uncle_higo 2013-06-26
我这两天一直问问题,结贴,回复,再问问题,一直保持30以下的可用分,这又是最后20分了。。。
回复
相关推荐
发帖
Access
创建于2007-09-28

7520

社区成员

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
申请成为版主
帖子事件
创建了帖子
2013-06-26 04:03
社区公告
暂无公告