Условное форматирование

@~~Спрашивающий~~ · 10.12.2013, 21:44. **Показов** 3240. **Ответов** 12

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

Добрый вечер! Подскажите, каким образом можно реализовать перекрашивание полей в форме по условию если в дате разность 6 месяцев. То есть с помощью кода VBA было бы так:

Visual Basic

1	DateDiff("m", Date, Me.Ïîëå291.Value, vbMonday)

Получаем к примеру "6" месяцев между сегодня и датой в поле291. Как к примеру задать в "Условном форматировании", понять не могу.

@Андрэич · 10.12.2013, 22:14

Вместо запятой - точка с запятой (и поля - в квадратные скобки, без Me и Value и 2 вместо vbMonday)

???

Добавлено через 8 минут
и без vbMonday

Добавлено через 1 минуту
Упс, апаздал... )

@~~Спрашивающий~~ · 11.12.2013, 10:21 **[ТС]**

Андрэич, Есть N количество полей и 1000 записей. Я не могу понять как в условном форматирование программе задать условие, что есть разность 6 месяцев, тогда закрасить поле. В VBA выглядело бы так:

Visual Basic

Set Rec = CurrentDb.OpenRecordset("Таблица")
    For i = 1 To Rec.RecordCount
        If DateDiff("m", Date, Me.Ïîëå291.Value, vbMonday) = 6 Then
            'Что-то делаем
        End If
        Rec.MoveNext
    Next i

Добавлено через 2 часа 43 минуты
Ни кто не подскажет ?

mobile · 11.12.2013, 10:31

Попробуйте записать выражение в УФ

Visual Basic

1	DateDiff("m"; [Поле291]; Date()) >= 6

@Igor_1974 · 11.12.2013, 10:42

Visual Basic

1	[fDate]>Date()-30 And [fDate]<Date()

в данном примере Условное форматирование работает с месяцем.

в вашем случае надо написать в Условное форматирование поля с датой:

Visual Basic

1	[fDate]>Date()-180 And [fDate]<Date()+180

fDate -имя вашего поля с датой
второе условие мне кажется странным, но у вас так задача постановлена.
Пример в вложении.

@Agapov_stas · 11.12.2013, 10:57

А что за форма хоть? Табличная, одиночная, ленточная?

Добавлено через 8 минут
Добавлю, что еще необходимо условие с Year().
Иначе выдаст все записи с месяцем всех годов, не так ли?

@~~Спрашивающий~~ · 11.12.2013, 11:38 **[ТС]**

mobile, Ваш вариант именно то, что было нужно! Спасибо Вам огромное!

Добавлено через 14 минут
Можно дополнительный вопрос, а как добавить к условию:

Visual Basic

1	DateDiff("m"; [Поле291]; Date()) >= 6

Исключить слово из списка "Закупка", то есть оставить только продажа и условие. Исключив все с текстом "Закупка", в поле "Товар".

Добавлено через 2 минуты
То есть закрасить только поля которые содержат слово "Продажа", а пропустить слово "Закупка" в поле "Товар".

@Agapov_stas · 11.12.2013, 11:40

AND InStr(1,Товар,"Продажа")>0

@~~Спрашивающий~~ · 11.12.2013, 11:46 **[ТС]**

Visual Basic

1	DateDiff("m"; [Поле291]; Date()) >= 6 AND InStr(1,Товар,"Продажа")>0

Ошибка синтаксиса.

@Agapov_stas · 11.12.2013, 11:53

Сообщение от Спрашивающий

Ошибка синтаксиса.

DateDiff("m"; [Поле291]; Date()) >= 6 AND InStr(1;[Товар];"Продажа")>0

@~~Спрашивающий~~ · 11.12.2013, 12:12 **[ТС]**

Agapov_stas, Странно теперь вообще не красит.

mobile · 11.12.2013, 12:18

Сообщение от Спрашивающий

закрасить только поля которые содержат слово "Продажа", а пропустить слово "Закупка" в поле "Товар".

Visual Basic

1	DateDiff("m"; [Поле291]; Date()) >= 6 AND [Товар]="Продажа"

@Agapov_stas · 11.12.2013, 12:20

Сообщение от Спрашивающий

Странно теперь вообще не красит.

Видимо нет удовлетворяющих условию..

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	10.12.2013, 22:14	2
	Вместо запятой - точка с запятой (и поля - в квадратные скобки, без Me и Value и 2 вместо vbMonday) ??? Добавлено через 8 минут и без vbMonday Добавлено через 1 минуту Упс, апаздал... ) 1

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	11.12.2013, 10:57	6
	А что за форма хоть? Табличная, одиночная, ленточная? Добавлено через 8 минут Добавлю, что еще необходимо условие с Year(). Иначе выдаст все записи с месяцем всех годов, не так ли? 2

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	11.12.2013, 11:40	8
	AND InStr(1,Товар,"Продажа")>0 1

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	11.12.2013, 11:53	10
	Сообщение от Спрашивающий Ошибка синтаксиса. DateDiff("m"; [Поле291]; Date()) >= 6 AND InStr(1;[Товар];"Продажа")>0 0

@~~Спрашивающий~~ Заблокирован
	11.12.2013, 12:12 [ТС]	11
	Agapov_stas, Странно теперь вообще не красит. 0

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	11.12.2013, 12:20	13
	Сообщение от Спрашивающий Странно теперь вообще не красит. Видимо нет удовлетворяющих условию.. 1