Фильтр значений в подчиненной таблице

@Dimasterfrom4e · Регистрация: 27.09.2015

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

Добрый день.

Помогите пожалуйста правильно прописать код на кнопке Задать фильтр, чтобы правильно работал фильтр по подчиненной таблице в форме. Заранее спасибо))

mobile · 22.08.2016, 18:37

Чтобы задать фильтр надо знать к каким полям его применять. С датами вроде ясно, поля обозначены. А где поле локаций? А поле складских цен? Совсем не ясно, разъясняйте.

@Dimasterfrom4e · 22.08.2016, 19:25 **[ТС]**

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

Совсем не ясно, разъясняйте.

Извиняюсь, поле складских цен тут не нужно. А интервал локаций это поле ОтпСклдМст в подчиненной таблице.

mobile · 22.08.2016, 20:45

Измените процедуру filterSubForm на

Visual Basic

Function filterSubForm()
    Dim s, d1, d2
    
    s = "left([ОтпСклдМст] & string(10,'0'),10) between '" _
    & Left(Me.С & String(10, " "), 10) & "' And '" _
    & Left(Me.По & String(10, "я"), 10) & "'"
    
    d1 = Format(Nz(Me.дата1, 0), "\#mm\/dd\/yyyy\#")
    d2 = Format(Nz(Me.дата2, 100000), "\#mm\/dd\/yyyy\#")
    s = s & " And "
    s = s & "[ДатаПечати] between " & d1 & " And " & d2
 
    s = s & " And "
    s = s & "TimeValue([ВремяПечати]) between #" & Nz(Me.h1, 0) & ":" & Nz(Me.m1, 0) & ":00# " _
    & " and #" & Nz(Me.h2, 23) & ":" & Nz(Me.m1, 59) & ":59# "
        
    filterSubForm = s
End Function

@Dimasterfrom4e · 22.08.2016, 23:26 **[ТС]**

Огромное спасибо)))

Извиняюсь, а как мне расшифровать это??)) Разбираюсь потихоньку

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

Left(Me.С & String(10, " "), 10)

mobile · 22.08.2016, 23:33

Функция string создает строку из символа во втором параметре в количестве заданном первым параметром (вторая десятка относится к функции Left). Таким образом создается строка длиной десять символов, где недостающие символы справа заполняются параметром из string. Этот прием выравнивает сравниваемые строки по длине и заполняет недостающие символы. Число 10 взято как максимальное число знаков в поле ОтпСклдМст

@Dimasterfrom4e · 22.08.2016, 23:47 **[ТС]**

Спасибо вам))) жаль, что на курсах по access такого не было (там все по sql и запросам и ни капли vba...).
Буду стараться изучать еще и еще))

Фильтр значений в подчиненной таблице

Решение

Решение

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2016, 18:37	2
	Чтобы задать фильтр надо знать к каким полям его применять. С датами вроде ясно, поля обозначены. А где поле локаций? А поле складских цен? Совсем не ясно, разъясняйте. 1

@Dimasterfrom4e 9 / 8 / 0 Регистрация: 27.09.2015 Сообщений: 837
	22.08.2016, 19:25 [ТС]	3
	Сообщение от mobile Совсем не ясно, разъясняйте. Извиняюсь, поле складских цен тут не нужно. А интервал локаций это поле ОтпСклдМст в подчиненной таблице. 0

@Dimasterfrom4e 9 / 8 / 0 Регистрация: 27.09.2015 Сообщений: 837
	22.08.2016, 23:26 [ТС]	5
	Огромное спасибо))) Извиняюсь, а как мне расшифровать это??)) Разбираюсь потихоньку Сообщение от mobile Left(Me.С & String(10, " "), 10) 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2016, 23:33	6
	Сообщение было отмечено Dimasterfrom4e как решение Решение Функция string создает строку из символа во втором параметре в количестве заданном первым параметром (вторая десятка относится к функции Left). Таким образом создается строка длиной десять символов, где недостающие символы справа заполняются параметром из string. Этот прием выравнивает сравниваемые строки по длине и заполняет недостающие символы. Число 10 взято как максимальное число знаков в поле ОтпСклдМст 1

@Dimasterfrom4e 9 / 8 / 0 Регистрация: 27.09.2015 Сообщений: 837
	22.08.2016, 23:47 [ТС]	7
	Спасибо вам))) жаль, что на курсах по access такого не было (там все по sql и запросам и ни капли vba...). Буду стараться изучать еще и еще)) 0