Office中国论坛/Access中国论坛

标题: 请老师看看这段代码的错误问题。谢谢 [打印本页]

作者: yanwei82123300 时间: 2021-5-11 19:47
标题: 请老师看看这段代码的错误问题。谢谢

请老师看看这段代码的错误问题。谢谢
我练习着学习写代码：
我想批量将表“tbl序列数”，增加到表1中，但是报错，请看看图片，不知问题再哪里？谢谢
Private Sub Command0_Click()
Dim rs As adodb.Recordset
Dim rs1 As adodb.Recordset
Dim stemp As String
Dim stemp1 As String
Set rs = New adodb.Recordset
Set rs1 = New adodb.Recordset
strTemp = "Select * From tbl序列数"
rs.Open strTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
stemp1 = "select * from 表1"
   rs1.Open strTemp1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Dim intCount, intCount1 As Integer
'CurrentDb.Execute "DELETE * FROM 表1"

   rs1.AddNew
      rs!sn = rs1!sn

      rs1.Update
Set rs1 = Nothing

intCount1 = DCount("SN", "表1")
MsgBox "已生成: " & Format(intCount1, "#,###") & " 条新记录！请查看报表！", vbInformation, "生成序列数"
End Sub

作者: yanwei82123300 时间: 2021-5-12 11:45
老师们受理给看看，谢谢

作者: ly 时间: 2021-5-12 19:21
真是要命了，说是到4s店修车，却不把车开过来！！！

[attach]64053[/attach]

作者: yanwei82123300 时间: 2021-5-12 19:30

ly 发表于 2021-5-12 19:21
真是要命了，说是到4s店修车，却不把车开过来！！！

老师谢谢您的帮助，我修改了一下，但是不能增加数据，谢谢了

作者: yanwei82123300 时间: 2021-5-12 19:35
谢谢老师我找到问题了，

作者: ly 时间: 2021-5-12 19:39

yanwei82123300 发表于 2021-5-12 19:30
老师谢谢您的帮助，我修改了一下，但是不能增加数据，谢谢了

认真看了吗？上面已经说了！！！
rs1!sn=rs!sn

作者: yanwei82123300 时间: 2021-5-12 19:53

ly 发表于 2021-5-12 19:39
认真看了吗？上面已经说了！！！
rs1!sn=rs!sn

谢谢帮助解决了。

作者: yanwei82123300 时间: 2021-5-12 20:13

ly 发表于 2021-5-12 19:39
认真看了吗？上面已经说了！！！
rs1!sn=rs!sn

老师还需要麻烦您一下，这个例子只能增加一条数据，请问如何增加多条数据呢？怎么样写循环谢谢

作者: zpy2 时间: 2021-5-24 12:40
想多买几辆车，这句很关键。

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