在一个查询表中，另增加了一个窗体，如果要在窗体中设置查询出来的数量小于0变成红色如何设置？

如果是数据表窗体 使用条件格式

http://www.accessoft.com/article-show.asp?id=11066

http://www.accessoft.com/article-show.asp?id=9072

如果是连续窗体 需要在代码中设置 参考如下的代码

    Dim ctl As Control
    For Each ctl In Me
        If ctl.Name = "控件名" Then
            ctl.FormatConditions.Delete
            ctl.FormatConditions.Add acExpression, , "条件"
            ctl.FormatConditions(0).BackColor = vbGreen
    
            ctl.FormatConditions.Add acExpression, , "条件2"
            ctl.FormatConditions(1).BackColor = vbRed
            
            ctl.FormatConditions.Add acExpression, , "条件3"
            ctl.FormatConditions(2).BackColor = vbYellow
           
        End If
    Next