Too few parameters... Please Help!

G

Gina Whipp

All,

I get an error stating too few parameters. What am I missing?

Dim dbsCurrent As Database
Dim rstRecords As Recordset
Dim SendWhat As String

SendWhat = "SELECT llListingID, pbeMailAddress FROM qryBuyerByCounty WHERE
(((llListingID)= Me.txtListingID));"

Set dbsCurrent = CurrentDb()
Set rstRecords = dbsCurrent.OpenRecordset(SendWhat, dbOpenDynaset,
dbSeeChanges)

With rstRecords
Do Until .EOF
txtTo = txtTo & pbeMailAddress & ";"
.MoveNext
Loop
End With


Thanks,
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II
 
6

'69 Camaro

Hi, Gina.
I get an error stating too few parameters. What am I missing?

You're missing a table or query named Me with a column named txtListingID.
Try:

SendWhat = "SELECT llListingID, pbeMailAddress " & _
"FROM qryBuyerByCounty " & _
"WHERE (llListingID= " & Me.txtListingID & ");"

This assumes that IIListingID is a numeric data type.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/expert_contributors2.html for contact
info.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top