function - Access 表格 - 当前记录计数

Question

我创建了一个公共(public)函数，以便我可以在 Access 表单上调用它，并将结果显示在文本框控件中。这是公共(public)功能:

Public Function CurrRecs(xRecName As String, frmName As Form, tblCount As String)
    If Forms(frmName).NewRecord Then
     frmName.txtCurrRec = "New " & xRecName & " Record"
    Else
     frmName.txtCurrRec = CStr(frmName.CurrentRecord) & " of " & _
     DCount("ID", tblCount) & " " & xRecName & "s"
    End If
End Function

这就是我在 Form_Current() 上的内容

CurrRecs("RecordType", "frmCurrentForm", "tblGetCountFromHere")

我得到一个编译错误:预期:=

有人知道我在做什么错吗？

Answer 1

错误是因为您要声明 frmName作为一种形式，但在一个地方将其用作字符串，在另一个地方将其用作表格

另外，如果您想要表数，请使用 Form.RecordSet.RecordCount ，而不是详尽的DCount
重写:

Public Function CurrRecs(xRecName As String, frmName As String)
    Dim frm As Form
    Set frm = Forms(frmName)
    If  frm NewRecord Then
     frm.txtCurrRec = "New " & xRecName & " Record"
    Else
     frm.txtCurrRec = CStr(frm.CurrentRecord) & " of " & _
     frm.RecordSet.RecordCount & " " & xRecName & "s"
    End If
End Function