| |
|
|
| | Подскажите, где исправить, что бы при открытии окна выбора файла гиперссылки, окно сразу открылось там, где лежит база 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 | |
| |
| |
| |
|
|
| | Кто знает, как убрать, в верхнем поле (где находятся кнопки, закрыть, свернуть, развернуть) что бы не отражалось надпись
«Microsoft Access и [фСотрудники]» | |
| |
| |
| |
|
|
| |
'Для использования FileDialog должна быть подключена Microsoft Office 14.0 Object Library
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = "Выберите файл для гиперссылки"
.InitialFileName = Application.CurrentProject.Path & "\"
.Filters.Clear
.Filters.Add "Excel files", "*.xls*"
.Filters.Add "All Files", "*.*"
If .Show Then 'Выбран файл
Me.Справка = "#" & .SelectedItems(1) & "#"
Else 'Нажата Cancel
'
End If
End With
|
Это все применительно к MSA2010, в других версиях не тестировал. | |
| |
| |
| |
|
|
| | Спасибо, в 2003 работает!!! | |
| |
| |
