Get count of append without appending?

[news2]

I have several append queries. I would like to know how many records each
would add to the target table without actually adding those records (the
decision as to whether to add or not may be subjective).

Is there a way other than duplicating the append queries with a select
query?

Dick Cleaveland

 

[Stefan Hoffmann]

hi Dick,

Is there a way other than duplicating the append queries with a select
query?

No, not really.


Option Compare Database
Option Explicit

Public Sub CountAppending()

On Local Error GoTo LocalError

Dim db As DAO.Database

Set db = CurrentDb

BeginTrans

db.Execute ("INSERT INTO CountAppending([Value]) VALUES ('1')")
MsgBox "Appending: " & db.RecordsAffected

LocalError:
Rollback

End Sub


btw, use to queries:

the first selects the records to insert, the second one does the insert.
So a simple DCount() gives you to estimated rows to insert.

mfG
--> stefan <--