access vba DoCmd.RunSQL 问题

[nyyswd1978]

access窗体。用DoCmd.RunSQL
插入一条数据到PRINTLS表。此表只有3列NUM,BARCODE,DATE。均是文本类型。

代码如下：

 '砍掉之前的
        DoCmd.SetWarnings False
        DoCmd.RunSQL "DELETE * FROM PRINTLS"
        DoCmd.SetWarnings True
        
        '放入这次的
        'rs.Open "SELECT * FROM printls", MyDB, adOpenDynamic, adLockOptimistic
        For i = 1 To Int(sl)
         DoCmd.RunSQL "insert into PRINTLS (NUM,barcode,date) value ('" & i & "','" & ptcode & "','" & Format(riqi, "yyyy-m-d") & "')"
        Next i

总是报语法错误？ 不知道为什么。谢谢大家

[wxdc]

应该是values吧 不过好像还不能写列名，你试试

         DoCmd.RunSQL "insert into PRINTLS values ('" & i & "','" & ptcode & "','" & Format(riqi, "yyyy-m-d") & "')"

为什么不能写列名 我也不知道了。这样我测试过 可以。