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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

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

Тема: Добавление новой записи в combo box

15.06.2007 21:08:23

Dam

7 сообщения

Тема: Добавление новой записи в combo box

У меня следующая проблема.
Есть база данных. Для добавления новой записи в таблицу, в форме используется разворачивающийся список в котором поля берутся из этой же таблицы. Если вводить запись, которой еще нет в таблице, то Access выдает ошибку.
Как сделать, чтобы Access автоматически добавлял новую запись и в дальнейшем выводил ее в раскрывающемся списке.

P.S. Создание форм
Автор: Dam от 14.05.2004 10:04:04 Источник ...

15.06.2007 21:08:23

All

4316 сообщения

RE: Добавление новой записи в combo box

' Открытие формы
Private Sub Form_Open(Cancel As Integer)
Me.idСтрана.OnNotInList = "[Event Procedure]"
End Sub

' Заполнение списка
Private Sub idСтрана_NotInList(NewData As String, Response As Integer)
If MsgBox("Ввести новую запись: " & NewData, vbInformation + vbOKCancel, "Новые данные") = vbOK Then
Dim strName As String, strSQL As String, id As Long
' Подкорректируйте запрос
' strName = "Имя"
DoCmd.RunSQL "INSERT INTO Справочник" & strName & " (" & strName & ") SELECT '" & NewData & "' AS " & strName & ";"
Response = acDataErrContinue
Me.ActiveControl.RowSource = Me.ActiveControl.RowSource
End If
End Sub

P.S. Создание форм
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:08:23

Dam

7 сообщения

RE: Добавление новой записи в combo box