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
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