Private Sub Way_DblClick(Cancel As Integer)
With Application.FileDialog(1)
.InitialFileName = "\\Ad-dns-01\sklad\scan\"
.Title = "Укажите файл"
.ButtonName = "Добавить"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "ВСЕ (*.*) ", "*.*"
.Filters.Add "Adobe (*.jpg)", "*.jpg", 1
result = .Show
' Закоментированный фрагмент не дает возможности выйти пока не загрузится файл
'******************************************************************************
'If result = 0 Then
'Do Until (result <> 0)
'MsgBox ("Необходимо внести файл в базу")
'result = .Show
'Loop
'End If
'*********************************************************************************
If result <> 0 Then SelectFile = Trim(.SelectedItems.Item(1)) ' собственно значение
End With
Me.Way = "#" & SelectFile & "#" & SelectFile ' заносим в поле гиперссылку
Me.Data = Forms!Cheta!Kod_Cheta
End Sub
|