尝试筛选报告时条件表达式错误中的数据类型不匹配
Data type mismatch in criteria expression error while trying to filter report
我不久前才开始使用 Access,但遇到了一些问题。
我正在尝试过滤一份报告,该报告显示跟踪编号和从箱子上的条形码扫描的相关数据。跟踪号是主键,它作为短文本存储在 table.
中
我在表单中设置了一个命令按钮,可以启动一个输入框来输入或扫描跟踪号码。
每当尝试运行这个我得到一个
Run-time error '3464: Data type mismatch in the criteria expression.
我的代码:
Private Sub Command28_Click()
Dim ReportName As String
ReportName = "bucketContents"
Dim trackingNum As String
trackingNum = InputBox("Enter the Tracking number:", "Tracking Number Input")
'if a value was entered, open and filter report
If Len(Trim(trackingNum)) > 0 Then
DoCmd.OpenReport ReportName, acViewPreview, , "[sampleID] = " & trackingNum
End If
End Sub
文本值必须用引号引起来:
DoCmd.OpenReport ReportName, acViewPreview, , "[sampleID] = '" & trackingNum & "'"
我不久前才开始使用 Access,但遇到了一些问题。
我正在尝试过滤一份报告,该报告显示跟踪编号和从箱子上的条形码扫描的相关数据。跟踪号是主键,它作为短文本存储在 table.
中我在表单中设置了一个命令按钮,可以启动一个输入框来输入或扫描跟踪号码。
每当尝试运行这个我得到一个
Run-time error '3464: Data type mismatch in the criteria expression.
我的代码:
Private Sub Command28_Click()
Dim ReportName As String
ReportName = "bucketContents"
Dim trackingNum As String
trackingNum = InputBox("Enter the Tracking number:", "Tracking Number Input")
'if a value was entered, open and filter report
If Len(Trim(trackingNum)) > 0 Then
DoCmd.OpenReport ReportName, acViewPreview, , "[sampleID] = " & trackingNum
End If
End Sub
文本值必须用引号引起来:
DoCmd.OpenReport ReportName, acViewPreview, , "[sampleID] = '" & trackingNum & "'"