Question

我得到錯誤幾個參數。預計1.此VBA代碼，我不知道如何正確進入它...

Dim rs_invoice As DAO.Recordset 
Set rs_invoice = CurrentDb.OpenRecordset("SELECT * FROM order_tbl WHERE invoice_no Is Null AND company_name='" _ 
& Me.cmb_start_company.Column(1) & "' AND shiped=" & "True") 


If Not (rs_invoice.EOF And rs_invoice.BOF) Then 
    rs_invoice.MoveFirst 
    Do Until rs_invoice.EOF = True 
     rs_invoice.Edit 
     rs_invoice!invoice_no = invoice_number 
     rs_invoice.Update 

     rs_invoice.MoveNext 
    Loop 
Else 
    'No records 
End If 

'Finish 


rs_invoice.Close 'Close the recordset 
Set rs_invoice = Nothing 'Clean up 

感謝

Answer 1

我不是那麼熟悉接入/ DAO，但你串聯參數值補充到您的查詢。使用ADO命令文本會是這個樣子，而不是：

Const sql As String = "SELECT * FROM order_tbl WHERE invoice_no Is Null AND company_name = ? AND shiped = True" 

的?是一個參數值的佔位符;而不是直接致電OpenRecordset(sql)，您需要製作一個Command並添加一個合適的Parameter。

似乎DAO處理這個有點不同，請參閱Parameterized queries in Access - 當然其中一個答案適用於此。因爲我不喜歡隨機即席查詢撞擊着我的數據庫，我可能會與QueryDefs辦法去this answer：

Dim qdf As Querydef 
Dim rst As Recordset 

'then we'll open up the query: 
Set qdf = CurrentDB.QueryDefs(qryname) 

'Now we'll assign values to the query using the parameters option: 
qdf.Parameters(0) = qryStartDate 
qdf.Parameters(1) = qryEndDate 

'Now we'll convert the querydef to a recordset and run it 
Set rst = qdf.OpenRecordset 

這將是：

Dim query As QueryDef 
Set query = CurrentDB.QueryDefs("TheQuery") 

query.Parameters(0) = Me.cmb_start_company.Column(1) 

Dim result As Recordset 
Set result = query.OpenRecordset 

Answer 2

只是猜測。你可以試試這個：

"SELECT * FROM order_tbl WHERE (invoice_no Is Null) AND (company_name='" _ 
& Me.cmb_start_company.Column(1) & "')AND (shiped=" & "True") 

選項2：

dim str_test as string 
str_test =  "SELECT * FROM order_tbl WHERE (invoice_no Is Null) AND (company_name='" & Me.cmb_start_company.Column(1) & "')AND (shiped=" & "True") 

debug.print str_test 

你在即時窗口中得到什麼？

選項3：

"SELECT * FROM order_tbl WHERE (invoice_no Is Null) AND (company_name='" _ 
    & Me.cmb_start_company.Column(1) & "')AND (shiped=True)" 

選項4： 然後用樣品這裏，它應該工作。 https://msdn.microsoft.com/en-us/library/bb243786(v=office.12).aspx也許吧。只要確保你設定記錄同樣的方式：

Dim dbsNorthwind As DAO.Database 
Dim rstProducts As DAO.Recordset 
Dim strSQL As String 

Set dbsNorthwind = CurrentDb 
strSQL = "SELECT * FROM Products WHERE Discontinued = No " & _ 
     "ORDER BY ProductName" 
Set rstProducts = dbsNorthwind.OpenRecordset(strSQL)