Форумы HiProg.com - MS ACCESS, VBA, VB

ник: merseed
Re: Формы: как связать 2 комбобокса с одной подчиненной формой? я тут попытался что то написать

Option Compare Database
Option Explicit

Sub cboCompanyName_AfterUpdate()
Dim strCNRecord As String
strCNRecord = "SELECT * FROM qryContact " _
& " WHERE CompanyName = " _
& Me!cboCompanyName & ""
Me.RecordSource = strCNRecord
End Sub

Sub cboLastName_AfterUpdate()
Dim strLNRecord As String
strLNRecord = "SELECT * FROM qryContact " _
& " WHERE LastName = " _
& Me!cboLastName & ""
Me.RecordSource = strLNRecord
End Sub

ошибку не выдает, но при этом работает только первый комбобокс (cboCompanyName), при выборе значения из второго комбобокса (cboLastName) подчиненная форма обновляется (заметно как она "моргнула"), но не обновляется. То есть связь с первым комбобоксом не разрывается.