Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Добавлени...

Тема: Добавление элементов в поле со списком

15.06.2007 21:02:45

Евгений5

15 сообщения

Тема: Добавление элементов в поле со списком

В поле со списком в качестве источника строк стоит запрос на таблицу Имена. Свойство ограничиться списком установлено "Да".

Я хочу через поле со списком добавлять возможные элементы в этот же список.

При отсутствии в списке запускается процедура обработки события NotInList

Private Sub Spisok_NotInList(NewData As String, Response As Integer)
Dim dbs As DAO.Database
Set dbs = CurrentDb
dbs.Execute "INSERT INTO Имена (Names) VALUES ('" & NewData & "');"
Spisok.Requery
End Sub

Новая запись в таблицу Имена добавляется. (И при последующем запуске формы она появляется в списке)
После чего выводится сообщение об ошибке 2118 "Необходимо сохранить текущее поле перед выполнением макрокоманды Обновление"

Далее сообщение "Введенный текст не соответствует ни одному из элементов списка"

Что сделать чтобы оно работало?
Спасибо!

P.S. События в формах
Автор: Евгений от 14.07.2002 22:39:09 Источник ...

15.06.2007 21:02:45

All

4316 сообщения

RE: Добавление элементов в поле со списком

В вашем коде не хватает строки: Response = acDataErrAdded после добавления записи, тогда requery не потребуется.
P.S. Хотя можно просто отключить на время обработку ошибок или использовать эти два способа одновременно.

P.S. События в формах
Автор: Anonymous от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Добавлени...

Поиск

Список форумов

Начало | Forums