Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Подстанов...

Тема: Подстановка значений в зависимости от условий

15.06.2007 21:02:02

SergeApp1

30 сообщения

Тема: Подстановка значений в зависимости от условий

Задача: В зависимости от того, какой значение в Вычисляемом поле [СНачала] должно ставится соответствующее значение в поле [Скидка].
Написал такой код:

Private Sub СНачала_AfterUpdate()

Dim strVal As String
strVal = My![Скидка]
Dim intMyInteger As Integer, intNew As Integer, _
strVal As String
intNew = UCase$(Mid$(intMyInteger, 1, 1))
If intNew > "0" And intNew < "1000" Then
strVal = "20%"
ElseIf intNew > "999" And intNew < "3000" Then
strVal = "24%"
ElseIf intNew > "2999" And intNew < "5000" Then
strVal = "28%"
ElseIf intNew > "4999" Then
strVal = "32%"
Else
strVal = 0
End If

End Sub

Конечно сделал ошибки, и не работает, может быть я вообще взял не те переменные?
Подскажите...

P.S. События в формах
Автор: SergeApp от 20.02.2002 10:31:20 Источник ...

15.06.2007 21:02:02

All

4316 сообщения

RE: Подстановка значений в зависимости от условий

Это несколько похоже на тест-шутку "найди все несуразности" :)
А если серьезно,то
Предлагаю поставить остановку на входе процедуры и пошагово просмотреть как меняются значения переменных.
Можно конечно и расписать все, но лучше самостоятельно, это поможет потом избегать подобных ошибок

И еще совет - не увлекайтесь автоматическим приведением типов данных

P.S. События в формах
Автор: Николай от 0:00:00 Источник ...

15.06.2007 21:02:03

All