ник: Гоблин
Вот она в чем фишка! В списке логика видна как "Да"/"Нет". В условии if соответствующую колонку надо указывать как 0/-1, а в запросе на обновление как True/false
Блин, допер методом лабораторных тыков.
If Me.Список2.Column(3) = 0 Then
DoCmd.RunSQL "UPDATE Типы INNER JOIN [Совмещения типов] ON Типы.КодТипа = [Совмещения типов].КодТипаС SET Типы.Сбор = true WHERE ((([Совмещения типов].КодСовмещения)=[Forms]![Типы средств]![поле15]));"
Else
DoCmd.RunSQL "UPDATE Типы INNER JOIN [Совмещения типов] ON Типы.КодТипа = [Совмещения типов].КодТипаС SET Типы.Сбор = false WHERE ((([Совмещения типов].КодСовмещения)=[Forms]![Типы средств]![поле15]));"
End If
Me.Form.Refresh
Всем спасибо.