Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Условие в выражении / 8 сообщений из 8, страница 1 из 1
05.02.2003, 12:10
    #32101463
Олег Юрков
Олег Юрков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
Требуется вычислять значение в форме в зависимости от значения в другом поле. Например если в поле1="а", то значение в поле2=100/2,86, а если "б", то 100/3,13. Подскажите, пожалуйста, как это сделать, если можно, киньте пример...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2003, 13:17
    #32101529
RiliR
RiliR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
Например:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Field1_Change
    Select Case Field1.Value
    Case  "а" 
        Field2.Value = CStr( 100  /  2 . 86 )
    Case  "б" 
        Field2.Value = CStr( 100  /  3 . 13 )
    Case Else
        Field2.Value = ""
    End Select
End Sub


Хотя можно вместо Select Case использовать конструкцию If-Then-Else, это дело вкуса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2003, 13:25
    #32101540
Олег Юрков
Олег Юрков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
А не кинешь примерчик с If-Then-Else?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2003, 13:33
    #32101546
RiliR
RiliR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Field1_Change
    If Field1.Value =  "а"  Then
        Field2.Value = CStr( 100  /  2 . 86 )
    ElseIf Field1.Value =  "б"  Then
        Field2.Value = CStr( 100  /  3 . 13 )
    Else
        Field2.Value = ""
    End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2003, 13:41
    #32101554
RiliR
RiliR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
Можно еще и так:

Код: plaintext
1.
Field2.Value = IIf(Field1.Value =  "а" ,  100  /  2 . 86 ,  100  /  3 . 13 )


но только для двух вариантов.

Или так:

Код: plaintext
1.
Field2.Value = Switch(Field1.Value =  "а" ,  100  /  2 . 86 , Field1.Value =  "б" ,  100  /  3 . 13 , True, "")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2003, 13:58
    #32101568
Олег Юрков
Олег Юрков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
А писать это в свойствах поля1?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2003, 14:23
    #32101585
RiliR
RiliR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
Не понял. Ты про последние два варианта?
Их тоже в обработчиках событий (в модуле формы). Или смотря когда ты хочешь это дело обновлять.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2003, 15:40
    #32101654
Олег Юрков
Олег Юрков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие в выражении
Все заработало. Спасибо, RiliR.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Условие в выражении / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]