错误提示"至少一个参数没有被指定值"

十年磨一剑

各位好，我这里有一个ADO程序，是在“物料入库”的同时，用最新一次入库的物料单价，去更新”物料库“中该物料的单价。
但我程序好象有点问题，每次更新物料入库时，出现错误提示：”至少一个参数没有被指定值“，请各位帮忙指点一下，谢谢！！

Private Sub Form_AfterUpdate()
  Dim rs物料库 As ADODB.Recordset
  Dim SQLStmt As String
On Error GoTo HandleError
  
  If Not IsNull(Me!物料编号) Then
    Set rs物料库 = New ADODB.Recordset
    If Not IsNull(Me!单价) Then
      SQLStmt = "SELECT * FROM 物料库 " _
        & "WHERE 物料编号 = " & Me!物料编号
      rs物料库.Open SQLStmt, CurrentProject.Connection, _
        adOpenDynamic, adLockOptimistic
      
      If Not rs物料库.EOF Then
        rs物料库![Unitprice] = Me!单价
        rs物料库.Update
      End If
      rs物料库.Close
      Set rs物料库 = Nothing
    End If
  End If
  
ExitHere:
  Exit Sub
  
HandleError:
  MsgBox "Error: " & Err.Description, vbCritical, "Access Error"
  Resume ExitHere
End Sub

roych

1、确认物料号是否文本，如果不是文本，请在前后加上单引号。
2、如果更新全部的话，应该用循环语句（例如Do Until ……Loop或者For……Next语句），别忘了可能还要加上MoveNext方法，以便移动游标到下一条记录。

十年磨一剑

感谢版主，最近有点忙，没上论坛，我先照您的方法改一下，如有问题，再向您请教。

十年磨一剑

版主真高，现在第一个问题解决了，可是如你说的第二点，我的代码只能更新一条记录的字段，可是现在要更新多条符合条件的字段, 如何运用.MoveNext呢，请赐教，谢谢！

Henry D. Sy

没有实例，只能试试看！

1. Private Sub Form_AfterUpdate()
   
2.     Dim rs物料库 As ADODB.Recordset
   
3.     Dim SQLStmt As String
   
4.     On Error GoTo HandleError
   
5. 
   
6.     If Not IsNull(Me!物料编号) Then
   
7.         Set rs物料库 = New ADODB.Recordset
   
8.         If Not IsNull(Me!单价) Then
   
9.             SQLStmt = "SELECT * FROM 物料库 " _
   
10.                       & "WHERE 物料编号 = " & Me!物料编号
    
11.             rs物料库.Open SQLStmt, CurrentProject.Connection, _
    
12.                        adOpenDynamic, adLockOptimistic
    
13. 
    
14.             Do While Not rs物料库.EOF
    
15.                 rs物料库![Unitprice] = Me!单价
    
16.                 rs物料库.Update
    
17.                 rs物料库.MoveNext
    
18.             Loop
    
19.             rs物料库.Close
    
20.             Set rs物料库 = Nothing
    
21.         End If
    
22.     End If
    
23. 
    
24. ExitHere:
    
25.     Exit Sub
    
26. 
    
27. HandleError:
    
28.     MsgBox "Error: " & Err.Description, vbCritical, "Access Error"
    
29.     Resume ExitHere
    
30. End Sub
    

复制代码