在下面的代码中,当我给vcount赋值时,我得到了compile error Type mismatch
。
我使用的代码是:
Dim SQL As String
Dim vcount As Integer
SQL = " SELECT count(*) FROM [Data Processing List];"
vcount = CurrentDb.OpenRecordset(SQL)
一些替代方法。
使用TableDefs计算特定表中的行数:
Dim vcount As Integer
vcount = CurrentDb.TableDefs("[Data Processing List]").RecordCount
使用DCount:
Dim vcount As Integer
vcount = DCount("*", "[Data Processing List]")
还有更多方法。看看这篇非常有趣的文章,讨论几种方法,包括小型和中型表的性能结果:
CurrentDb.OpenRecordset
返回记录集,而不是值。
如果要访问记录集字段的值,可以使用字段集合中所需字段的.Value
属性来执行此操作:
vcount = CurrentDb.OpenRecordset(SQL).Fields(0).Value