VBA issue run time error 3061

[aflores41]

Hello,

I need some help troubleshooting the code below. I'm getting a run-time error code 3061, "too few parameters, expected 1". I've searched online (google) but haven't found anything that could help me. Thank you.

Set rst1 = db.OpenRecordset("qry_selected_email_distinct", dbOpenDynaset)

The code works when the referenced query doesn't have a criteria. I'm using

[TempVars]![username]

criteria on the query.

Any help or advise is much appreciated.

I've confirmed it that the tempvars is causing the code to break. Question is how can I add this code in the vba so the query is filtered by username (tempvars!usern ame)?

Thank you.

[Seth Schrock]

You can't use tempvars in a query def. However, you can create a SQL string that uses the value inside your Tempvars("UserN ame"). The following assumes that your field name is UserName.

Dim strSQL As String

strSQL = "SELECT * FROM qry_selected_email_distinct WHERE UserName = '" & Tempvars("username") & "'"
db.OpenRecordset(strSQL, dbOpenDynaset)

[TheSmileyCoder]

Well technically you CAN use tempvars in a querydef. The part that is confusing is that it will work when the querydef is used from the Access GUI, i.e. opening the query directly, or binding a form to the same query.

But trying to access it through the currentdb object, however you can not. For some more information check this msdn answer from Dirk Goldgar:

https://social.msdn.microsoft.com/Forums/office/en-US/b8fbd7e3-c8a3-452d-b0df-82751ea27d0b/irregular-behavior-of-tempvar-used-as-saved-query-parameter?forum=accessdev