Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Ленточная форма

Автор: Golden Hands 3.1.2007, 22:51

Есть ленточная форма с соответствующими записями. Есть ли способ изменить оформление элемента управления для конкретной записи?

Автор: Юдифь 4.1.2007, 03:23

Попробуй условное форматирование (меню формат)

Автор: MarinaK 4.1.2007, 06:44

http://forum.vingrad.ru/topic-81663.html

Автор: Юдифь 4.1.2007, 07:15

Ну и не права ты, MarinaK, как раз условным форматированием я и расскрасила строчки в разный цвет по условиию

Автор: MarinaK 5.1.2007, 01:51

Ну, скажем так, Акина промахнулся

Автор: Golden Hands 9.1.2007, 00:03

Юдифь, респект. Но проблема не решена. Не удалось закрасить поля для всех записей по разным условиям. Есть три логических поля: VIP, LUCKS, DROPING. Приоритет в таком же порядке. То есть, если записи соответствует DROPING=True, то закрасить в черный цвет. Если VIP=True - в желтый, VIP=True и DROPING=True - в черный цвет. Код: Код If Флажок29.Value = True Then       'VIP   If Family.FormatConditions.Count = 1 Then Family.FormatConditions.item(0).Delete   If Name_S.FormatConditions.Count = 1 Then Name_S.FormatConditions.item(0).Delete   If P_Name.FormatConditions.Count = 1 Then P_Name.FormatConditions.item(0).Delete   Family.FormatConditions.Add acExpression, , "[VIP]=-1"   Family.FormatConditions.item(0).BackColor = 8453888   Name_S.FormatConditions.Add acExpression, , "[VIP]=-1"   Name_S.FormatConditions.item(0).BackColor = 8453888   P_Name.FormatConditions.Add acExpression, , "[VIP]=-1"   P_Name.FormatConditions.item(0).BackColor = 8453888 End If If Флажок39.Value = True Then         'LUCKS   If Family.FormatConditions.Count = 1 Then Family.FormatConditions.item(0).Delete   If Name_S.FormatConditions.Count = 1 Then Name_S.FormatConditions.item(0).Delete   If P_Name.FormatConditions.Count = 1 Then P_Name.FormatConditions.item(0).Delete   Family.FormatConditions.Add acExpression, , "[Lucks]=-1"   Family.FormatConditions.item(0).BackColor = 12713983   Name_S.FormatConditions.Add acExpression, , "[Lucks]=-1"   Name_S.FormatConditions.item(0).BackColor = 12713983   P_Name.FormatConditions.Add acExpression, , "[Lucks]=-1"   P_Name.FormatConditions.item(0).BackColor = 12713983 End If If Флажок31.Value = True Then       'DROPING   If Family.FormatConditions.Count = 1 Then Family.FormatConditions.item(0).Delete   If Name_S.FormatConditions.Count = 1 Then Name_S.FormatConditions.item(0).Delete   If P_Name.FormatConditions.Count = 1 Then P_Name.FormatConditions.item(0).Delete   Family.FormatConditions.Add acExpression, , "[Droping]=-1"   Family.FormatConditions.item(0).BackColor = 10461087   Name_S.FormatConditions.Add acExpression, , "[Droping]=-1"   Name_S.FormatConditions.item(0).BackColor = 10461087   P_Name.FormatConditions.Add acExpression, , "[Droping]=-1"   P_Name.FormatConditions.item(0).BackColor = 10461087 End If If (Флажок29.Value = False) And (Флажок31.Value = False) And (Флажок39.Value = False) Then   If Family.FormatConditions.Count = 1 Then Family.FormatConditions.item(0).Delete   If Name_S.FormatConditions.Count = 1 Then Name_S.FormatConditions.item(0).Delete   If P_Name.FormatConditions.Count = 1 Then P_Name.FormatConditions.item(0).Delete   Family.FormatConditions.Add acExpression, , "[Vip]=0 and [Lucks]=0 and [Droping]=0"   Family.FormatConditions.item(0).BackColor = 16777215   Name_S.FormatConditions.Add acExpression, , "[Vip]=0 and [Lucks]=0 and [Droping]=0"   Name_S.FormatConditions.item(0).BackColor = 16777215   P_Name.FormatConditions.Add acExpression, , "[Vip]=0 and [Lucks]=0 and [Droping]=0"   P_Name.FormatConditions.item(0).BackColor = 16777215 End If

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)