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

jbgy

请教各位！为什么通过代码可以添加数据到数据表，但是sql后面不能添加条件来查询计算，添加后会弹出如下图的提示，请帮忙看看什么原因

ryanbingo

估计就是SQL语句有问题, 就是where 后面参数的类型不符合就出现这个错误  图中那个直接引用[产品代码]   原来table 仲的产品代码如果是 int 类型, 试试在SQL里面强制转换 窗体1![产品代码] 成 cint (窗体1![产品代码])

roych

如果是文本型的，请在where子句中的条件前后加上单引号。

jbgy

感谢两位，是格式的问题我把表格中的代码改为数字型就可以了，另外请教两位，和上面的代码相同为什么我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

ryanbingo

试试 窗体1.Requery 这句最后 关了connection 在写 会不会可行?

jbgy

感谢几位，问题不是出在代码上，问题解决，谢谢！！