form中 控件显示更新的问题

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

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

然后执行大循环,很漫长

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

我猜是由于循环阻塞了界面刷新的消息导致的,请问如何解决
貌似vba没有sleep函数? 而且即使有估计也没用
...全文
114 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
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分了。。。

7,714

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧