条件表达式中的数据类型不匹配 SQL Select In Access

Question

Dim db As Database
Dim rrs As Recordset
Dim strselect As String
Set db = CurrentDb
strselect = "SELECT [Stok Pembelian] FROM t_databarang WHERE [ID Barang]= '" & Me.Text7 & "'"
Set rrs = db.OpenRecordset(strselect)
Me.Label1.Caption = rrs![Stok Pembelian]

我有一个学校的项目。 我是初学者，我对我的访问感到很困惑。 我认为该代码是正确的，但有一个错误“条件表达式中的数据类型不匹配”。 我已经搜索了很多关于如何解决它的文章，但没有找到。 请帮我。

Answer 1

尝试将文本框值转换为 double 或 int ...

Dim Text7a as Double

Text7a = CLng(Me.Text7) 'Beware of rounding with Long Integers

现在将别名Text7a用于：

strselect = "SELECT [Stok Pembelian] FROM t_databarang WHERE [ID Barang]= '" & Me.Text7a & "'"

Answer 2

您的 id 很可能是一个数字，因此没有引号：

strselect = "SELECT [Stok Pembelian] FROM t_databarang WHERE [ID Barang]= " & Me!Text7.Value & ""

Answer 3

检查数据类型！
比如“长文本与数字数据类型不匹配”。 在您的数据库设计中使用相同的数据类型