Указанный номер условия форматирования превышает число условий форматирования

@Soft17 · Регистрация: 15.01.2017

Студворк — интернет-сервис помощи студентам

При запуске формы на правиле "3" появляется ошибка:
7966. "Указанный номер условия форматирования превышает число
условий форматирования."

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Form_Load()
With Me.[TypePodPr].FormatConditions
.Delete
.Add acExpression, , "[TypePodPr] = 'ШБЛ'"
.Item(0).BackColor = RGB(191, 191, 191)
End With
 
With Me.[TypePodPr].FormatConditions
.Add acExpression, , "[TypePodPr] = 'ПРМ'"
.Item(1).BackColor = RGB(180, 198, 231)
End With
 
With Me.[TypePodPr].FormatConditions
.Add acExpression, , "[TypePodPr] = 'ПРБ'"
.Item(2).BackColor = RGB(255, 217, 102)
End With
 
With Me.TypePodPr.FormatConditions
.Add acExpression, , "TypePodPr = 'ВПР'"
.Item(3).BackColor = RGB(225, 217, 102)
End With
 
With Me.[TypePodPr].FormatConditions
.Add acExpression, , "[TypePodPr] = 'ОТВ'"
.Item(4).BackColor = RGB(255, 242, 204)
End With
 
With Me.[TypePodPr].FormatConditions
.Add acExpression, , "[TypePodPr] = 'РЕШ'"
.Item(5).BackColor = RGB(198, 224, 180)
End With
 
End Sub '  Form_Load()

mobile · 27.07.2018, 21:21

Не такой конечно контрастный, но все же цвет угадывается - вариант с подложенным свободным полем, создающим как-бы цветную рамку вокруг. Если применить более яркие цвета, то будет заметно

@Soft17 · 27.07.2018, 21:57 **[ТС]**

mobile,
А почему в этом случае все правила работают?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Form_Load()
        With Me.[vbr_ur_1].FormatConditions
        .Delete
        .Add acExpression, , "[vbr_ur_1]='Текст_1'"
        .Item(0).BackColor = RGB(84, 130, 53)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_2'"
        .Item(1).BackColor = RGB(169, 208, 142)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_3'"
        .Item(2).BackColor = RGB(198, 224, 180)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_4'"
        .Item(3).BackColor = RGB(255, 255, 204)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_5'"
        .Item(4).BackColor = RGB(217, 217, 217)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_6'"
        .Item(5).BackColor = RGB(255, 114, 103)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_7'"
        .Item(6).BackColor = RGB(232, 179, 178)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_8'"
        .Item(7).BackColor = RGB(255, 230, 153)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_9'"
        .Item(8).BackColor = RGB(166, 166, 166)
        End With
 
End Sub '  Form_Load

mobile · 27.07.2018, 23:36

Сообщение от Soft17

mobile,
А почему в этом случае все правила работают?

Что-то было с формой. Наверное в модуле формы. Если скопировать текст процедуры из колФормат_04.mdb, то все проходит без ошибок. Сжатие и импорт в новую чистую БД не помогли. Только вот как бы заново написать текст или скопировать его из здоровой формы. Колдунство

@Jamaica · 28.07.2018, 01:28

В первом листинге, аккурат в условии с индексом 3, имя поля не взято в прямоугольные скобки [].

@Soft17 · 28.07.2018, 17:03 **[ТС]**

Сообщение от mobile

Что-то было с формой

Ещё пример для статистики эксперимента.
Новый файл.
Форма ленточная. Новая.
Перенабрал код.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Private Sub Form_Load()
   ' *** *** *** *** *** ***
    ' ***  Поле "vr"   ***
    ' *** *** *** *** *** ***
    With Me.[vr].FormatConditions
    .Delete
    .Add acExpression, , "[vr] = '0'"
    .Item(0).BackColor = RGB(191, 191, 191)
    End With
    
    With Me.[vr].FormatConditions
    .Add acExpression, , "[vr] = '1'"
    .Item(1).BackColor = RGB(180, 198, 231)
    End With
    
    With Me.[vr].FormatConditions
    .Add acExpression, , "[vr] = '2'"
    .Item(2).BackColor = RGB(255, 217, 102)
    End With
    
'    With Me.[vr].FormatConditions
'    .Add acExpression, , "[vr] = '3'"
'    .Item(3).BackColor = RGB(255, 124, 128)
'    End With
    
 
'    With Me.[vr].FormatConditions
'    .Add acExpression, , "[vr] = '4'"
'    .Item(4).BackColor = RGB(255, 242, 204)
'    End With
    '
    'With Me.[vr].FormatConditions
    '.Add acExpression, , "[vr] = '5'"
    '.Item(5).BackColor = RGB(198, 224, 180)
    'End With
    
    ' *** *** *** *** *** *** ***
    ' ***  Поле "vbr_ur_1"    ***
    ' *** *** *** *** *** *** ***
    With Me.[vbr_ur_1].FormatConditions
        .Delete
        .Add acExpression, , "[vbr_ur_1]='Текст_1'"
        .Item(0).BackColor = RGB(84, 130, 53)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_2'"
        .Item(1).BackColor = RGB(169, 208, 142)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_3'"
        .Item(2).BackColor = RGB(198, 224, 180)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_4'"
        .Item(3).BackColor = RGB(255, 255, 204)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_5'"
        .Item(4).BackColor = RGB(217, 217, 217)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_6'"
        .Item(5).BackColor = RGB(255, 114, 103)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_7'"
        .Item(6).BackColor = RGB(232, 179, 178)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_8'"
        .Item(7).BackColor = RGB(255, 230, 153)
        End With
        
        With Me.[vbr_ur_1].FormatConditions
        .Add acExpression, , "[vbr_ur_1]='Текст_9'"
        .Item(8).BackColor = RGB(166, 166, 166)
        End With
    
End Sub

Закомментировал правила с которых начинает выпадать ошибка.

Для поля "vbr_ur_1" работают все правила.
Для поля "vr" на правиле "3" выпадает ошибка.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Jamaica 1323 / 541 / 112 Регистрация: 29.03.2016 Сообщений: 1,307
	28.07.2018, 01:28
	В первом листинге, аккурат в условии с индексом 3, имя поля не взято в прямоугольные скобки []. 1