条件表达式中的数据类型不匹配 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]

I have a project from my school. I'm beginers and i'm so confused about my Access. I think that code it's correct, but there's an error "Data type mismatch in criteria expression." I already search much articles about how tow to fix it but not found. Please, help me.

Answer 1

Try to convert the textbox value into a double or int...

Dim Text7a as Double

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

Now use the alias Text7a for:

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

Check data types!
Like "Long Text do not match Number data type." Do it both them same data type on your database design