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

ник: час
Вот то, что в примере написано:
Me.cbo1- поле сосписком
Me.Check1 - флажок

Private Sub cbo1_GotFocus()
If Me.Check1 = -1 Then' Если флажок с галочкой
Me.cbo1.RowSource = "SELECT Код, Штрих, Наименование FROM TBL WHERE IsNull(Штрих) = -1 or штрих = 0 ORDER BY Штрих;"
Me.cbo1.Requery
' Если флажок без галочки
Else: Me.cbo1.RowSource = "SELECT * FROM TBL ORDER BY Наименование;"
End If
End Sub