請高手指點，如下看一下什麼問題？

jackxia2010

用access軟件，執行階段錯誤‘3061’ 參數太少，預期個數1

表1：良品入庫
表2：不良數據庫

功能：產品入庫時檢查<不良數據庫>中 <OE編號>字段與[良品入庫窗體]文本框中輸入的<OE編號>相同，且滿足表2：不良數據庫中字段<備注狀態ID>='重工上線'時
更新表2：不良數據庫中<備注狀態ID>字段為'重工產出'

[良品入庫窗體]程式，其中按回車鍵執行如下：
Private Sub OE編號_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    Dim a As String
    Dim curdb As Database
    Dim curRS As Recordset
    Set curdb = CurrentDb
    Set curRS = curdb.OpenRecordset("select * from 不良數據庫 where OE編號='" & OE編號.Value & "' " & "and 備注狀態ID='重工上線'")
    If Not curRS.EOF Then
           curdb.Execute "update 不良數據庫 set 備註狀態ID='重工產出'"
           MsgBox "修改成功"
    Else
            MsgBox "錯誤：未按正常流程作業！此產品還未【重工上線】"
    End If
End If
End Sub

roych

试试把更新语句改成：
update 不良數據庫 set 不良數據庫.備註狀態ID='重工產出'"
此外，建议这样定义变量：
Dim curdb As Database
Dim curRS As DAO.Recordset
这样，系统则不会歧义定义而认为这是个ADO记录集。

jackxia2010

問題還在，沒有解決，還有什麽辦法

ly

jackxia2010 发表于 2011-11-28 21:05
問題還在，沒有解決，還有什麽辦法

请麻烦你附上样本，这样解决问题的效率可能会更高。谢谢！

jackxia2010

ly 发表于 2011-11-28 21:34
请麻烦你附上样本，这样解决问题的效率可能会更高。谢谢！

附件如下，請幫忙看一下

roych

大五码（Big 5）？手头上没有转换工具，有空再说。

jackxia2010

{:soso_e101:}
系統是繁體的，幫忙看一下，什麼問題
急~~~

marco

1楼的代码没问题，自行创建一个窗体测试执行正常！

（附件不完整且因简繁的问题，原窗体也测试不了）