БД владельцы и авто

Private Sub Form_Current()
Me.ПолеСоСписком2.RowSource="select*from tbl"
Me.ПолеСоСписком2.Requery
End Sub
 
Private Sub ПолеСоСписком0_AfterUpdate()
Me.ПолеСоСписком2.RowSource="select*from tbl where класс=" & me.ПолеСоСписком0
' если [класс] текст  me.ПолеСоСписком0 обрамить апострофами: ..класс='" &  me.ПолеСоСписком0 & "'"
Me.ПолеСоСписком2.Requery
End Sub

Private Sub ПолеСоСписком0_AfterUpdate()
Dim sSQL As String
    If me.ПолеСоСписком0.ListIndex > -1 Then  ' Значение выбрано
        ' если [класс] текст  me.ПолеСоСписком0 обрамить апострофами: ..класс='" &  me.ПолеСоСписком0 & "'"
        sSQL  = "select * from tbl where класс = " & me.ПолеСоСписком0
    Else ' Значение НЕ выбрано
         sSQL  = "select * from tbl"
    End If
    Me.ПолеСоСписком2.RowSource= sSQL
    Me.ПолеСоСписком2.Requery  ' не обязатеельно ... на смену RowSource среагировать должен.
End Sub

Private Sub СписокКлассов_AfterUpdate()
 СписокУчеников.Requery
End Sub