Office中国论坛/Access中国论坛

标题: 多个DOCMD出现在一个SUB过程中，有无简化的方法--- [打印本页]

作者: olderdream2007@ 时间: 2013-1-29 22:33
标题: 多个DOCMD出现在一个SUB过程中，有无简化的方法---
多个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
关注！！！

作者: tmtony 时间: 2013-1-30 09:29
多个不同的表操作应该没有办法再简化了

作者: roych 时间: 2013-1-30 11:19
本帖最后由 roych 于 2013-1-30 11:25 编辑

把这三个SQL语句放到宏里的RunSQL里，用Docmd.RunMacro来调用。
[attach]51231[/attach]
此外，也可以写成自定义函数，多次调用。例如：

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
正学自定义函数呢.谢谢分享.

作者: olderdream2007@ 时间: 2013-2-8 22:38

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

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

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

作者: IT新世界 时间: 2013-2-11 17:03
这个 VBA 代码，没必要简化哦！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)