Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 30.08.2017, 14:34   #1
klim8
Пользователь
 
Регистрация: 07.08.2016
Сообщений: 15
Репутация: 10
По умолчанию Как сделать чтобы Поле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 Кб, 4 просмотров)
klim8 вне форума   Ответить с цитированием
Старый 30.08.2017, 22:32   #2
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,021
Репутация: 741

skype: aleksandr.gryb
По умолчанию

Код:

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

__________________
Mailto: media.project@ukr.net
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107; ПриватБанк.UA
Aleksandr H. вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




05:49.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru