Активация ячейки на форме

@u_tarvo · Регистрация: 21.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте Форумчане!!!
Помогите пожалуйста облегчить работу по вводу данных в форме.
Проблема такая: на форме две ячейки (КодПростоя и Минут) и две кнопки (ВводСтроки и Выход)
Данные вносятся с бумаги. КодПростоя - поле со списком. Приходилось мышкой активировать сначала КодПростоя, после выбора кода двигать мышку в ячейку Минут, вводить значение и мышкой нажимать кнопку ВводСтроки.
Очень тяжело (много данных). Активировал TAB. Все стало через ENTER. Попроще, но после нажатия ВводСтроки не знаю как как сделать активной ячейку Ме.КодПростоя.
Подскажите пожалуйста. Спасибо!

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub ВводСтроки_Click()
If Len(Me.КодПростоя & "") = 0 Then MsgBox "Не указан код простоя": Exit Sub    '
If Len(Me.Минут & "") = 0 Then MsgBox "Не указана длительность простоя. Поставьте 0, если простоя по данной причине не было": Exit Sub    '
Me.Dirty = False
If DLookup("КодПростоя", "ЗапросПроверкаПовтораПростои") > 0 Then MsgBox "Повторяющиеся данные по простоям": Exit Sub
DoCmd.OpenQuery "ЗапросДобавлениеСтрокиВСтрокиПростои"
Me.Минут = Null
' Как активировать Me.КодПростоя????????
End Sub

@Волшебник 307 · 23.06.2013, 04:29

u_tarvo,
Поставить фокус.

@u_tarvo · 23.06.2013, 09:57 **[ТС]**

Сообщение от Волшебник 307

Поставить фокус.

А как это выглядит?

@ltv_1953 · 23.06.2013, 10:54

Me.КодПростоя.SetFocus

@u_tarvo · 23.06.2013, 11:33 **[ТС]**

Сообщение от ltv_1953

Me.КодПростоя.SetFocus

Спасибо! Функцию понял, работает!

А как прописать, чтобы открывался список, если ячейка со списком. Т.е. не только фокусироваться на ней, а еще и активировать.
Спасибо!

mobile · 23.06.2013, 12:38

@u_tarvo, если у вас действительно много данных для ввода, то по опыту, могу сказать, основные источники задержек это:
1. Выбор из списка кодов простоя. Если кодов немного и они могут поместиться на экране, то лучше создать надпись соответствия числовых значений кодов и текста кода, поместить ее на экран а вбивать числа. После нескольких попыток, вы запомните основные, наиболее часто повторяюшиеся значения и будете вбивать уже по памяти.
2. Необходимость нажимать кнопки для сохранения данных и ввода новой записи. Гораздо эффективней основать форму на таблице, сделать табличную подформу и набивать прямо в ней. Без всяких кнопок, просто переходя на новую запись.
3. Ответы на всякие сообщения мсгбоксов + проверка длукапами повторения ключевых полей. Не нужны эти мсгбоксы. Достаточно иметь невидимую надпись, которая загорается только при несоблюдении правил и опять становится невидимой после исправления. И проверку надо делать не на клике поля, а на событии До обновления (BeforeUpdate) записи.

По сабжу. Для открытия комбо надо, при получении фокуса полем, дать команду Me.ПолеСоСписком.Dropdown

@u_tarvo · 23.06.2013, 13:33 **[ТС]**

Сообщение от mobile

@u_tarvo, если у вас действительно много данных для ввода, то по опыту, могу сказать, основные источники задержек это:
1. Выбор из списка кодов простоя. Если кодов немного и они могут поместиться на экране, то лучше создать надпись соответствия числовых значений кодов и текста кода, поместить ее на экран а вбивать числа. После нескольких попыток, вы запомните основные, наиболее часто повторяюшиеся значения и будете вбивать уже по памяти.
2. Необходимость нажимать кнопки для сохранения данных и ввода новой записи. Гораздо эффективней основать форму на таблице, сделать табличную подформу и набивать прямо в ней. Без всяких кнопок, просто переходя на новую запись.
3. Ответы на всякие сообщения мсгбоксов + проверка длукапами повторения ключевых полей. Не нужны эти мсгбоксы. Достаточно иметь невидимую надпись, которая загорается только при несоблюдении правил и опять становится невидимой после исправления. И проверку надо делать не на клике поля, а на событии До обновления (BeforeUpdate) записи.

По сабжу. Для открытия комбо надо, при получении фокуса полем, дать команду Me.ПолеСоСписком.Dropdown

Огромное спасибо! Получается!

Данных очень много. Одна таблица -"Причины простоев" - 55кодов , вторая таблица - "Статистика по браку" -17х21ячейки (деталь Х кодбрака). Не все из них могут быть заполнеными (простои - штук 7-10, по браку зависит от линии, на которой красились и дефекты которые проявились. Поэтому при вводе даю оператору выбор конкретной позиции. А проверки провожу для исключения "человеческого фактора" (чтобы не было "12а" штук брака или "цу43" минут простоя) и повторов, которые в дальнейшем повлияют на расчеты.

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Волшебник 307 1396 / 331 / 45 Регистрация: 16.04.2013 Сообщений: 786 Записей в блоге: 2
	23.06.2013, 04:29
	u_tarvo, Поставить фокус. 1

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	23.06.2013, 10:54
	Me.КодПростоя.SetFocus 2

mobile 26825 / 14505 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	23.06.2013, 12:38
	@u_tarvo, если у вас действительно много данных для ввода, то по опыту, могу сказать, основные источники задержек это: 1. Выбор из списка кодов простоя. Если кодов немного и они могут поместиться на экране, то лучше создать надпись соответствия числовых значений кодов и текста кода, поместить ее на экран а вбивать числа. После нескольких попыток, вы запомните основные, наиболее часто повторяюшиеся значения и будете вбивать уже по памяти. 2. Необходимость нажимать кнопки для сохранения данных и ввода новой записи. Гораздо эффективней основать форму на таблице, сделать табличную подформу и набивать прямо в ней. Без всяких кнопок, просто переходя на новую запись. 3. Ответы на всякие сообщения мсгбоксов + проверка длукапами повторения ключевых полей. Не нужны эти мсгбоксы. Достаточно иметь невидимую надпись, которая загорается только при несоблюдении правил и опять становится невидимой после исправления. И проверку надо делать не на клике поля, а на событии До обновления (BeforeUpdate) записи. По сабжу. Для открытия комбо надо, при получении фокуса полем, дать команду Me.ПолеСоСписком.Dropdown 1