"в хелпере Аксесса практически отсутствует информация о создании hyperlink полей." Марат
Marat 22.09.2001
Вот решил одну задачку,т.к. в хелпере Аксесса практически отсутствует информация о создании hyperlink полей. =========================================================== В хелпер редиски (нехорошие человеки) из Мелкомягких ничего толком не написали, наковырял: Поля, кажись, преобразовывать не получается. Может и можно, сделал ход лошадью. Создать новое поле, перенести в него данные из старого, старое удалить, создать еще одно поле с именем удаленного (переименовал типа), дальше бейсик пошел.
Sub CreateHyper() Dim dbs As Database Dim tbl As TableDef Dim fld As Field Dim rst As Recordset
Set dbs = CurrentDb() Set tbl = dbs.TableDefs("Suppliers") Set fld = tbl.CreateField("Hyperlink", dbMemo) fld.Attributes = dbHyperlinkField tbl.Fields.Append fld
Set rst = dbs.OpenRecordset("SELECT * FROM Suppliers") rst.Edit rst!Hyperlink.Value = "Microsoft#http://www.microsoft.com#" rst.Update End Sub
Поле хайперлинк напрямую создать нельзя, но можно преобразовать из Мемо через аттрибуты. Только после этого можно его аппендить.
Адрес в этом поле должен храниться в следующем виде: "Отображаемый текст(необязателен#Адрес-УРЛ-или т.п.#подадрес(адрес внутри сайта или документа)" То есть это строка состоящая из трех разделов разделенных двумя решетками. Если даешь только адрес, то писать надо так: "#http://microsoft.com#"