openrecordet problem with query

B

branko

Can anyone help with this procedure?
When I put some table name in strTable I get many records
and columns but when I put query name in strTable I got
nothing. Col and Row Count = 0

Dim intColCount as Integer
Dim intRowCount as Integer
Dim strTable As String
Dim rstTemp As Recordset
strTable = "qryName" ' "tblName"
Set rstTemp = CurrentDb.OpenRecordset(strTable,
dbOpenSnapshot)
intColCount = rstTemp.Fields.Count
rstTemp.MoveLast
intRowCount = rstTemp.RecordCount
 

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

Similar Threads

Help - onclick sub never runs 4
MakeSchedule function 6
Locating specific tables 2
Problem exporting multiple tables into different worksheets in oneworkbook 3
Top n query using Allen Browne's "ConcatRelated" 5
Problem Importing Specific Worksheet From Workbook 6
Function not running inside a Sub when a date field is blank 2
Why linked sql database is read only 2

Top