Условеи если пусто то вывести значения

@elfrom · Регистрация: 06.04.2012

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

Столкнулся с проблемой создания запроса,
________________________________________ ___________________

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub makeQueryFiltr()
    Dim s, sel, fromtbl, fromjoin, whr
    sel = "select f.КодТМЦ, f.Наименование FROM [_ТМЦ] f "
    whr = "where true "
    If Len(Me.ФИО_Сдающего & "") > 0 Then
        fromtbl = fromtbl & ",(select * from [_ФИО_ТМЦ]) fs "
        fromjoin = fromjoin & ",f inner join fs on f.КодТМЦ=fs.КодТМЦ "
        whr = whr & " and fs.КодФИО=" & Me.ФИО_Сдающего
    End If
    s = sel & vbCrLf & fromtbl & vbCrLf & fromjoin & vbCrLf & whr
    Debug.Print s
    CurrentDb.QueryDefs("Фильтр").SQL = s
    Me.lstFilter.RowSource = s
End Sub

________________________________________ __________________
не получается добавить еще одно условие в таблице _ФИО_ТМЦ помимо полей КодТМЦ и КодФИО имеются 2 поля ДатаСдачи и ДатаПолучени
данные запрос выводит все ТМЦ что закреплено на человеке, а нужно добавить условие что если ДатаСдачи пуста то только эти ТМЦ и выводить,

@V_Monomax · 16.12.2013, 18:41

это уже не запрос, а программный фильтр, вот так тяжеловато говорить, что надо, выложите вашу бд, и дело быстрее пойдет.

@elfrom · 17.12.2013, 06:42 **[ТС]**

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

это уже не запрос, а программный фильтр, вот так тяжеловато говорить, что надо, выложите вашу бд, и дело быстрее пойдет.

Вот пожалуйста в 2003 и в 2010

@ltv_1953 · 17.12.2013, 07:00

Замените строку 4 на: whr = "where IsNull(ДатаСписания) "

@elfrom · 17.12.2013, 09:01 **[ТС]**

подскажите пожалуйста последний вопрос, не получается организовать передачу ТМЦ в таблице
что получилось
выбирается Фамилия Сдающего и Фамилия Принимающего под ними выходит список ТМЦ
Выбираем запись в списке Сдающего 2жды кликаем появляется форма передачи
что не могу сделать
(в таблице _ФИО_ТМЦ) каким образом сделать чтобы получилась запись после передачи ТМЦ допустим у кодФИО 11 было КодТМЦ 31,32 он получи это ДатаПолучения 01.12.12

|КодФИО|КодТМЦ|ДатаПолучения|ДатаСписани я|
|__11___|__31___|_01.12.12_____|________ ____|
|__11___|__32___|_01.12.12_____|________ ____|
Пришло время передавать ТМЦ другому скажем КодФио 12 эти же ТМЦ 31,32 и передал это все 12.12.12 чтобы в таблице получить такие изменения и добавления
|КодФИО|КодТМЦ|ДатаПолучения|ДатаСписани я|
|__11___|__31__|_01.12.12_____|_12.12.12 ____|
|__11___|__32__|_01.12.12_____|_12.12.12 ____|
|__12___|__31__|_12.12.12_____|_________ ___|
|__12___|__32__|_12.12.12_____|_________ ___|

@ltv_1953 · 17.12.2013, 09:47

Такое можно сделать в специальной форме, в которой будет свободное поле со списком, для выбора того, кому передается ТМЦ. Но будет некоторая нелогичность - одно и то же ТМЦ будет списываться несколько раз.
Один из вариантов - типизировать операции, оставить только дату проведения операции, а передачу проводить также двумя операциями Возврат (от 1-го) и Выдача (2-му). Измененная так база во вложении.

@elfrom · 19.12.2013, 13:19 **[ТС]**

решил несколько сложнее и муторнее повесил на кнопку процедуру открытия формы которая вносит изменения в существующую запись затем закрывается открывается еще одна форма которая добавляет еще одну запись и закрывается тем самым что нужно было достигнуто

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@V_Monomax 1406 / 1260 / 20 Регистрация: 09.08.2011 Сообщений: 2,319 Записей в блоге: 1
	16.12.2013, 18:41
	это уже не запрос, а программный фильтр, вот так тяжеловато говорить, что надо, выложите вашу бд, и дело быстрее пойдет. 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	17.12.2013, 07:00
	Замените строку 4 на: whr = "where IsNull(ДатаСписания) " 1

@elfrom 1 / 1 / 0 Регистрация: 06.04.2012 Сообщений: 65
	19.12.2013, 13:19 [ТС]
	решил несколько сложнее и муторнее повесил на кнопку процедуру открытия формы которая вносит изменения в существующую запись затем закрывается открывается еще одна форма которая добавляет еще одну запись и закрывается тем самым что нужно было достигнуто 0