Question

我已经尝试过并尝试使用这些代码，但没有运气。

代码应该选择与cmbsource具有相同产品代码部分的产品。

Private Sub cmbSource_AfterUpdate()

Dim Worktop As String

If ProductType = 1 Then

Worktop = "SELECT [products/stock].[Product Code], [products/stock].Description, [products/stock].[Stock Level] FROM [products/stock] " & _
"WHERE Category = 'DPALRC' " & _
"AND Mid('[Product Code]',1,5) = Mid('" & Me.cmbSource.Value & "',1,5) " & _
"AND Mid('[Product Code]',9,6) = Mid('" & Me.cmbSource.Value & "',9,6) " & _
"ORDER BY [Product Code];"

Me.cmbResult.rowSource = Worktop
Me.cmbResult = vbNullString

End If

任何想法？

提前致谢， Bob P

Answer 1

这里只是猜测。

Worktop = "SELECT ps.[Product Code], ps.Description, ps.[Stock Level]" & vbCrLf & _
"FROM [products/stock] AS ps" & vbCrLf & _
"WHERE ps.Category = 'DPALRC'" & vbCrLf & _
"AND Mid([Product Code],1,5) = '" & Mid(Me.cmbSource,1,5) & "'" & vbCrLf & _
"AND Mid([Product Code],9,6) = '" & Mid(Me.cmbSource,9,6) & "'" & vbCrLf & _
"ORDER BY ps.[Product Code];"
Debug.Print Worktop

转到立即窗口（ Ctrl + g ）并从那里复制语句。然后创建一个新的Access查询，切换到SQL视图，粘贴语句文本，然后运行它。

如果我建议的代码没有返回您想要的结果，请向我们展示实际的SQL语句文本并解释它有什么问题。

Answer 2

Worktop = "SELECT [products/stock].[Product Code], [products/stock].Description, [products/stock].[Stock Level] FROM [products/stock] " & _
"WHERE Category = 'DPALRC' " & _
"AND Mid([Product Code],1,5) = Mid('" & Me.cmbSource.Value & "',1,5) " & _
"AND Mid([Product Code],9,6) = Mid('" & Me.cmbSource.Value & "',9,6) " & _
"ORDER BY [Product Code];"

这是我的更新版本，结果是编码中唯一的错误就是[Product Code]周围有单引号。

使用MID命令使用组合框和SQL进行过滤

2 个答案: