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

检查数据类型！
例如“长文本与数字数据类型不匹配”。在数据库设计中将它们作为相同的数据类型

条件表达式中的数据类型不匹配SQL在“访问”中选择

3 个答案: