VBA - Getting 3011 when trying to run query

[IntelliOfficer]

Hi all,
This is my first post, well, ever...
So here it goes.

I'm writing a chunk of code that finds an email address in a table, then places it into the SendObject method.

When I try to run it I get the dreaded 3011.
Please help.

Ps. I only got this far thanks to people's posts and your responses. So thanks so much for that =)

Here's the code:

Dim strTo As String
Dim rst As dao.Recordset
Dim dbs As Database
Dim strSQL As String
Dim strtablename As String
 
strtablename = "Branches"
 
Set dbs = CurrentDb()
 
strSQL = "SELECT Email_Address AS EmailAddress FROM " & strtablename & " WHERE Branch_Code= " & TempVars("SelectedBranch").Value
 
' The above SQL is all one line, so there's no need to put any underscores
' I also tried Branches.[Email Address] and [Email Address]
 
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenTable)
 
 
DoCmd.SendObject acSendQuery, bla bla bla, strTo, , , bla bla bla
 

-------------------------

the funny thing is, when I use this SQL in a query in access, it works fine. When I put it in the openrecordset in VBA, I get the 3011.

(
SELECT Branches.[Email Address]
FROM Branches
WHERE (((Branches.[Branch Code])=112));
)

FYI. 112 is replaced with tempvar.value

Any help would be appreciated.
Much thanks, peace and love

[Rabbit]

take out the dbOpenTable parameter, you're not opening a table.

[IntelliOfficer]

Ah!
thanks so much, that fixed it. Actually, turns out my query had a bug in it as well.
However, another problem has risen.
You see, the document I am sending (excel sheet from query) has Arabic characters in it.
When I export it from a macro (and in the access tables/queries) it looks fine.
Once it's in the vba code, however, I get rubbish.
Any tips?

[Rabbit]

Hmm, this one I don't know about. Since this is essentially a different question, try posting a new thread, maybe someone else will have encountered this before.

[IntelliOfficer]

No worries.
I actually bypassed the code entirely and did it in a macro.
The sendobject macro allows you to have a textbox value inserted into the TO: field but not a query result.
What I did was turn the form into a query, and cycle through the email records, all the while grabbing the email address from a hidden text box.
Dirty, but works very well.
thanks for your help Rabbit
and sorry about the extra post.

[Rabbit]

Not a problem, good luck.

If that works and you want to know the code, you can convert all your macros to VBA code and then take a look at that.

[IntelliOfficer]

Hi Rabbit,
Sorry, just saw your post.
Thanks. That was very helpful and will be for the future.

[Rabbit]

Not a problem, good luck.