ник: verba0
Подскажите, где исправить, что бы при открытии окна выбора файла гиперссылки, окно сразу открылось там, где лежит база Access.
Dim strFile As String
Dim vrtSelectedItem As Variant
With FileDialog(1) 'msoFileDialogOpen
.AllowMultiSelect = False
.Title = "Выбор файла для гиперссылки"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
strFile = vrtSelectedItem
Next
Me.Справка = "#" & strFile & "#"
End If
End With