Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Скорп ну а смысл??? ну будет у меня отдельная таблица: (это цветность печати в полиграфии) 0+0 1+0 1+1 2+0 2+1 2+2 3+0 3+1 3+2 3+3 4+0 4+1 4+2 4+3 4+4 и что? и подобных таблиц будет еще 50 штук, в которых ну ничего нет, кроме того, что я написал почему не использовать возможность, которую предоставляет access, а именно поле значений в кач-ве источника строк...??? ну что плохого в том, что код у меня имеет вид:
'****************** НЕСТАНДАРТ ************************** If [Формат листовки] = "Нестандарт" Then If [Размер] = "Меньше А4" Then If [Цветность листовки] = "1+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) ElseIf [Цветность листовки] = "1+1" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) ElseIf [Цветность листовки] = "2+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) ElseIf [Цветность листовки] = "2+1" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) + IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) ElseIf [Цветность листовки] = "2+2" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) * 2 ElseIf [Цветность листовки] = "3+0" Or [Цветность листовки] = "4+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) ElseIf [Цветность листовки] = "3+1" Or [Цветность листовки] = "3+2" Or [Цветность листовки] = "3+3" Or [Цветность листовки] = "4+1" Or [Цветность листовки] = "4+2" Or [Цветность листовки] = "4+3" Or [Цветность листовки] = "4+4" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+4 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) End If [Стоимость печати листовок1] = ([Виртуальный тираж по А4] * [Цена за единицу листовки]) * [Тиражность листовок] ElseIf [Размер] = "Меньше А3" Then If [Цветность листовки] = "1+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2 ElseIf [Цветность листовки] = "1+1" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2 ElseIf [Цветность листовки] = "2+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2 ElseIf [Цветность листовки] = "2+1" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2 + IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2 ElseIf [Цветность листовки] = "2+2" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 4 ElseIf [Цветность листовки] = "3+0" Or [Цветность листовки] = "4+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А3]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) ElseIf [Цветность листовки] = "3+1" Or [Цветность листовки] = "3+2" Or [Цветность листовки] = "3+3" Or [Цветность листовки] = "4+1" Or [Цветность листовки] = "4+2" Or [Цветность листовки] = "4+3" Or [Цветность листовки] = "4+4" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+4 А3]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) End If [Стоимость печати листовок1] = ([Виртуальный тираж по А3] * [Цена за единицу листовки]) * [Тиражность листовок] ElseIf [Размер] = "Больше А3" Then If [Цветность листовки] = "1+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) ElseIf [Цветность листовки] = "1+1" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) * 2 ElseIf [Цветность листовки] = "2+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) ElseIf [Цветность листовки] = "2+1" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) + IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) ElseIf [Цветность листовки] = "2+2" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) * 2 ElseIf [Цветность листовки] = "3+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) ElseIf [Цветность листовки] = "3+1" Or [Цветность листовки] = "3+2" Or [Цветность листовки] = "3+3" Or [Цветность листовки] = "4+1" Or [Цветность листовки] = "4+2" Or [Цветность листовки] = "4+3" Or [Цветность листовки] = "4+4" Then MsgBox "Нельзя печатать на А2ф 3+1, 3+2, 3+3, 4+1, 4+2, 4+3 и 4+4!!!", vbInformation, "СИСТЕМА КОНТРОЛЯ ВВОДА ИНФОРМАЦИИ" Exit Function ElseIf [Цветность листовки] = "4+0" Then [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) End If [Стоимость печати листовок1] = [Виртуальный тираж по А2] * [Цена за единицу листовки] * [Тиражность листовок] End If End If ' Конец блока [Формат листовки] = "Нестандарт"
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.