Запрос на подсчет количества

@Stud73 · Регистрация: 25.03.2017

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

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

@Eugene-LS · 05.04.2018, 18:14

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

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

Увы - не возможно.
У вас невозможно создать связь между таблицами "Сотрудники" и "Премия" т.к. :
- В "Сотрудники" поле "Стаж" - Числовое
- В "Премия" поле "Стаж" - Текстовое

@Stud73 · 05.04.2018, 18:19 **[ТС]**

Я прекрасно понимаю, что это плохие таблицы. Но как то надо выкрутиться.. Преподаватель дал структуру. По крайней мере, если тип изменить на текстовый, то что то можно сделать?

@Eugene-LS · 05.04.2018, 18:38

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

то можно сделать?

Ну мне пришло в голову такое:
В "Сотрудники" поле "Стаж" - Числовое - принимаем не за индекс, а за кол-во лет стажа, тогда:

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
Public Function ПремияПоСтажу(lСтаж As Long) As Currency
'Возвращает премию по стажу
'--------------------------------------------------------------------------
Dim s As String
On Error GoTo ПремияПоСтажу_Err
    
    Select Case lСтаж
        Case Is < 1
            s = "до 1 года"
        Case 1 To 3
            s = "1-3 года"
        Case 4 To 5
            s = "4-5 лет"
        Case Is > 5
            s = "более 5 лет"
        Case Else
            s = "Стаж не известен!"
    End Select
 
    ПремияПоСтажу = DLookup("Премия", "Премия", "Стаж = '" & s & "'")
 
ПремияПоСтажу_Bye:
    Exit Function
 
ПремияПоСтажу_Err:
    'MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Function: ПремияПоСтажу in module: Module1", vbCritical, "Error in Application: " & Err.Source
    Err.Clear
    Resume ПремияПоСтажу_Bye
End Function

Результат прилагаю - смотрите запрос: Расчёт_Премий

@Eugene-LS · 05.04.2018, 18:46

Для "красоты" можно так:

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
Public Function ПремияПоСтажу(vСтаж As Variant) As Currency
'Возвращает премию по стажу
'--------------------------------------------------------------------------
Dim s As String
On Error GoTo ПремияПоСтажу_Err
    
    Select Case vСтаж
        Case Is < 1
            s = "до 1 года"
        Case 1 To 3
            s = "1-3 года"
        Case 4 To 5
            s = "4-5 лет"
        Case Is > 5
            s = "более 5 лет"
        Case Else
            s = "Стаж не известен!"
            ПремияПоСтажу = 0
            Exit Function
    End Select
 
    ПремияПоСтажу = DLookup("Премия", "Премия", "Стаж = '" & s & "'")
 
ПремияПоСтажу_Bye:
    Exit Function
 
ПремияПоСтажу_Err:
    ПремияПоСтажу = 0
    'MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Function: ПремияПоСтажу in module: Module1", vbCritical, "Error in Application: " & Err.Source
    Err.Clear
    Resume ПремияПоСтажу_Bye
End Function

@Stud73 · 05.04.2018, 18:51 **[ТС]**

Спасибо большое.. Слишком хорошо.. Преподаватель не оценит, к сожалению.. Я пробую сделать так:

Code
1
 IIf([Сотрудники]![Стаж] Between 1 And 3;1000;3000)

. Не очень хорошо, так как вторую проверку по стажу сделать не могу. Не подскажете, какую функцию можно использовать для этого (в Екселе есть ИЛИ). В Акцессе пока не нашла.
Сделала. Вложила еще один IIF.

@alvk · 06.04.2018, 08:51

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

так как вторую проверку по стажу сделать не могу

ну почему же

Visual Basic
1
IIf([Сотрудники]![Стаж] Between 1 And 3;1000;iif([Сотрудники]![Стаж] Between 4 And 10;2000;3000))

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов 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. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Stud73 9 / 9 / 2 Регистрация: 25.03.2017 Сообщений: 555
	05.04.2018, 18:19 [ТС]
	Я прекрасно понимаю, что это плохие таблицы. Но как то надо выкрутиться.. Преподаватель дал структуру. По крайней мере, если тип изменить на текстовый, то что то можно сделать? 0