请老师看看这段代码的错误问题。谢谢

yanwei82123300

请老师看看这段代码的错误问题。谢谢
我练习着学习写代码：
我想批量将表“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

老师们受理给看看，谢谢

ly

真是要命了，说是到4s店修车，却不把车开过来！！！

yanwei82123300

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

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

yanwei82123300

谢谢老师我找到问题了，

ly

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

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

yanwei82123300

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

谢谢帮助解决了。

yanwei82123300

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

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

zpy2

想多买几辆车，这句很关键。