Question

我正在创建一个简单的POS系统，但我遇到了一个错误。在结帐表单上，它显示一个发票ID，我在[购物车]表格中的项目的子表单，结帐按钮和3个复选框：已售出免税，已售税和内部使用。我想要的是如果您选择cboxSoldNoTax并单击结帐，[Cart]中的所有项目将在“SoldNoTax”字段下更新为“是”。但问题是，当我点击结帐按钮时，我会收到此错误消息：

运行时错误'3464'：

条件表达式中的数据类型不匹配。

以下是我的vba代码：

Private Sub btnCheckout_Click()
    txtInvoice.Value = DMax("InvoiceID", "Invoice")

    If cboxSoldTax.Value = True Then
        DoCmd.RunSQL "UPDATE [Cart] SET SoldTax = 'Yes' WHERE InvoiceID = '" & Me.txtInvoice & "'"
    End If

    If cboxInternal.Value = True Then
        DoCmd.RunSQL "UPDATE [Cart] SET InternalUse = 'Yes' WHERE InvoiceID = '" & Me.txtInvoice & "'"
    End If

    If cboxSoldNoTax.Value = True Then
        DoCmd.RunSQL "UPDATE [Cart] SET SoldNoTax = 'Yes' WHERE InvoiceID = '" & Me.txtInvoice & "'"
    End If

End Sub

我还提供了访问数据库的链接。以下是使用数据库的说明：“开始”表单 - ＆gt;主菜单 - ＆gt;烧瓶 - ＆gt;选择数量 - ＆gt;加入购物车 - ＆gt;结帐按钮 - ＆gt;选择3复选框中的任意一个 - ＆gt;结帐按钮。

https://drive.google.com/file/d/0Bye-M8FI1tRUYm9QT3o5a0tyMkE/view?usp=sharing

任何帮助或建议都会很棒。提前谢谢！

Answer 1

如果Me.txtInvoice的数据类型是数字而不是文本，请删除" ... WHERE InvoiceID = " & Me.txtInvoice之前和之后的单引号：

putBucketWebsite(params = {}, callback)

如果选中复选框，则更新记录

1 个答案: