Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 22:46:31

Войти
Добавляйтесь в нашу группу ВКонтакте - будьте в курсе всех новых событий сайта, узнавайте первым обо всех акциях и новых статьях!
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Access и VBA
| | |-+  Гиперссылка в Access
Страниц: [1]   Вниз
Печать
Автор Тема: Гиперссылка в Access  (Прочитано 40152 раз)
0 Пользователей и 1 Гость смотрят эту тему.
RAN
Эксперты
Старожил
*

Репутация: +43/-0
Офлайн Офлайн

Сообщений: 440



Просмотр профиля E-mail
« : 31.10.2018, 14:24:04 »

Мяу!
Никак не могу разобраться с добавлением гиперссылки.
Нужно после добавления данных в таблицу проставить в поле "hypl" (тип - гиперссылка), гиперссылку на основе поля "код" (счетчик).
Т.е переписать для Access
Код: (vb)
Sub hypl()
Dim cl As Range
    With Range("Таблица1").ListObject
        For Each cl In .ListColumns("hypl").DataBodyRange
         ActiveSheet.Hyperlinks.Add cl, "D:\1tmp\" & CStr(cl.Offset(, -3).Value), TextToDisplay:=CStr(cl.Offset(, -3).Value)
        Next
    End With
End Sub
Записан

А что ты умеешь?
Учиться...
RAN
Эксперты
Старожил
*

Репутация: +43/-0
Офлайн Офлайн

Сообщений: 440



Просмотр профиля E-mail
« Ответ #1 : 31.10.2018, 16:09:52 »

Сам спросил, сам отвечаю.  Улыбка
Разыскал видео, которое все расставило по местам.
В результате получилось через AODB
Код: (vb)
    ctrSQL = "SELECT Таблица1.[Код], Таблица1.[hypl] FROM Таблица1"
    pRSet.Open ctrSQL, pCon, adOpenStatic, adLockOptimistic
        pCon.BeginTrans
    With pRSet
        Do While Not .EOF
            If IsNull(.Fields(1).Value) Then

                sSavePath = ThisWorkbook.Path & "\" & CStr(.Fields(0).Value)

                If Dir(sSavePath, vbDirectory) = "" Then
                    MkDir (sSavePath)
                End If

                DoEvents
                .Fields(1).Value = CStr(.Fields(0).Value) & "#" & sSavePath & "#"
                Debug.Print , .Fields(0), .Fields(1)
            End If
            .MoveNext
        Loop
    End With
Записан

А что ты умеешь?
Учиться...
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru