VBA如何进行表操作，

月亮　发表于：2011-04-07 18:09:57 　

复制

我试做一段程序下面语句执行后提示“编译错误” “用户定义类型未定义”我使用的Access2007,请老师指教。

Dim Db As ADODB.Connection

Dim Rs As Recordset

Set Db = New ADODB.Connection

Set Rs = New ADODB.Recordset

Top

月亮发表于：2011-04-07 18:34:28

刚开始学，麽不着头脑

Private Sub command35_click()
Dim i As Integer
Dim Db As ADODB.Connection
Dim Rs As Recordset
Dim Rs1 As Recordset
Set Db = New ADODB.Connection
Set Rs = New ADODB.Recordset
Set Rs1 = New ADODB.Recordset
Rs.activeconnction = CurrentProject.Connection
Rs1.activeconnction = CurrentProject.Connection
Rs.Open "订单明细", CurrentProject.Connection
re.Open "工艺表", CurrentProject.Connection
Rs.MoveFirst
For i = 0 To 10
Rs1("项目") = Rs!项目
Rs1("纸张") = Rs!纸张
Rs1.Update
Rs1.MoveNext
Next i

End Sub

Top

月亮发表于：2011-04-07 18:54:06

前面的有问题

Private Sub command35_click()
Dim i As Integer
Dim Db As ADODB.Connection
Dim Rs As Recordset
Dim Rs1 As Recordset
Set Db = New ADODB.Connection
Set Rs = New ADODB.Recordset
Set Rs1 = New ADODB.Recordset
Rs.activeconnction = CurrentProject.Connection
Rs1.activeconnction = CurrentProject.Connection
Rs.Open "订单明细", CurrentProject.Connection
Rs1.Open "工艺表", CurrentProject.Connection
Rs.MoveFirst
For i = 0 To 10
Rs1("项目") = Rs!项目
Rs1("纸张") = Rs!纸张
Rs1.Update
Rs.MoveNext
Next i

End Sub

Top

月亮发表于：2011-04-07 19:45:11

请指教：Access2007编程应该选择那些引用？

Top

麥田发表于：2011-04-08 00:28:44

编译错误:用户定义类型未定义的解决方法

http://www.accessoft.com/article-show.asp?id=5049

Top

巴士岁月发表于：2011-04-08 07:57:30

出错提示在哪行

Top

月亮发表于：2011-04-08 08:47:01

下面的语句是编译错“用户定义类型未定义”

Dim Db As ADODB.Connection
Dim Rs As Recordset
Dim Rs1 As Recordset
Set Db = New ADODB.Connection
Set Rs = New ADODB.Recordset
Set Rs1 = Rs.activeconnction = CurrentProject.Connection
以下是“方法和数据成员未找到”

Rs.CurrentProject.Connection

Rs1.activeconnction = CurrentProject.ConnectionNew ADODB.Recordset

Top

月亮发表于：2011-04-08 10:06:07

Rs.CurrentProject.Connection

为什么会“方法和成员未找到”

Top

麥田发表于：2011-04-08 10:19:33

控件名称与代码不一致

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

VBA如何进行表操作，