Новости:

Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин

Главное меню

Гиперссылка в Access

Автор RAN, 31.10.2018, 14:24:04

« назад - далее »

RAN

Мяу!
Никак не могу разобраться с добавлением гиперссылки.
Нужно после добавления данных в таблицу проставить в поле "hypl" (тип - гиперссылка), гиперссылку на основе поля "код" (счетчик).
Т.е переписать для Access
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

Сам спросил, сам отвечаю.  :)
Разыскал видео, которое все расставило по местам.
В результате получилось через AODB
    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
А что ты умеешь?
Учиться...

Яндекс.Метрика Рейтинг@Mail.ru