Поиск файла

[plusstick]

Всем доброго времени суток.
Прошу помощи.
Мне нужно, чтобы при неком событии производился поиск отталкиваясь от определенной папки (от определенного уровня) по точному совпадению значения определенного поля на форме и имени файла (расширение значения не имеет) и полный путь этого файла вставлялся в другое поле на форме. Такое можно провернуть?
У меня есть кое-какой код, откопал в интернете:

Dim strAppPath As String
'сохраним путь базы
strAppPath = Application.CurrentProject.Path & "\"
' передадим полный путь
If Dir(strAppPath & "MyBase.mdb") <> "" Then
    MsgBox "Файл существует"
Else
    MsgBox "Файл не существует"
End If

или

' объявляем API для определения - есть ли файл
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
 
Dim strAppPath As String

' сохраним путь базы
strAppPath = Application.CurrentProject.Path & "\"
 
If PathFileExists(strAppPath & "Нарушения_ПДД_data.mdb") = 1 Then
    ' Возвращает 1(файл существует) или 0 (файла нет) 
    MsgBox "Файл существует"
Else
    MsgBox "Файл не существует"
End If

или

'завернуть все это дело в оболочку в отдельном модуле:
 
' возвращает True(файл существует) или False(файла нет) 
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Public Function DoesFileExist(ByVal strPath As String) As Boolean
    DoesFileExist = PathFileExists(strPath)
End Function
 
'вызывается просто: 

MsgBox DoesFileExist("c:\autoexec.bat")

[Teslenko_EA]

Здравствуйте plusstick.

"Мне нужно, чтобы..производился поиск отталкиваясь от определенной папки.." - речь о заданном каталоге?

"по точному совпадению" совпадение может быть только полным или это уже не "совпадает" а "содержит",
"..расширение значения не имеет.." - расширение это часть имени файла и если его игнорировать
речи о "полном совпадении" быть не может.

"..полный путь этого файла вставлялся в другое поле на форме..."
"Такое можно провернуть" если Вы учтёте все эти "детали" разместите в модуле подобный код, содержащий функцию

Public Const sPath = "C:\TEMP\" ' определенный уровень
Public Function sFullFile(oCtrl As Object) As String
If Len(Nz(oCtrl)) = 0 Then
ElseIf Not Len(Dir(sPath & oCtrl)) = 0 Then
    sFullFile = sPath & oCtrl
End If
End Function

данные в поле2 (другое поле) будет отображать источник (функция): =sFullFile(Поле1), который Вы зададите в свойствах поля "Данные"
Надеюсь у Вас всё получится.
Евгений.

[plusstick]

Здравствуйте, Евгений.
Спасибо, что ответили. Я еще пока новичёк в Access'е и много чего не знаю. Да, речь идет о заданном каталоге, то есть заданный путь. Нужно по совпадению имени файла, исключая расширение, так как расширения прикрепляемых файлов в моей базе могут быть разными (jpg, pdf), а сами имена будут совпадать. В некой сетевой папке лежать все документы и схемы, и при вводе номера документа, идентифицируя его с именем файла он автоматически чтобы цеплял нужный файл. Либо можно по нажатию кнопки типа "Прикрепить".

данные в поле2 (другое поле) будет отображать источник (функция): =sFullFile(Поле1), который Вы зададите в свойствах поля "Данные"

извиняюсь, но я не совсем понял, что куда вставлять, в модуль я включил ваш код, а вот при каком событии, что писать не разобрался. Не могли бы вы уточнить, пожалуйста.

[WordVest]

Эти проблемы решаются в основном с формами, которые поддерживают все проги MSO

[Teslenko_EA]

Здравствуйте plusstick.
я позволил себе слегка подкорректировать Вашу конструкцию, для большей наглядности.
Евгений.