Question

我有一个Access User Defined函数来计算特定文件夹中的文件数与每个记录关联的文件夹的名称中都有记录ID号：即记录ID号2789将把文档存储在O：\ DOCS \ PROCESS 2789

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

我尝试没有成功：

= ContaAnexos（“ O：\ DOCS \ PROCESS＆[Me.ID]”）

= ContaAnexos（“ O：\ DOCS \ PROCESS”＆（Me.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

Answer 1

这应该有效（过程中没有智能引号）：

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

调用Access User Defined Function时包含变量

1 个答案: