Событие при выборе из списка

[superpsih]

Есть две таблицы. В одной таблице поле с подстановкой имён из первой таблицы. Как сделать так, чтобы при выборе одной из позиций (например, test1) менялось значение в поле "logic" таблицы 1 для этого имени (см. скриншот)?

[Aleksandr H.]

те. раз выбрал Тест1 поле Логис стало True, опять выбрал Тест1 - поле Логис стало False?

Private Sub name_choose_AfterUpdate()
    Dim strSql As String
    Dim p As Boolean
    strSql = "select logic from Table1 where [name_]='" & Form_Table2.name_choose.Text & "'"
    p = CurrentProject.Connection.Execute(strSql).Fields(0)
    strSql = "UPDATE [Table1] set logic = " & (not P) & " WHERE [name_] = '" & Form_Table2.name_choose.Text & "'"
    DoCmd.SetWarnings False
    Debug.Print strSql
    DoCmd.RunSQL (strSql)
    DoCmd.SetWarnings True
End Sub

[superpsih]

Опять его не выбрать - оно выбирается один раз. Я забыл на него поставить уникальность. Сейчас попробую ваш код.

[superpsih]

Код работает. Не могли бы вы немного разъяснить что к чему:
1.

 "select logic from Table1 where [name_]='" & Form_Table2.name_choose.Text & "'"

Почему выбирается строка с именем, а не с ID? Ведь у нас в поле name_choose отображается по идее два параметра (ID и name_), причём первый параметр скрыт (ID). Т.е., я думал что должно быть

 "select logic from Table1 where [ID]='" & Form_Table2.name_choose.Value & "'"

2. Как переделать код чтобы изменялось значение только один раз (на yes)?
Так

  strSql = "UPDATE [Table1] set logic = " & True & "

?
3. Зачем нужна строка

 Debug.Print strSql

?

[Aleksandr H.]

Сообщение от superpsih

Код работает. Не могли бы вы немного разъяснить что к чему:
1.

 "select logic from Table1 where [name_]='" & Form_Table2.name_choose.Text & "'"

Почему выбирается строка с именем, а не с ID? Ведь у нас в поле name_choose отображается по идее два параметра (ID и name_), причём первый параметр скрыт (ID). Т.е., я думал что должно быть

 "select logic from Table1 where [ID]='" & Form_Table2.name_choose.Value & "'"

можно и так сделать. 2 варианта решения. Только

 "select logic from Table1 where [ID]=" & Form_Table2.name_choose

Сообщение от superpsih

2. Как переделать код чтобы изменялось значение только один раз (на yes)?
Так

  strSql = "UPDATE [Table1] set logic = " & True & "

strSql = "UPDATE [Table1] set logic = True WHERE [name_] = '" & Form_Table2.name_choose.Text & "'"

или

strSql = "UPDATE [Table1] set logic = True WHERE [ID] = " & Form_Table2.name_choose

Сообщение от superpsih

3. Зачем нужна строка

 Debug.Print strSql

?

Для меня Я смотрел какую sql строку сформировал. Можно удалить

[superpsih]

Всё понятно, Спасибо!