Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Скорп
ну а смысл???
ну будет у меня отдельная таблица: (это цветность печати в полиграфии)
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 ' Конец блока [Формат листовки] = "Нестандарт"