+急盼回复：使用"INSERT INTO ( )VALUES( )"的用法

cookyliang

各位前辈：
最近我在做一个采购申报流程，在使用INSERT INTO ..(...)VALUES( ...)、UPDATE ( )SET ...WHERE...追加和更新记录的时候出现了问题：
如以下语句，当加入了[流水号](自动编号类型)、[申请日期](日期/时间类型)的字段和变量后，均出现“运行时错误：13，类别不匹配”的错误提示。
估计是这两个变量在引用时缺少了什么，恳请各位前辈给予指点和纠正。
感谢+急盼回复!!

Private Sub cmd申报_Click()
    Dim R1, R2 As QueryDef  
    Dim sql As String           
        sql = "INSERT INTO TA001单据录入信息(流水号, 采购单No, 申请人员ID, 申请日期)" + "VALUES(""" + txt流水号 + """" + ",""" + No + """" + ",""" + txt申请人员ID + """" + ",""" + txt申请日期 + """" + ") "
        Set R1 = CurrentDb.QueryDefs("Q001单据录入信息")     
        R1.sql = sql                           
        R1.Execute
        Set R2 = CurrentDb.QueryDefs("Q200单据状态更新")        
        R2.sql = "UPDATE TA200日记账营运物资采购 SET 单据完成状态=""已申报"" , 单据可行操作=""待审批""  WHERE 流水号 =" + """" + txt流水号 + """"      
        R2.Execute
End Sub

cookyliang

急盼~~

tz-chf

你都没弄明白语法

ACMAIN_CHM

建议楼主先学习再动手编程。 在没有学会如何调试程序之前，不要用手开发。

cookyliang

O...

jackysu78

为了减少烦恼，建议用查询向导来处理，再慢慢进阶

cookyliang

流水号, 采购单No, 申请人员ID是数字型，申请日期是日期型。
小菜鸟也估计是这里用错了，请问应该怎么修改呢？

cookyliang

汇报一下
修改并运行成功：
Private Sub cmd申报_Click()
    Dim R1, R2 As QueryDef  
    Dim sql As String      
   
        sql = "INSERT INTO TA001单据申报信息(流水号, 采购单No, 申请人员ID, 申请日期, 修改日期, 修改时间)VALUES('" & txt流水号 & " ','" & No & " ','" & txt申请人员ID & " ','" & txt申请日期 & " ','" & txt修改日期 & " ','" & txt修改时间 & " ') "
        Set R1 = CurrentDb.QueryDefs("Q001单据申报信息")     
        R1.sql = sql                                
        R1.Execute
        Set R2 = CurrentDb.QueryDefs("Q200单据状态更新")         'R2所应用的更新查询文件名称
        R2.sql = "UPDATE TA200日记账营运物资采购 SET 单据完成状态='已申报' , 单据可行操作='待审批'  WHERE 流水号 =Cstr('" & txt流水号 & "')"   
        R2.Execute
End Sub

cookyliang

感谢前辈们关注!
小菜鸟会继续边跌边学边用的