Включение переменной при вызове пользовательской функции Access - PullRequest
Новая
       6

Включение переменной при вызове пользовательской функции Access

0 голосов
/ 03 сентября 2018

У меня есть функция доступа, определяемая пользователем, для подсчета количества файлов в определенной папке Папка, связанная с каждой записью, имеет идентификационный номер записи в своем имени: т.е. в идентификационном номере записи 2789 будут храниться документы в папке O: \ DOCS \ PROCESS 2789

Моя проблема заключается в том, как включить поле идентификатора при вызове функции из текстового поля

Я пытался безуспешно:

= 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

1 Ответ

0 голосов
/ 03 сентября 2018

Это должно работать (без умных кавычек ПРОЦЕССА): 

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