Question

エラーが発生するいくつかのパラメータ。このVBAコードに1を期待し、私は右のそれを入力する方法を知らない...

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

私はすべてのAccess/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を参照してください。答えのうちの1つがここに該当します。私は私のデータベースを打つランダムアドホッククエリを好きではないので、私はおそらくthis answerにQueryDefsアプローチでいいと思う：

だろう

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)