MS Access vba - エラー

Question

私はMS Accessレポートを作成しています。私は小さな問題を遭遇し、どこが間違っているのか分かりません。だから私がやろうとしているのは

1）私はこれらの値をクエリで参照されるfrmXに渡して、クエリに "TO"と "FROM"の日付が必要です。 frmXを開いてクエリを実行すると、うまく動作します。データ 3でいくつかの値を変更しようと 2）イム）tempTable1

に新しい値を挿入します。ここに私のコードです：

dim rs1 as DAO.Recordset 
dim rs2 as DAO.Recordset 
CurrentDb.Execute "DELETE FROM [tempProvider-Detail]" 

'Repopulating temp table 
DoCmd.OpenQuery "qryProvider-FINAL" 

'Input Source 
Set rs1 = CurrentDb.OpenRecordset("Select * from [qryProvider-Final]", , dbOpenSnapshot) 

'Target Source 
Set rs2 = CurrentDb.OpenRecordset("Select * from tempProvider-DETAIL", dbOpenDynamic) 

ここで興味深いのはどのようなことがDoCMD.OpenQueryにハングアップしていないということです - しかし、rs1を設定すると、2つのパラメータが必要であることがわかります。私はなぜ - なぜクエリが既に開かれているのか分かりません - それを開いてみるとうまくいきます（frmXの日付はクエリで参照されます）。

私を助けてください！

私はこれをやって、ハインツが助けてくれました。まだ同じエラーが出ています。何が間違っていますか？

DoCmd.OpenQuery "qryProvider-FINAL" 

Set qdf = CurrentDb.QueryDefs("qryProvider-FINAL") 
qdf.Parameters(0) = [Forms]![frmX]![txtFrom] 
qdf.Parameters(1) = [Forms]![frmX]![txtTo] 
Set rs1 = qdf.OpenRecordset 

strSQL = "SELECT * FROM [qryProvider-FINAL];" 

'Input Source 
Set rs1 = CurrentDb.OpenRecordset(strSQL, , dbOpenSnapshot) ---this is where it hangs up 

Answer 1

CurrentDb.OpenRecordsetでレコードセットを開くときにフォームコントロールを参照することはできません。それはちょうどサポートされていません。

• Everything About Using Parameters from Code

答えはyoureのは、ここでは異なる文脈でJetエンジンを起動することであり、それはすべての違いを作る：詳細は、次のMSDNの記事で見つけることができます。前述の例のように、フォームを使用してAccessユーザーインターフェイス経由でパラメータを提供するパラメータクエリからデータを取得すると、Accessは関連する式を評価してJetに値を提供できます。フォームを使用する代わりに、フォームを使用する代わりにVBAを使用してパラメータを提供するパラメータクエリからデータを取得すると、ユーザーインターフェイスの問題を管理するAccessのビットが関与しません。結果として、JetはcboCountryの値の代わりに "[Forms]！[frmSelectCountry]！[cboCountry]"という文字列が渡されます。 Jetは式を評価する方法を知らないので、レコードセットを開くことができません。

Answer 2

なり、この作品：ほとんどそこ

Sub Test() 

    Dim db As DAO.Database 
    Dim qdf As DAO.QueryDef 
    Dim rst As DAO.Recordset 
    Dim prm As DAO.Parameter 

    Set db = CurrentDb 
    Set qdf = db.QueryDefs("qryProvider-FINAL") 
    For Each prm In qdf.Parameters 
     prm.Value = Eval(prm.Name) 
    Next prm 
    Set rst = qdf.OpenRecordset 

End Sub