ник: ??????
Re[1]: Формы: как связать 2 комбобокса с одной подчиненной формой? поправленная процедурка. Заметьте, что я переименовал контрол подчиненной формы. Он теперь называется "fsubContact1". Чтобы access не путался на что именно ссылаюсь.
Public Sub FilterfsubContact()
If IsNull(Me![cboCompanyName]) = True And IsNull(Me![cboLastName]) = True Then
Me.fsubContact1.Form.RecordSource = "SELECT * FROM qryContact;"
Exit Sub
End If
If IsNull(Me![cboCompanyName]) = True Or IsNull(Me![cboLastName]) = True Then
MsgBox "Не заполнены необходимые данные"
Exit Sub
End If
Me.fsubContact1.Form.RecordSource = "SELECT * FROM qryContact WHERE [CompanyName] = " & Me![cboCompanyName] & " AND [LastName] =" & Me![cboLastName] & ";"
End Sub