多个DOCMD出现在一个SUB过程中，有无简化的方法---

olderdream2007@ · 发表于 2013-1-29 22:33:12

多个DOCMD出现在一个SUB过程中，有无简化的方法---

如：下面的代码中出现了3个DoCmd.RunSQL 有无简写的方法。
谢谢

SUB TEST()
DoCmd.RUNSQL "UPDATE A SET AA='25“'
DoCmd.RUNSQL "UPDATE B SET BB='30“'
DoCmd.RUNSQL "UPDATE TEB SET WW='38“'
END SUB

sxgaobo · 发表于 2013-1-29 22:44:05

关注！！！

tmtony · 发表于 2013-1-30 09:29:20

多个不同的表操作应该没有办法再简化了

roych · 发表于 2013-1-30 11:19:30

本帖最后由 roych 于 2013-1-30 11:25 编辑

把这三个SQL语句放到宏里的RunSQL里，用Docmd.RunMacro来调用。

此外，也可以写成自定义函数，多次调用。例如：

Function UpdateData(TblName As string,FieldName As string,Para As String)
Docmd.RunSQL "Update "& TblName & " set " & FieldName & "='" & Para &"'"
End Function

复制代码

Sub Test()
Call UpdateData ( "A表","字段1","参数1")
Call UpdateData ( "B表","字段1","参数1")
Call UpdateData ( "C表","字段1","参数1")
End Sub
不过，个人觉得意义不大。

huangli0356 · 发表于 2013-1-30 12:49:37

正学自定义函数呢.谢谢分享.

olderdream2007@ · 发表于 2013-2-8 22:38:28

roych 发表于 2013-1-30 11:19
把这三个SQL语句放到宏里的RunSQL里，用Docmd.RunMacro来调用。

此外，也可以写成自定义函数，多次调用。 ...

谢谢版主的指点学习中-----

IT新世界 · 发表于 2013-2-11 17:03:43

这个 VBA 代码，没必要简化哦！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 多个DOCMD出现在一个SUB过程中，有无简化的方法---

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)