Изменение набора значений поля со списком по выбранному значению другого Поля со списком

[zybrra]

Добрый день! Есть форма frmGKS в ней содержится подчиненная форма frmGKSFio, где есть два поля со списком. Суть работы полей: первое поле со списком имеет 2 значения- ЛИК и ЛГК, в зависимости от выбранного значения в этом поле должно автоматически меняться значения во втором поле- № этих самых ЛИК или ЛГК.
Это бы все работало! Но проблема заключается еще в том, что второе поле со списком должно выводить № ЛИК или ЛГК в зависимости от Id клиента, который выбран в данной записи.
При нажатии второго поля со списком выходит окно для ввода этого Id клиента, т.е. вба его почему-то не видит!

[zybrra]

Private Sub Form_Current()

a = Form_frmGKSFio.IdFIO
strSQL = " SELECT tblLik.[№], tblLik.IdFIO " & _
" FROM tblLik " & _
" WHERE (((tblLik.idFIO) Like a))" & _
"Order BY tblLik.№"

Pole55.RowSource = strSQL
Pole55.Requery
End Sub

[zybrra]

Вот ошибка! При этом, если открывать форму как самостоятельную, а не подчиненную, то все работает!

[zybrra]

https://yadi.sk/i/OUAWUz6WyJvEH

[shanemac51]

как минимум

Private Sub Form_Current()

a = Form_frmGKSFio.IdFIO
strSQL = " SELECT tblLik.[№], tblLik.IdFIO " & _
" FROM tblLik " & _
" WHERE (((tblLik.idFIO) Like " & a & "))" & _
" Order BY tblLik.№"

Pole55.RowSource = strSQL
Pole55.Requery
End Sub

[zybrra]

shanemac51,
Спасибо! Заработало! Я весь день мучаюсь!