ник: CBETJIbIu
так пойдет?
Private Sub Form_Open(Cancel As Integer)
CancelInput = False
SQL = "select* from Склад"
If (Флажок186.Value = True) Then SQL = SQL & "where IsNull(Склад.ШтрихКод)"
поле_выбора.RecordSource = SQL
End Sub
а то он ругается на RecordSource. пишет "метод или компонент не найдн"