ник: Скорп
ну в принципе частично проблему решил следующей конструкцией
Private Sub Пантоны_AfterUpdate()
If [Пантоны] = 1 Then
[Наценка за пантон] = 1
Else
If [Тираж] <= 1000 Then
[Наценка за пантон] = 1.5
Else
If [Тираж] <= 2000 Then
[Наценка за пантон] = 1.25
Else
If [Тираж] <= 3000 Then
[Наценка за пантон] = 1.2
Else
If [Тираж] <= 5000 Then
[Наценка за пантон] = 1.15
Else
If [Тираж] <= 10000 Then
[Наценка за пантон] = 1.1
Else
If [Тираж] <= 25000 Then
[Наценка за пантон] = 1.05
Else
If [Тираж] > 25000 Then
[Наценка за пантон] = 1
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
|
некрасиво?
