ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с ValidationRule
14 сообщений из 14, страница 1 из 1
Проблемы с ValidationRule
    #32490021
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
Из VB в базе Access-a создаю таблицу:

Set tdfNew = newDB.CreateTableDef(CurName)
With tdfNew
.Fields.Append .CreateField("id", dbLong)
.Fields.Append .CreateField("DOMAIN", dbText, 10)
.Fields.Append .CreateField("SHORT_NAME", dbText, 15)
.Fields.Append .CreateField("FULL_NAME", dbText, 50)
End With
newDB.TableDefs.Append tdfNew
newDB.TableDefs(CurName).Fields("ID").ValidationRule = ">=0" newDB.TableDefs(CurName).Fields("ID").ValidationText = "Значение ID должно быть неотрицательным"

Теперь захожу в Access, при открытии этой таблицы говорит: "Ошибка синтаксиса во введенном выражении" и мочит ValidationRule
ValidationText - все ОК, остается ...
их VBA этот кусок выполняется "на ура" ... HELP
...
Рейтинг: 0 / 0
21.04.2004, 15:33:17
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490049
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
А поле "ID" это не счетчик в таблице случайно?
...
Рейтинг: 0 / 0
21.04.2004, 15:41:34
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490071
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
.Fields.Append .CreateField("id", dbLong) - какой же это счетчик!!!

но потом я вешаю PrimaryIndex на него ...
...
Рейтинг: 0 / 0
21.04.2004, 15:50:31
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490078
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
Для чистоты эксперимента:
убрал создание индекса ... НЕ ПОМОГЛО
...
Рейтинг: 0 / 0
21.04.2004, 15:52:56
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490103
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
Странно, а есть возможность созданую таблицу в режиме конструктора посмотреть и проверить не задан ли тип поля "ID" как "AutoNumber"?
...
Рейтинг: 0 / 0
21.04.2004, 16:00:28
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490212
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
Смотрю после создания таблицы на поле ID - Type = 4 ... это Long

ё-моё!!!!! нашел ...

VB запихнул пробел после 0!!!! Хотя после создания показывал нормально, а при повторном подключении вижу, что там 4 символа и пробел последний!!!
...
Рейтинг: 0 / 0
21.04.2004, 16:30:36
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490255
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
... никак не удается избавиться от этого пробела :-(((
...
Рейтинг: 0 / 0
21.04.2004, 16:42:40
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490313
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
а так:
newDB.TableDefs(CurName).Fields("ID").ValidationRule = "">=0""
...
Рейтинг: 0 / 0
21.04.2004, 17:02:49
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490374
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
Ну так точно не пройдет ... ругается сам VB ... но смысл ясен
Нужно 3 кавычки с каждой стороны
Тоже самое. Вот что получилось:

ValidationRule "">=0"" String
...
Рейтинг: 0 / 0
21.04.2004, 17:15:48
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490429
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
кавычки действительно пропустил. прикольная проблемка. а если так позврашаться: left(">=0",3)
...
Рейтинг: 0 / 0
21.04.2004, 17:29:49
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490432
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
сорри, так:"left(">=0",3)"
...
Рейтинг: 0 / 0
21.04.2004, 17:30:47
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490446
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
блин чего то совсем погнал я, извиняюсь, конечно это не пойдет
...
Рейтинг: 0 / 0
21.04.2004, 17:34:15
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490466
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
Я пробовал Trim (...)

не покатило ... похоже Access после вставки сам правит зачем-то ...
...
Рейтинг: 0 / 0
21.04.2004, 17:39:55
| Ответить | Цитировать | Написать  
Проблемы с ValidationRule
    #32490546
Ander Borisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ander Borisov
Гость
Для этого примера можно сначала задать все свойства, а потом создать поле ...
но как поменять имеющеееся значение ... Это вопрос .......

ВОТ ТАК ПРОКАТИЛО:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
     Set tdfNew = newDB.CreateTableDef(CurName)
     With tdfNew
         .Fields.Append .CreateField( "id" , dbLong)
         .Fields.Append .CreateField( "DOMAIN" , dbText,  10 )
         .Fields.Append .CreateField( "SHORT_NAME" , dbText,  15 )
         .Fields.Append .CreateField( "FULL_NAME" , dbText,  50 )
         .Fields( "ID" ).ValidationRule =  ">=0 "
         .Fields( "ID" ).ValidationText =  "Значение ID должно быть неотрицательным" 
     End With
...
Рейтинг: 0 / 0
21.04.2004, 18:05:17
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с ValidationRule
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2169703]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 194ms
get topic data:
 8ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 212ms
total:  506ms
созд. / загр.: 506ms
x
x
Закрыть


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