如何在ACCESS2007上编写VB的时候在VB程序里面调用宏?

VBA语句如下:

DoCmd.RunMacro

"hong"

该语句乱搭咐可用在函数及SUB过程当中.

你哗纯可在VB调试窗枝悄口中试运行这个语句.

我的办余漏陵法是：

1）建个表Tmp，两个字段ID（自动编号）和B（是否型），输入一条记竖戚录。

2）模块里建个公共函数：

Function SetTmpB()

if msgbox("?",vbOKCancel) = vbOK then

docmd.runsql "UPDATE Tmp SET B = TRUE"

else

docmd.runsql "UPDATE Tmp SET B = FALSE"搜橘

end if

end function

3）宏的第1行，用runcode方法调用SetTmpB函数

4）之后首行，用dlookup("B","Tmp","ID=1")做判断条件，执行打开表的 *** 作

5）之后次行，用Not dlookup("B","Tmp","ID=1")做判断条件，执行消息框 *** 作。

你说的宏不是指ACCESS中的一段VBA代码吧？你试一下ACCESS程友凳李序里的DoCmd对象的RunMacro 方法行不行。使用之前必需先用程序打开目标数据库

补充一下： 我现在的理解是你制作了一粗春个ACCESS数据库，里面有你要的数据，并且有一段VBA程序代码（宏），你需要在VB程序中调用这段宏代码，将该数据库好迟中的数据导入你的VB程序中，是这样吗？

如果是的话，你完全可以在VB中重新编写这段代码，但要记着引用ACCESS的程序，并且建立联结（DAO或ADO连接），然后用DAO或ADO对象 *** 作数据库中的数据。

不知道你所说的宏具体怎么样，如果可行的话，你可以将数据库与VB程序代码发给我[email protected]，我帮你看一下

---