條件表達式中的數據類型不匹配 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

檢查數據類型！
比如“長文本與數字數據類型不匹配”。 在您的數據庫設計中使用相同的數據類型