Обновление combobox на основе другого combobox через запрос

Question

У меня есть несколько комбинированных ящиков (CB), заполняющихся из моей базы данных доступа. Все они вытаскивают из одной таблицы и используют один и тот же скрытый первичный ключ из таблицы. Когда я выбираю значение из одного из CB, я бы хотел, чтобы остальные обновлялись со связанным значением на основе соответствующего первичного ключа.

Возможно ли это?

Я пытался использовать вариации следующих на некоторое время теперь без успеха:

Dim strSQL As String 
strSQL = "SELECT gsr_id FROM task WHERE task_wid = " & Me.cboTask.Column(0) 
Me.cboGSRTask.Section = CurrentDb.OpenRecordset(strSQL) 

Debug.Print "SELECT gsr_id FROM task WHERE task_wid = " & Me.cboTask.Column(0) 

Спасибо.

Answer 1

Если вы открываете набор записей, вам нужно прочитать значение из него, вы не можете использовать набор записей как значение. Я предполагаю, что вы ищете:

Dim strSQL As String 
Dim RS As Recordset 

strSQL = "SELECT gsr_id FROM task WHERE task_wid = " & Me.cboTask.Column(0) 
Set RS = CurrentDb.OpenRecordset(strSQL) 

' This assumes that gsr_id is the bound column of cboGSRTask 
Me.cboGSRTask = RS!gsr_id 
RS.Close 

Или вместо того, чтобы все вышеперечисленное, используя DLookup():

Me.cboGSRTask = DLookup("gsr_id", "task", "task_wid = " & Me.cboTask.Column(0)) 

Или это может быть даже проще добавить gsr_id к источнику междурядий cboTask (в качестве столбца с шириной = 0) и использовать этот столбец для назначения cboGSRTask.