如何将表记录计数到全局变量vba msaccess中

Question

我将public var声明为整数，以使用vba代码存储记录的表计数。

使用此代码

public @VarName as integer
@VarName = Dcount("*","TBL_Name")

并且似乎dcount不能在公共模式下工作。

我该如何创建这样的代码？

Answer 1

Public Function TotalCount() As Long
    TotalCount = DCount("*", "TBL_Name")
End Function 

然后你可以打电话给它：

ModuleName.TotalCount