ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1511|回复: 5

[求助] 请教各位!为什么通过代码可以添加数据到数据表,但是不能计算!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2015-3-11 14:52 | 显示全部楼层 |阅读模式
请教各位!为什么通过代码可以添加数据到数据表,但是sql后面不能添加条件来查询计算,添加后会弹出如下图的提示,请帮忙看看什么原因 Snap4.jpg
Snap4.jpg

TA的精华主题

TA的得分主题

发表于 2015-3-11 15:46 | 显示全部楼层
估计就是SQL语句有问题, 就是where 后面参数的类型不符合就出现这个错误  图中那个直接引用[产品代码]   原来table 仲的产品代码如果是 int 类型, 试试在SQL里面强制转换 窗体1![产品代码] 成 cint (窗体1![产品代码])

TA的精华主题

TA的得分主题

发表于 2015-3-11 16:04 | 显示全部楼层
如果是文本型的,请在where子句中的条件前后加上单引号。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-12 08:34 | 显示全部楼层
感谢两位,是格式的问题我把表格中的代码改为数字型就可以了,另外请教两位,和上面的代码相同为什么我if嵌套的有问题,本来要求是有记录就累计,没有记录就新建一条,但是现在是既累计又新建,请帮忙看看
Private Sub Command1_Click()
     Dim sql As String
    Dim rst As ADODB.Recordset
    Dim number As Integer
    '以下程序中的 窗体1 表示"入库记录"窗体
    If IsNull(窗体1![产品代码]) Then   '如果没有选择仓库编码
        MsgBox "请选择产品代码"
       ' DoCmd.GoToControl "产品代码"
    ElseIf IsNull(窗体1![产品名称]) Then
        MsgBox "请输入产品名称"
        'DoCmd.GoToControl "产品名称"
    ElseIf IsNull(窗体1![产品规格]) Then
        MsgBox "请输入产品规格"
        'DoCmd.GoToControl "产品规格"
    ElseIf IsNull(窗体1![库存数量]) Then
        MsgBox "请选择库存数量"
        'DoCmd.GoToControl "产品数量"
    'ElseIf IsNull(窗体1![入库备注]) Then
       ' MsgBox "请输入入库备注"
       ' DoCmd.GoToControl "入库备注"
        
    Else
               
            '添加库存信息
            sql = "select * from 库存表 where[产品代码]=" & 窗体1![产品代码]
            Set rst = New ADODB.Recordset
            rst.ActiveConnection = CurrentProject.Connection
            rst.CursorType = adOpenDynamic
            rst.LockType = adLockOptimistic
            rst.Open sql
             If Not (rst.EOF) Then
               number = rst!库存数量
                number = number + 窗体1![库存数量]
                rst!库存数量 = number
                rst.Update
                sql = "出库成功1!请查看库存详细信息"
                MsgBox sql
                窗体1.Requery
                Exit Sub
            Else
                With rst
                    .AddNew
                    !产品代码 = 窗体1![产品代码]
                    !产品名称 = 窗体1![产品名称]
                    !产品规格 = 窗体1![产品规格]
                    !库存数量 = 窗体1![库存数量]
                    !备注 = 窗体1![备注]
                     End With
                rst.Update
               sql = "入库成功2!请查看库存详细信息"
                MsgBox sql
                   窗体1.Requery
                Exit Sub
            End If
           
            rst.Close
            Set rst = Nothing
            Exit Sub
            窗体1.Visible = False
            
        End If
End Sub

TA的精华主题

TA的得分主题

发表于 2015-3-12 09:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
试试 窗体1.Requery 这句最后 关了connection 在写 会不会可行?

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-12 11:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
感谢几位,问题不是出在代码上,问题解决,谢谢!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-26 00:24 , Processed in 0.046645 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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