Как раскрасить значения подчиненой формы?

Пятница, 10 Января 2014 г. 11:36 + в цитатник

Проблема раскрасить значение ленточной подчененной формы.
Если допустим у столбца Available есть значение 0 то оно выкрашивается в красный цвет.

Пытался сделать как то так:

Dim sSQL As String
Dim rst1 As DAO.Recordset
'Получение значения подчиненой формы
sSQL = "SELECT * FROM [" & curProfileTab & "] Where [Terminal ID] like '" & s & "' and [Cycle Type] like '" & uslovie1$ & "'"
'Попытка раскрасить значение = 0 столбца Available 
With CurrentDb.OpenRecordset(sSQL)
     If .Fields(5) = 0 Then
     Forms![ATM_Balanse].Controls![Balansp].Form.P9.BackColor = 16777215
     Else
     Forms![ATM_Balanse].Controls![Balansp].Form.P9.BackColor = 2366701
     End If
End With