Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как создать таблицу (VBA), которая содержит поле-гиперссылку / 4 сообщений из 4, страница 1 из 1
16.01.2003, 13:30
    #32091813
Dr Firs
Dr Firs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать таблицу (VBA), которая содержит поле-гиперссылку
Други, помогите с вопросом!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2003, 14:42
    #32091870
IgorM
IgorM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать таблицу (VBA), которая содержит поле-гиперссылку
DAO:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 Dim db As Database, t As TableDef, f As Field
 Set db = CurrentDb
 Set t = db.CreateTableDef( "test_tbl" )
 Set f = t.CreateField( "test_fld" , dbMemo)
 f.Attributes = dbHyperlinkField
 t.Fields.Append f
 t.Fields.Refresh
 db.TableDefs.Append t
 Set t = Nothing
 Set f = Nothing
 Set db = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2003, 14:50
    #32091878
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать таблицу (VBA), которая содержит поле-гиперссылку
Public Sub CreateHyperlinkField()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tdf = db.CreateTableDef("test")
Set fld = tdf.CreateField("HLink", dbMemo)
fld.Attributes = dbHyperlinkField
tdf.Fields.Append fld
db.TableDefs.Append tdf
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2003, 15:42
    #32091913
Dr Firs
Dr Firs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать таблицу (VBA), которая содержит поле-гиперссылку
Всем большое списибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как создать таблицу (VBA), которая содержит поле-гиперссылку / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]