Filtering Recordset in MS Access-Run Time Error, Too Few Parameters!

[Kassimu]

Hi there,

I have a table [DailyUpdates] with thousands of record entries, usually the user searches this table through SearchForm resulting into some recordset. What I need to do on this recordset is to concatenate the contents of all the records for one field-[Description], and populate the resulting into textbox [FaultComms] of a form [UpdateSummary]

Private Sub Form_Load()
Dim db As Database
Dim rstUpdates As Recordset
	Set db = CurrentDb
	Set rstUpdates = db.OpenRecordset("Daily Fault Update", dbOpenDynaset)
If Not rstUpdates.EOF Then rstUpdates.MoveFirst
Do While Not rstUpdates.EOF
	vntTempData = vntTempData & rstUpdates!Description
	rstUpdates.MoveNext
Loop
Me.FaultComms = vntTempData
End Sub

The problem I am having here is, this code gives data from all the records, I only need a filtered output. I tried to open the recordset based on query "Daily Fault Update Query" I end up with run time error '3061' -too few parameters expected 1.

I tried to use filter property of recordset to limit the records and then open another recordset on it. The second sample of code!

Private Sub Form_Load()
Dim db As Database
Dim vntTempData as Variant
Dim rstUpdates As Recordset
Dim rstUpdates1 As Recordset
Dim strOpen As String
strOpen= "[TT_Number] =[Forms]![TXFaults].[TT_Number]"
	Set db = CurrentDb
	Set rstUpdates = db.OpenRecordset("Daily Fault Update", dbOpenDynaset)
	rstUpdates.Filter=strOpen
	Set rstUpdates1= rstUpdates.OpenRecordset
If Not rstUpdates1.EOF Then rstUpdates1.MoveFirst
Do While Not rstUpdates1.EOF
	vntTempData = vntTempData & rstUpdates1!Description
	rstUpdates1.MoveNext
Loop
Me.FaultComms = vntTempData
End Sub

I'm also the rutime error too few parameters. Expected 3 on this line

[left]Set rstUpdates1= rstUpdates.OpenRecordset

[/left]

Anyone with solution on how to evade this runtime error​