运行时错误“3061”。 参数太少。 预期 3.（访问 2007 和 2010）

Question

I have query like below and I can't add more conditions.

Set rst = CurrentDb.OpenRecordset("SELECT [Value1],[Value2] FROM Query1 where DATA_1 >= #" & Me.Tekst22.Value & "# and DATA_2 <= #" & Me.Tekst24.Value & "#", dbOpenSnapshot)

It works great but I need to add two more conditiones :

and ([Value3] = Me.Tekst34 or [Value4] = Me.Tekst34)

If I add code like this

Set rst = CurrentDb.OpenRecordset("SELECT [Value1],[Value2] FROM Query1 where DATA_1 >= #" & Me.Tekst22.Value & "# and DATA_2 <= #" & Me.Tekst24.Value & "# and ([Value3] = " & Me.Tekst34.Value & " or [Value4] = " & Me.Tekst34.Value & " ", dbOpenSnapshot)

I've got: Run-time error '3061'. Too few parameters. Expected 3

Please help me to correct this error.

additional: Next step after run this Query1 is print values to text file.

    Open "c:\test.txt" For Output As #1
    Set rst = CurrentDb.OpenRecordset("Query1")
    Do While Not rst.EOF

    Print #1, rst!VALUE1 & " " & rst!VALUE2
    rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    Close #1

That is what I need. Run Query1 (now it's with all needed parametrs) and print two values to text file.

Answer 1

You are missing a closing bracket in the SQL, it should finish Me.Tekst34.Value & ")"

If your Tekst34 is a string, you need to enclose it in quotes in the SQL :

"# and ([Value3] = """ & Me.Tekst34.Value & """ or [Value4] = """ & Me.Tekst34.Value & """)"

(to include " in a string constant one must put "" ).

Answer 2

This is what your Code should be, you need to make sure the number of opening parenthesis is equal to the closing ones. I have taken that the Value3 and Value4 are Text type in the table. More importantly; make sure they actually exist in the table.

Set rst = CurrentDb.OpenRecordset("SELECT [Value1],[Value2] FROM Query1 " & _
                                  "WHERE ((DATA_1 >= " & Format(Me.Tekst22, "\#mm\/dd\/yyyy\#") & _
                                  " AND DATA_2 <= " & Format(Me.Tekst24"\#mm\/dd\/yyyy\#") & _
                                  ") AND ([Value3] = " & Chr(34) & Me.Tekst34 & Chr(34) & _
                                  " OR [Value4] = " & Chr(34) & Me.Tekst34.Value & Chr(34) & "))", dbOpenSnapshot)