Добавление нового значения в зависимое поле со списком

@Comrade-Archer · Регистрация: 28.12.2018

Всем добрый день, возникла небольшая проблемка с добавлением нового значения в поле со списком в форме. Прописал уже готовую функцию для добавления в независимую ячейку от других новые значения вот так:

Visual Basic

Private Sub Вид_NotInList(NewData As String, Response As Integer)
Dim strMsg As String
Dim rst As DAO.Recordset
Dim db As DAO.Database
strMsg = """" & NewData & """ нет в поле со списком. Вы хотите добавить это значение?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Новый вид") = vbNo Then
Response = acDataErrDisplay
Else
Set db = CurrentDb()
Set rst = db.OpenRecordset("ВИД")
rst.AddNew
    rst("Вид экспертизы") = NewData
rst.Update
Response = acDataErrAdded
rst.Close
End If
End Sub

Но дальше есть таблица "Специальность", которая зависит от таблицы "Вид", в которой хранится её внешний ключ.

Добавление нового значения в зависимое поле со списком

И если применить вышеуказанную функцию к этой таблице, то она не будет привязывать новый ключ к новой записи.

Что нужно дописать в вышеуказанный код, чтобы он помимо новой записи привязывал ключ, который выбрали в форме?

@VinniPuh · 03.03.2020, 15:12

Сообщение от Comrade-Archer

... Чтобы он помимо новой записи привязывал ключ, который выбрали в форме?

Я обычно после обновления главенствующего поля, изнасильно-принудительно указываю, что нужно - ОБНОВИТЬ подчиненно-Зависимое - Поле со списком, типа если процедурой, то так

Visual Basic

Private Sub ВыборГруппыКонтакта_AfterUpdate()
  Me.[ПоискОрганизации].Requery
  Me.[ПоискОрганизации].SetFocus
  Me.[ПоискОрганизации].Dropdown
End Sub

Это при условии, чо я вас правильно понял и у зависимого списка прописано условие отбора по главенствующему полю со списком.
Реальный пример, который можно ручками пощюпать, можно потыкать вот в тут - Про приёмную комиссию
При выборе Факультета, можно выбрать только те специальности, что заранее указаны для данного факультета.
Ну типа в блоке - Поиск.
Сам принцип действия даже я когда то понял.

@alvk · 04.03.2020, 02:12

Сообщение от Comrade-Archer

Прописал уже готовую функцию для добавления в независимую ячейку

Нет ячеек в Акцессе, не выдумывайте.
У вас форма основана на таблице Специальность? Тогда не понимаю в чём проблема, ключ автоматически устанавливается в поле со списком. Или вы там что-то намудрили? Присоединенный столбец с ключём?

@Comrade-Archer · 04.03.2020, 07:06 **[ТС]**

Форма основана на таблице "Наименование". В ней внешние ключи остальных таблиц. Зависимости вводимых данных я уже настроил, т.е. если изменить "вид", то поменяются и специальность и задачи.

Дело в том, что когда я ввожу новые данные, которых нет в таблице в помощью кода, указанного в первом посте, он создаёт новую строку в столбце, но не привязывает этот столбец к внешнему ключу, и поэтому и возникает ошибка, потому что без привязки внешнего ключа, он не видит эту новую запись.

@ltv_1953 · 04.03.2020, 07:22

Если Код_Вида поле формы и уже введено, то попробуйте задать его при вводе новой специальности в Вашей процедуре

Visual Basic

 
    ...
    rst.AddNew
        rst("Код вида") = Me.Код_Вида
    rst("Срециальность") = NewData
    rst.Update
    ...

@Comrade-Archer · 04.03.2020, 08:13 **[ТС]**

Только там
Не

Visual Basic

1	rst("Код вида") = Me.Код_Вида

А

Visual Basic

1	rst("Код вида") = Me.Вид

Добавление нового значения в зависимое поле со списком

Решение

Решение

@alvk 6902 / 4415 / 286 Регистрация: 12.08.2011 Сообщений: 13,214
	04.03.2020, 02:12	3
	Сообщение от Comrade-Archer Прописал уже готовую функцию для добавления в независимую ячейку Нет ячеек в Акцессе, не выдумывайте. У вас форма основана на таблице Специальность? Тогда не понимаю в чём проблема, ключ автоматически устанавливается в поле со списком. Или вы там что-то намудрили? Присоединенный столбец с ключём? 0

@Comrade-Archer 0 / 0 / 1 Регистрация: 28.12.2018 Сообщений: 21
	04.03.2020, 07:06 [ТС]	4
	Сообщение было отмечено mobile как решение Решение Форма основана на таблице "Наименование". В ней внешние ключи остальных таблиц. Зависимости вводимых данных я уже настроил, т.е. если изменить "вид", то поменяются и специальность и задачи. Дело в том, что когда я ввожу новые данные, которых нет в таблице в помощью кода, указанного в первом посте, он создаёт новую строку в столбце, но не привязывает этот столбец к внешнему ключу, и поэтому и возникает ошибка, потому что без привязки внешнего ключа, он не видит эту новую запись. 0

Опции темы