窗体数据不能保存？

huhua · 发表于 2012-2-12 16:33

在附件“五金出库窗体”中填写完应有的数据后，点击保存按钮，始终提示“领用车间”未找到，查不出原因希各位指教！

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

marco · 发表于 2012-2-12 19:33

检查以下,前对后错;
Me.出库单号  领用单号
me.Text24  Me.领用类型
领用人  领料人

huhua · 发表于 2012-2-13 08:47

本帖最后由 huhua 于 2012-2-13 10:20 编辑

marco 发表于 2012-2-12 19:33
检查以下,前对后错;
Me.出库单号领用单号
me.Text24 Me.领用类型

谢谢marco的指教！

huhua · 发表于 2012-2-13 08:48

本帖最后由 huhua 于 2012-2-13 10:17 编辑

谢谢marco的指教！本人全部改正后运行，出现如下错误：

INSERT INTO 语句的语法错误
又不知什么原因了？

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 '-- 执行命令

其中:单价,数量,总价是数字型,领用日期是日期型,其它全是文本型.

		自动登录	找回密码
密码			免费注册

[求助] 窗体数据不能保存？