160 Dim DB As Database, Rst As Recordset, QD As QueryDef
170 Set DB = CurrentDb()
180 Set QD = DB.CreateQueryDef("", MySQL)
190 Set Rst = QD.OpenRecordset(dbOpenDynaset)
HOW TO COUNT RECORDS IN Rst BEFORE NEXT LINE?
200 Rst.MoveFirst

MLH wrote:
Either...

If Not Rst.EOF Then...

Or

If Rst.RecordCount > 0 Then...

Note that upon opening a Recordset the RecordCount cannot be trusted for an
accurate total count until you do a MoveLast, but it CAN be trusted to
indicate whether there are zero records or (something more than zero).

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

Thanks, Rick.
I had actually tried .count and it did not
compile (of course). Dunno why I didn't
just check the HELP before posting.
I appreciate it.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


On Fri, 7 Mar 2008 06:39:58 -0600, "Rick Brandt"
<rickbrandt2 (AT) hotmail (DOT) com> wrote:

Rick Brandt wrote:

Is that true for DISTINCT queries as well? I seem to remember doing some
tests and it always returned the correct recordcount w/o MoveLast.

DFS wrote:
I didn't mean to imply that it would always be incorrect without a MoveLast,
just that it often is. For it to be "trusted" it would beed to be correct
100% of the time and it clearly does not meet that standard.

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

"DFS" <nospam (AT) dfs_ (DOT) com> wrote in
news_oAj.1514$vr3.627 (AT) bignews2 (DOT) bellsouth.net:

I think that's correct. I am guessing that JET uses or creates a unique
index to do a Select Distinct and that the recordset inherits the index's
DistinctCount property. (Debug.Print DBEngine(0)(0).TableDefs
("Employees").Indexes("LastName").DistinctCount )

Table type recordsets return the correct recordcount on opening.

ADO Recordsets are a different kettle of fish, of course.

--
lyle fairfield