运行中“INSERT INTO 语句出错”?

huhua

五金材料(简1).rar (89.39 KB, 下载次数: 12)

2012-2-13 14:20 上传

点击文件名下载附件

运行中“INSERT INTO 语句出错”，错在什么地方？搞了4个小时，没搞好。

Private Sub 帐册_AfterUpdate()
Me.物品名称.RowSource = "select 出库基础表.物品名称" _
& " from 出库基础表 " _
& " where 出库基础表.帐册=" & "'" & Me.帐册 & "'" _
& " group by 物品名称"
Me.Refresh
End Sub

Private Sub 领用车间_AfterUpdate()
Me.领用人.RowSource = "select 领用人.领用人" _
& " from 领用人 " _
& " where 领用人.领用车间=" & "'" & Me.领用车间 & "'"
End Sub

Private Sub Comd9_Click()
On Error GoTo Err_Comd9_Click
If IsNull(Me.帐册) Or IsNull(Me.物品名称) Then Exit Sub
Dim FStr As String, FDate As Date
    If IsNull(Me.领用日期) Then
        FDate = Date
    Else
        FDate = Me.领用日期
    End If
   
    FStr = "INSERT INTO 出库帐( 帐册,物品ID,物品名称,规格型号,单位,单价,数量,总价,领用日期,领用车间,领用单号,领用人,领用类型,经手人 制单人,备注) " _
        & "SELECT '" & Me.帐册 & "',物品ID,'" & Me.物品名称 & "',规格型号,单位,单价,数量,总价,#" & FDate & "#,'" & Me.领用车间 & "','" & Me.领用单号 & "', '" _
            & Me.领用人 & "', '" & Me.领用类型 & "', '" & Me.经手人 & "', '" & Me.制单人 & "', 备注 " _
        & "FROM 出库基础表 WHERE 帐册 = '" & Me.帐册 & "' And 物品名称 = '" & Me.物品名称 & "' and 数量 Is Not Null"
    CurrentDb.Execute FStr '-- 执行命令

ly

应该是少了个标点符号？!

huhua

感谢ly的细心查错,确实少了一个","，加上后就正常了。