Office中国论坛/Access中国论坛

标题: 请帮我看看下面一段VBA代码有什么问题！ [打印本页]

作者: caojianke223 时间: 2004-12-12 02:58
标题: 请帮我看看下面一段VBA代码有什么问题！
请帮我看看下面一段VBA代码有什么问题，为什么在ACCESS2000里可以执行，但在ACCESS2003里却不能执行，说是无效字符。

Private Sub 包装成本（元_升）_DblClick(Cancel As Integer)

'定义查询变量

Dim r1 As QueryDef

'设置r1为"成本详细信息"的一个实例

Set r1 = CurrentDb.QueryDefs("成本详细信息")

'设置r1的查询SQL语句

r1.sql = "select * from 配方表 where 配方名称=""" + 配方名称 + """"

'打开“成本信息”窗体成本

DoCmd.OpenForm "成本信息"

'设置客户详细信息子窗体的数据源为r1

End Sub

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