设为首页收藏本站Access中国
开启辅助访问 切换到宽版

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛»论坛首页 › ACCESS 与Sql Server 讨论区 › Access常规交流 › UPDATE出现标准表达式中的数据类型不匹配
返回列表 发新帖
查看: 2177|回复: 9
打印 上一主题 下一主题

[模块/函数] UPDATE出现标准表达式中的数据类型不匹配

[复制链接]
jsf2008
跳转到指定楼层
1#
发表于 2009-10-6 17:42:57 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Strsql0 = "UPDATE RS销售表 SET CWQR =" & Me![CWQR] & ",BL4 ='& Me![BL4] & ',SYJE =' & Me![SYJE] &',BL3 = '& Me![BL3] & ',SKRQ =# " & Me![SKRQ] & " #,YSK= '& Me![YSK] &'  WHERE 编号=" & Me![编号]


CWQR为是/否类型；BL4、BL3都为数字类型，格式为百分比；SYJE、YSK为数字类型、格式为标准；SKRQ为日期/时期类型，格式为短日期；请问为什么会出现“标准表达式中的数据类型不匹配”，错在哪里？请教各位师傅!

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有帐号？注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
回复

使用道具 举报

jsf2008
2#
 楼主| 发表于 2009-10-7 09:58:55 | 只看该作者
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
3#
发表于 2009-10-7 10:19:56 | 只看该作者
本帖最后由 koutx 于 2009-10-7 10:21 编辑

2 .肯定是错误的。
1.的结构没错，但问题可能出在CWQR上。
没有样例也不敢肯定啊！
回复 支持 反对

使用道具 举报

jsf2008
4#
 楼主| 发表于 2009-10-7 11:45:02 | 只看该作者
我都试过了，找不到问题所在?请看附件

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有帐号？注册

x
回复 支持 反对

使用道具 举报

jsf2008
5#
 楼主| 发表于 2009-10-7 15:02:46 | 只看该作者
????请看看哪里有问题？
回复 支持 反对

使用道具 举报

Henry D. Sy
6#
发表于 2009-10-7 15:43:26 | 只看该作者
  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
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有帐号？注册

x
回复 支持 反对

使用道具 举报

Henry D. Sy
7#
发表于 2009-10-7 15:43:50 | 只看该作者
WHERE 编号='" & Me![编号] & "'"
回复 支持 反对

使用道具 举报

jsf2008
8#
 楼主| 发表于 2009-10-7 17:51:21 | 只看该作者
谢谢
回复 支持 反对

使用道具 举报

jsf2008
9#
 楼主| 发表于 2009-10-8 10:21:01 | 只看该作者
Henry D. Sy    版 主：根据你的WHERE 编号='" & Me![编号] & "'"还是不行，你有运行试过吗？
回复 支持 反对

使用道具 举报

jsf2008
10#
 楼主| 发表于 2009-10-8 10:50:29 | 只看该作者
也OK了
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-19 08:31 , Processed in 0.082634 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表