Office中国论坛/Access中国论坛

标题: UPDATE出现标准表达式中的数据类型不匹配 [打印本页]
作者: jsf2008    时间: 2009-10-6 17:42
标题: UPDATE出现标准表达式中的数据类型不匹配
Strsql0 = "UPDATE RS销售表 SET CWQR =" & Me![CWQR] & ",BL4 ='& Me![BL4] & ',SYJE =' & Me![SYJE] &',BL3 = '& Me![BL3] & ',SKRQ =# " & Me![SKRQ] & " #,YSK= '& Me![YSK] &'  WHERE 编号=" & Me![编号]

[attach]39838[/attach][attach]39839[/attach]
CWQR为是/否类型；BL4、BL3都为数字类型，格式为百分比；SYJE、YSK为数字类型、格式为标准；SKRQ为日期/时期类型，格式为短日期；请问为什么会出现“标准表达式中的数据类型不匹配”，错在哪里？请教各位师傅!
作者: jsf2008    时间: 2009-10-7 09:58
1.
Strsql0 = "UPDATE RS销售表 SET CWQR =" & Me![CWQR] & ",SKRQ =#" & Me![SKRQ] & "#, BL4 =" & Me![BL4] & " ,SYJE =" & Me![SYJE] & ",BL3 = " & Me![BL3] & ",YSK=" & Me![YSK] & "  WHERE 编号=" & Me![编号]
2.
Strsql0 = "UPDATE RS销售表 SET CWQR =" & Me![CWQR] & ",SKRQ =#" & Me![SKRQ] & "#, BL4 = & Me![BL4] &  ,SYJE = & Me![SYJE] & ,BL3 = & Me![BL3] & ,YSK= & Me![YSK] &  WHERE 编号=" & Me![编号]
为什么还会出现同样的错误?
作者: koutx    时间: 2009-10-7 10:19
本帖最后由 koutx 于 2009-10-7 10:21 编辑

2 .肯定是错误的。
1.的结构没错，但问题可能出在CWQR上。
没有样例也不敢肯定啊！
作者: jsf2008    时间: 2009-10-7 11:45
我都试过了，找不到问题所在?请看附件
作者: jsf2008    时间: 2009-10-7 15:02
????请看看哪里有问题？
作者: Henry D. Sy    时间: 2009-10-7 15:43
  1. Private Sub 确定_Click()
  2.     I = Me.RS财务收款登记子窗体.Form.CurrentRecord
  3.     Dim Strsql0 As String
  4.     Dim Strsql1 As String
  5.     Strsql0 = "UPDATE RS销售表 SET CWQR=" & Me![CWQR] & ",SKRQ=#" & Me![SKRQ] & "#,BL4=" & Me![BL4] & ",SYJE=" & Me![SYJE] & ",BL3=" & Me![BL3] & ",YSK=" & Me![YSK] & " WHERE 编号='" & Me![编号] & "'"
  6.     Strsql1 = "DELETE 编号 FROM RS销售表 WHERE 编号=" & Me![编号]
  7.     If a = 1 Then
  8.         CurrentProject.Connection.Execute Strsql0
  9.         Me.RS财务收款登记子窗体.Form.Requery
  10.         MsgBox "已成功修改资料", vbInformation, "阿飞提醒你"
  11.         Me.RS财务收款登记子窗体.Form.Recordset.Move I
  12.     End If
  13.     If a = 2 Then
  14.         CurrentProject.Connection.Execute Strsql1
  15.         Me.RS财务收款登记子窗体.Form.Requery
  16.         MsgBox "已成功删除资料", vbInformation, "阿飞提醒你"
  17.         If I <> 1 Then
  18.             Me.RS财务收款登记子窗体.Form.Recordset.Move I - 1
  19.         End If
  20.     End If
  21.     a = 0
  22.     Call FrmEnabled
  23. End Sub
复制代码
作者: Henry D. Sy    时间: 2009-10-7 15:43
WHERE 编号='" & Me![编号] & "'"
作者: jsf2008    时间: 2009-10-7 17:51
谢谢
作者: jsf2008    时间: 2009-10-8 10:21
Henry D. Sy    版 主：根据你的WHERE 编号='" & Me![编号] & "'"还是不行，你有运行试过吗？
作者: jsf2008    时间: 2009-10-8 10:50
也OK了



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3