03. Если Вас не устраивает однотипный цвет таблиц запросов, то использование этого метода позволит вам раскрасить отдельные поля запроса.
'==============================================================
' Установить формат поля
Private Sub butExecute_Click()
Dim dbs As Database, obj As Object
On Error GoTo 999
Set dbs = CurrentDb
Set obj = dbs.QueryDefs("Запрос 03").Fields("Сумма03")
SetFieldProperty obj, "Format", dbChar, "0.00;0.00;0.00;0[Red]"
Exit Sub
999:
MsgBox Err.Description, vbCritical, "Изменение поля"
Err.Clear
End Sub
'==============================================================
' Удалить формат поля
Private Sub butDelProp_Click()
Dim dbs As Database, obj As Object
On Error GoTo 999
Set dbs = CurrentDb
Set obj = dbs.QueryDefs("Запрос 03").Fields("Сумма03")
SetFieldProperty obj, "Format", dbChar, "0;0;0"
Exit Sub
999:
MsgBox Err.Description, vbCritical, "Удаление поля"
Err.Clear
End Sub
'==============================================================
' Установить свойство поля запроса
Private Sub SetFieldProperty(obj As Object, _
prpName As String, _
prpType As Integer, _
prpValue As Variant)
Dim prp As Variant
On Error GoTo 999
obj.Properties(prpName) = prpValue
obj.Properties.Refresh
MsgBox "Свойство изменено!", vbExclamation, "Свойства"
Exit Sub
999:
Err.Clear
Set prp = obj.CreateProperty(prpName, prpType, prpValue)
obj.Properties.Append prp
obj.Properties.Refresh
End Sub