Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.08.2017, 13:34   #1
klim8
Пользователь
 
Регистрация: 07.08.2016
Сообщений: 23
По умолчанию Как сделать чтобы Поле2 реагировало на обновления(изменения) Поле1?

Сценарий:
1. ПолеСпец. Вводим "1" + нажимаем "Ввод";
2. Поле1. Цифра "1" попадает в Поле1;
3. Поле2. Цифра "1" из Поле1 суммируется с существующим значением из Поле2 (т.е. Поле2 + Поле1);

Код:
Private Sub cmb_1_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
                      Поле1 = cmb_1.Text
        End If
End Sub
    
    Private Sub Поле1_AfterUpdate()
        Поле1 = Поле1 + Поле1
    End Sub

ГИФка - ссылка

Вопрос
Как сделать чтобы Поле2 реагировало именно на появление новой цифры(не важно совпадает ли она с предыдущей цифрой) в Поле1 и потом выполнялась необходимая операция?
Т.е. главное соблюсти механику без изменения п.1 и п.2 сценария и кода для выполнения этого сценария.
Вложения
Тип файла: zip vpr_react_00.zip (24.1 Кб, 19 просмотров)
klim8 вне форума Ответить с цитированием
Старый 30.08.2017, 21:32   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Private Sub cmb_1_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
                      Поле1 = cmb_1.Text
                      Поле2 = Nz(Поле2, 0) + Nz(Поле1, 0)
        End If
End Sub
    
Private Sub Поле1_AfterUpdate()
    Поле2 = Nz(Поле2, 0) + Nz(Поле1, 0)
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сделать чтобы изменения в одной ячейке копировались на название листа Фонарик2 Microsoft Office Excel 4 23.08.2016 09:34
Как сделать так чтобы после изменения настроек стала активирована кнопка "Применить" ?? KWN, lnc Общие вопросы Delphi 7 04.12.2010 02:14
Как сделать чтобы изменения не сохранялись? Марк Охман БД в Delphi 3 02.11.2010 16:06
Как сделать так, что бы приложение не реагировало на Alt+Tab, Windows и Ctrl+Alt+Del? st6al Помощь студентам 0 27.12.2009 19:48
Какие изменения в системе нужно сделать чтобы установить ОС Linux как вторую операцио Ga-sergey Помощь студентам 7 09.04.2007 13:06