Docmd.runsql problem 1

[sabavno]

I run this code to find out how many records there are in the table

docmd.runsql ("select count (*) as intX from table1&quot
but vba gives an error A RUNSQL ACTION REQUIRES AN ARGUMENT CONSISTING OF AN SQL STATEMENT

How else would I get the number of the records in the table from the code?

 

[WayneRyan]

sabavno,

try: lngTotalRecs = DCount("[field]", "Table", "&quot

hth,
Wayne

 

[jrbarnett]

Try

Dim intX as Integer


intX = DCount ("*", "Table1&quot

You can add an extra parameter after "Table1" to specify which records should be included.

eg intX = DCount ("*", "Table1", "LastName='Smith'&quot

It is worth knowing about domain aggregate functions like DCount, DSum, DMax, DMin, DAvg etc, -they are really handy for doing things like this.

John

 

[KenReay]

Hi

You caan use DoCmd.RunSQL ONLY for an action query, not a SELECT query.

You need to use DCount as per the other two posts of create a recordset.

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
UK
kenneth.reaySPAMNOT@talk21.com
remove SPAMNOT to use