各位斑竹 大侠,我很辛苦,帮下忙吧,感恩不敬!!!!

Imain

我也遇到过此类问题，不知如何解决？请各位高手赐教

李寻欢

既然是过程过大，就肯定要分割，但也只需要按一次按钮，比如你要分成三个过程：
Private Sub Command6_Click()
语句1
。
。
。
call process1
call process2
End Sub

Private Sub process1()
。
。
。
语句m
End Sub

Private Sub process2()
。
。
。
语句n
End Sub

不过我想可能不用上千个更新语句，也许只用一个或多个循环，只需十条八条语句就可以搞定了。

[此贴子已经被作者于2003-2-12 9:12:31编辑过]

Roadbeg

如果很多语句都有相似之处的话,如下操作,相信能减少语句数量:
dim i as long,temp as string
for i=65 to 90      'asc("A")=65     'asc("Z")=90
   temp=chr(i)+chr(i)+chr(i)
   DoCmd.RunSQL "UPDATE [表1] SET [表1].简日期 = '"+temp+"' WHERE ((([表1].输入内容) Like '*"+chr(i)+"*'))"
next i
当然,你需要设置的数据及更新条件可能不是 "AAA","*A*","BBB","*B*"......
但你可以按这个思路去做

过程太大,可以使用一个总过程调用小过程的方式嘛:
如下:
private sub a()
b
c
end sub

private sub b()
docmd ....
...
end sub

private sub c()
...
end sub

yachtz

设计多个查询不就很简单地解决了吗？