sql一直显示有个参数未指明这个问题该怎么解决

测试积点老人

sql一直显示有个参数未指明这个问题该怎么解决

1. <p>Private Sub Command15_Click()
   
2. Dim sql As String
   
3. Dim rst As ADODB.Recordset
   
4. Dim number As Integer
   
5. If IsNull(Me![仓库编号]) Then
   
6. MsgBox "请选择仓库"
   
7. DoCmd.GoToControl "仓库编号"</p><p>ElseIf IsNull(Me![商品编号]) Then
   
8. MsgBox "请选择商品编号"
   
9. DoCmd.GoToControl "商品编号"
   
10. Else
    
11. sql = "select *from 商品表 where [仓库编号]= '" & Me![仓库编号] & "'"
    
12. sql = sql & "and [商品编号]=" & Me![商品编号]
    
13. Set rst = New ADODB.Recordset
    
14. rst.ActiveConnection = CurrentProject.Connection
    
15. rst.CursorType = adOpenDynamic
    
16. rst.LockType = adLockOptimistic
    
17. rst.Open sql
    
18. If Not (rst.EOF) Then
    
19. number = rst!当前库存数量
    
20. rst.Close
    
21. Set rst = Nothing
    
22. sql = "当前库存数量为：" & number
    
23. MsgBox sql
    
24. Exit Sub
    
25. Else
    
26. rst.Close
    
27. Set rst = Nothing
    
28. MsgBox "当前仓库中没有该商品库存"
    
29. Exit Sub
    
30. End If
    
31. End If
    
32. End Sub</p>

复制代码

海海豚

最好把报错贴上来

bellas

看一下报错具体是哪一行，sql连接能打开么，拼接的sql是否正确。

litingting0214

看下日志，定位一下错误原因

qqq911

检查下sql

jingzizx

没错啊