感谢+急盼回复：使用"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

修改并运行成功：
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

Scarlett_88

恭喜恭喜。能提供一个附件吗？

cookyliang

== 我得帮它 减减体重先

cookyliang

回传 例子