Ms access 调用Access用户定义函数时包含变量

我有一个Access用户定义函数来计算特定文件夹中的文件数 与每个记录关联的文件夹的名称中都有记录ID号： i、 e.记录ID号2789将文件存储在O:\DOCS\PROCESS2789

我的问题是如何在从文本框调用函数时包含ID字段

我尝试过，但没有成功：

=ContaAnexos（“O:\DOCS\PROCESS&[Me.ID]”）

=ContaAnexos（“O:\DOCS\PROCESS”和（Me.ID））

这应该有效（无智能报价af流程）：

---

是的，它起作用了！在我的例子中：=ContaAnexos（“O:\DOCS\PROCESS”&[ID]&“）…非常感谢。当然。这是一个控制源。我已经编辑了答案。

Function ContaAnexos(folderspec As String) As Integer

'  Returns a count of files in folderspec, or -1 if folder does not exist

Dim fso As Object

   Set fso = CreateObject("Scripting.FileSystemObject")
   If fso.FolderExists(folderspec) Then
      ContaAnexos = fso.GetFolder(folderspec).Files.Count
   Else
      ContaAnexos = -1
   End If
End Function

=ContaAnexos("O:\DOCS\PROCESS" & [ID] & "")