December 22nd, 2004, 09:51 AM
Join Date: Sep 2004
Time spent in forums: 1 Day 21 h 59 m 38 sec
Reputation Power: 13
To view the record set you need to create a temporary query to view and then delete the temp query when finished. Use the following code to create a temporary query that is named tmpProductInfo
Dim dbs As Database
Dim rs As Recordset
Dim qdf As QueryDef
Dim productName As String
Dim strSql As String
Set dbs = CurrentDb()
productName = "ADSL"
strSql = "SELECT [Information].* From [Information] WHERE [Information].Product = " & Chr(34) & productName & Chr(34) & ";"
Set rs = dbs.OpenRecordset(strSql, dbOpenSnapshot)
Set qdf = .CreateQueryDef("tmpProductInfo", strSql)