Изменить свойства поля в таблице

Question

У меня есть запрос MS Access «Сделать таблицу», который объединяет URL-адрес библиотеки SharePoint и путь к каждому загруженному документу. Результат, однако, выводится как текстовое поле. В настоящее время мне нужно вручную изменить свойство поля из текста в гиперссылку, чтобы он отображался как имя документа с гиперссылкой на документ. Есть ли способ изменить свойство поля с помощью запроса?

Answer 1

Вы можете использовать оператор Concat (&) вручную создать href элемент:

SELELCT '<a href="' & link & '">' & name & '</a>' 
FROM documents 

Answer 2

The Hyperlink type field cannot be created with DDL. Это Access SQL ограничение применяется независимо от того, хотите ли вы создать поле или изменить тип существующего поля , Таким образом, ваш запрос таблицы может создать текстовое поле, но не поле гиперссылки.

Отдельно вы можете запустить код VBA, чтобы изменить тип поля в DAO таблицы TableDef. Однако, я думаю, что проще создать структуру таблицы назначения один раз, а затем загрузить ваши данные в эту таблицу. Другими словами, используйте «append query» вместо «make table». Если впоследствии вам нужно будет заменить данные в этой таблице, не отбрасывайте таблицу и не создавайте новую версию. Только DELETE существующие строки, а затем добавьте новые данные.

Answer 3

Как упоминает HansUp, не существует способа сделать преобразование только в SQL, но если вы выполните процедуру VBA сразу после выполнения запроса таблицы make, он может «преобразовать» это поле для вас.

(Это на самом деле должен создать новое поле, скопируйте данные ссылок, вложенных в # символов, удалить старое поле, а затем переименовать новую.)

Option Compare Database 
Option Explicit 

Sub ConvertFieldToHyperlink() 
    Dim cdb As DAO.Database, tbd As DAO.TableDef, fld As DAO.Field 
    Set cdb = CurrentDb 
    Set tbd = cdb.TableDefs("yourTable") 
    Set fld = New DAO.Field 
    fld.Name = "zzzNew" 
    fld.Type = vbVariant 
    fld.Attributes = dbHyperlinkField 
    tbd.Fields.Append fld 
    Set fld = Nothing 
    cdb.Execute "UPDATE [yourTable] SET [zzzNew]='#' & [linkField] & '#'", dbFailOnError 
    tbd.Fields.Delete "linkField" 
    tbd.Fields("zzzNew").Name = "linkField" 
    Set tbd = Nothing 
    Set cdb = Nothing 
End Sub