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

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

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

Здравствуйте. Не могу составить запрос на подсчет количества программистов, чья премия составит от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

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

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 **[ТС]**

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

Код

 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))

@~~Eugene-LS~~ Заблокирован
	05.04.2018, 18:14	2
	Сообщение от Stud73 Не могу составить запрос на подсчет количества программистов, чья премия составит от1500 до 3000 руб. За таблицы не ругайте - такие дали. Увы - не возможно. У вас невозможно создать связь между таблицами "Сотрудники" и "Премия" т.к. : - В "Сотрудники" поле "Стаж" - Числовое - В "Премия" поле "Стаж" - Текстовое 1

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

@Stud73 9 / 9 / 2 Регистрация: 25.03.2017 Сообщений: 555
	05.04.2018, 18:51 [ТС]	6
	Спасибо большое.. Слишком хорошо.. Преподаватель не оценит, к сожалению.. Я пробую сделать так: Код IIf([Сотрудники]![Стаж] Between 1 And 3;1000;3000) . Не очень хорошо, так как вторую проверку по стажу сделать не могу. Не подскажете, какую функцию можно использовать для этого (в Екселе есть ИЛИ). В Акцессе пока не нашла. Сделала. Вложила еще один IIF. 0

	06.04.2018, 08:51

Опции темы