Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Q: как создать в таблице случайный счетчик? / 8 сообщений из 8, страница 1 из 1
23.08.2004, 14:51:53
    #32661307
Иван FXS
Иван FXS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
Как программно создать счетчик с [Новые значения]="Случайные"? Вот так:
Код: plaintext
1.
2.
3.
4.
    Dim fld As DAO.Field
    Set fld = .CreateField("idW", dbLong)
        fld.Attributes =  17  
        fld.DefaultValue = "GenUniqueID()"
- не получается ... :-(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2004, 15:06:33
    #32661340
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
Дык, вы сначала добавьте поле, а потом уж меняйте его
Можно так
currentdb.execute "ALTER TABLE test ADD COLUMN id COUNTER"
currentdb.TableDefs("test").Fields("id").DefaultValue ="GenUniqueID()"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2004, 15:12:58
    #32661362
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
fld.Attributes = 16


(с выражением лица)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2004, 15:25:37
    #32661402
Иван FXS
Иван FXS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
Serge Gavrilov - спасибо. Хотя и ... странно немного: почему
fld.Attributes = 17
- можно делать ДО добавления поля, а

fld.DefaultValue
- только ПОСЛЕ?

Victosha. fld.Attributes = 16 - не катит ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2004, 17:58:45
    #32661861
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
1) 17=16 Or 1, так что 16 катит

почему-то нижеприведенный код работает. В чем дело не понятно. что-то мне вокруг CollationOrder проблема чудится

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub tt()
Dim dB As Database
Dim tD As TableDef
Dim fld As DAO.Field
Set dB = CurrentDb
Set tD = dB.TableDefs("T")
Dim tF As DAO.Fields
Set tF = tD.Fields

    Set fld = tD.CreateField("idW", dbLong,  4 )
        
        fld.DefaultValue = "GenUniqueID()"
        fld.Attributes =  16          
   tD.Fields.Append fld
   tD.Fields.Refresh
   Set fld = tD.Fields("idW")
   
   fld.DefaultValue = "GenUniqueID()"
   dB.TableDefs.Refresh
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2004, 18:10:52
    #32661877
Иван FXS
Иван FXS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
Это Вы, типа, для надежности - дважды присвоили
fld.DefaultValue = "GenUniqueID()"
- и до, и после
tD.Fields.Append fld
?

"Не катит" у меня означало, что оно САМО ПО СЕБЕ не делает счетчик СЛУЧАЙНЫМ!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2004, 19:28:07
    #32661980
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
Иван FXSЭто Вы, типа, для надежности - дважды присвоили
fld.DefaultValue = "GenUniqueID()"
- и до, и после
tD.Fields.Append fld
?

"Не катит" у меня означало, что оно САМО ПО СЕБЕ не делает счетчик СЛУЧАЙНЫМ!
нет не для надежности, а в результате наблюдений (левым глазом) над таблами И ЗАПРОСАМИ .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2004, 09:20:57
    #32662275
Иван FXS
Иван FXS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q: как создать в таблице случайный счетчик?
Victosha Иван FXS дважды присвоили
fld.DefaultValue = "GenUniqueID()"
- и до, и после
tD.Fields.Append fld

нет не для надежности, а в результате наблюдений (левым глазом) над таблами И ЗАПРОСАМИ .
- хмммм ... если первое GenUniqueID "срабатывает", то зачем нужно второе?
Если первое GenUniqueID НЕ срабатывает, то зачем нужно ОНО? Сорри.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Q: как создать в таблице случайный счетчик? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 302ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1672259]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 208ms
total:  302ms
x
x
Закрыть


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