Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как программно заполнить ссылочную часть гиперлинка  [new]
Ангара
Member

Откуда:
Сообщений: 41
Доброе время суток всем! Была таблица с ссылками на сайты, но ссылки типа string. Я поменяла тип поля на гиперлинк, но у ссылок заполнились только текстовые свойства. Как программно заполнить вторую часть - саму ссылку. Ручками все получается, но много их. Охти мне :-(
4 мар 05, 06:50    [1361927]     Ответить | Цитировать Сообщить модератору
 Re: Как программно заполнить ссылочную часть гиперлинка  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
через VBA?
rst![МоеПолеГиперссылки]="ФорумАкцесса#https://www.sql.ru/forum/actualtopics.aspx?bid=4"
Запросом аналогично
4 мар 05, 08:35    [1362040]     Ответить | Цитировать Сообщить модератору
 Re: Как программно заполнить ссылочную часть гиперлинка  [new]
Ангара
Member

Откуда:
Сообщений: 41
Спасибо, Alexander G! Ты, как всегда, мне помогаешь :-)
Сделала так:



Sub HyperLink()

Dim Rst As ADODB.Recordset
Dim SQLString As String

Set Rst = New ADODB.Recordset
SQLString = "Select Web,Weblnk, ID_Firm From tblMainBase WHERE Web IS NOT NULL"

Rst.Open SQLString, CurrentProject.Connection, adOpenKeyset, adLockOptimistic


Do While Not Rst.EOF
Rst("Weblnk") = Rst("Web") + "#" + Rst("Web") + "#"
Rst.MoveNext
Loop

Rst.Close
Set Rst = Nothing
MsgBox "END OF CYCLING!!!"

End Sub

4 мар 05, 10:15    [1362367]     Ответить | Цитировать Сообщить модератору
 Re: Как программно заполнить ссылочную часть гиперлинка  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
Это можно сделать одним запросом на обновление, не открывая рекордсет.
4 мар 05, 10:20    [1362391]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить