ДА/НЕТ или дата в отчете

@admipost · Регистрация: 01.06.2016

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

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

@Eugene-LS · 24.08.2019, 20:58

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

и "дата отправки" из соответствующего поля формы

А если и там пусто???

@Eugene-LS · 24.08.2019, 21:11

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

как сделать так, чтобы при наличии данных ...

Первое что пришло в голову:

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
Public Function GetSNILS(vSNILS As Variant, vSendDate As Variant) As String
'Возвращает текстовое значение для поля SNILS
'----------------------------------------------------------------
'как сделать так, чтобы при наличии данных, в поле отчета выдавалась фраза "в наличии", _
    а в случае отсутствия информации - надпись "запрос отправлен" и "дата отправки" из соответствующего поля формы
'----------------------------------------------------------------
 
On Error GoTo GetSNILS_Err
    If IsNull(vSNILS) = False Then
        GetSNILS = "В наличии"
        Exit Function
    End If
 
'Дальше : vSNILS= Null
    If IsDate(vSendDate) Then
        GetSNILS = "Запрос отправлен: " & Format(vSendDate, "dd.mm.yyyy")
    Else
        GetSNILS = "N/D ???"
    End If
 
GetSNILS_End:
    On Error Resume Next
    Err.Clear
    Exit Function
 
GetSNILS_Err:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Function GetSNILS.", _
        vbCritical, "Произошла ошибка!"
    Err.Clear
    Resume GetSNILS_End
 
End Function

@admipost · 24.08.2019, 21:13 **[ТС]**

а если и там пусто, то "нет"

@Eugene-LS · 24.08.2019, 21:16

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

а если и там пусто, то "нет"

Тогда вместо:
"N/D ???" - напишите "нет" ...

@admipost · 24.08.2019, 21:59 **[ТС]**

Да я понял )))

Добавлено через 10 секунд
спасибо большое

@Eugene-LS · 24.08.2019, 22:11

admipost, или можно такое выражение в запросе:

SQL
1
IIf(IsNull([снилс])=FALSE;"В наличии";IIf(IsDate([снилс запрос отправлен])=TRUE;"Запрос отправлен: " & Format([снилс запрос отправлен];"dd.mm.yyyy");"Нет"))

...
Но это на любителя ...

@Capi · 24.08.2019, 22:33

Сообщение от Eugene-LS

SQL
1
IIf(IsNull([снилс])=FALSE;"В наличии";...

Зачем из SQL вызывать функцию VBA, если без этого можно прекрасно обойтись?

SQL
1
=IIf(снилс IS NOT NULL;"В наличии";...

Сообщение от Eugene-LS

...в запросе:

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

@Eugene-LS · 24.08.2019, 22:49

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

Зачем из SQL вызывать функцию VBA, если без этого можно прекрасно обойтись?

Ну так уж получилось ...
Бывает ...

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

Я скопировал из QBE для простоты восприятия читающим, как я это понимаю - это вы уже так исправили ...

Capi, как приятно критиковать и править уже кем то написанное!
Isn't it !?

Добавлено через 7 минут
Capi, ну не любитель я длиннных IFF ... в запросах.
Не любитель ....

Может зря, - посмотрим ...

@Capi · 24.08.2019, 23:09

Eugene-LS,

К сожалению, вынуждена констатировать, что Вы лжете.
Ваш текст не изменен ни на йоту.
Добавление мною обрамляющих тегов никак не повлияло на содержание.

Эх, Вы...

@Eugene-LS · 24.08.2019, 23:13

Capi, BTW потестировал на процедуре сравнения скорости, ради интереса и общего развития.
Результат:
--------------------------------------------------
Тест-1 (50 000 повт.) работал: 00:00:31 - Capi (отредактированное выражение)
Тест-2 (50 000 повт.) работал: 00:00:24 - Eugene-LS (функция)

...
Очень неплохо и познавательно!

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

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

Ваш текст не изменен ни на йоту.

Это верно.
Но и я не солгал (с чего бы мне).
Вы его просто обрамили в тег SQL ...
Что наверное правильно - но смысл строки поменялся при этом .

@Eugene-LS · 24.08.2019, 23:17

Capi, спешу напомнить:

@Capi · 24.08.2019, 23:19

Каким же образом наличие тегов поменяло смысл?
Поясните, будьте любезны.

Код должен быть в тегах.

Вы сами написали, что это "в запросе".
А запросы - это SQL.

@Eugene-LS · 24.08.2019, 23:25

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

Вы сами написали, что это "в запросе".

Я имел ввиду в "построителе запросов" (QBE).
А похоже что ув. ТС в лёгкую строит SQL запросы ???

@Capi · 24.08.2019, 23:40

Значит, Вы пользовались построителем выражений для создания запроса?
Отсюда и точки с запятой. Ясно.

@Eugene-LS · 24.08.2019, 23:59

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

Значит, Вы пользовались построителем выражений для создания запроса?
Отсюда и точки с запятой. Ясно.

Совершенно "в дырочку"!
Ура! Косенсус найден ...

Ну построителем выражений не пользовался, но выдал инфу в удобоваримой для ТС форме (попытался).

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

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

К сожалению, вынуждена констатировать, что Вы лжете.

Осталось за вами ...
Хотя... Как говорят французы ...

@Capi · 25.08.2019, 00:06

Заявление "править уже кем то написанное", оказывается, не ложь?
Ну-ну...

@Eugene-LS · 25.08.2019, 00:21

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

Заявление "править уже кем то написанное", оказывается, не ложь?
Ну-ну...

Критиковать и править уже готовое всегда проще чем писать "с нуля".
Это верно, и я не утверждал обратного .

Добавлено через 9 минут
Capi, Вы, как всегда, во всём правы.
И давайте закончим этот некрасивый "обмен претензиями".
Если что - есть личка, а в Skype или Viber меня найти = 5 секунд.
Успехов!

@Capi · 25.08.2019, 00:33

И вот это тоже истинная правда. Да-да.

Сообщение от Eugene-LS

это вы уже так исправили ...

@Eugene-LS · 25.08.2019, 02:06

Capi, смотрите пожалуйста пост #12

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". 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. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@admipost 3 / 3 / 0 Регистрация: 01.06.2016 Сообщений: 341
	24.08.2019, 21:13 [ТС]
	а если и там пусто, то "нет" 0

@admipost 3 / 3 / 0 Регистрация: 01.06.2016 Сообщений: 341
	24.08.2019, 21:59 [ТС]
	Да я понял ))) Добавлено через 10 секунд спасибо большое 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	24.08.2019, 23:09
	Eugene-LS, К сожалению, вынуждена констатировать, что Вы лжете. Ваш текст не изменен ни на йоту. Добавление мною обрамляющих тегов никак не повлияло на содержание. Эх, Вы... 0

@Eugene-LS 13193 / 5889 / 1508 Регистрация: 05.10.2016 Сообщений: 16,517
	24.08.2019, 23:17
	Capi, спешу напомнить: Миниатюры 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	24.08.2019, 23:19
	Каким же образом наличие тегов поменяло смысл? Поясните, будьте любезны. Код должен быть в тегах. Вы сами написали, что это "в запросе". А запросы - это SQL. 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	24.08.2019, 23:40
	Значит, Вы пользовались построителем выражений для создания запроса? Отсюда и точки с запятой. Ясно. 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	25.08.2019, 00:06
	Заявление "править уже кем то написанное", оказывается, не ложь? Ну-ну... 0

@Eugene-LS 13193 / 5889 / 1508 Регистрация: 05.10.2016 Сообщений: 16,517
	25.08.2019, 02:06
	Capi, смотрите пожалуйста пост #12 0

ДА/НЕТ или дата в отчете

Решение