ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / переход в предыдущее поле формы
24 сообщений из 24, страница 1 из 1
переход в предыдущее поле формы
    #32623528
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
как перейти в предыдущее поле формы не используя shift+tab?
в следующее поле можно уйти по KeyCode = vbKeyReturn, а в предыдущее как?
...
Рейтинг: 0 / 0
27.07.2004, 15:19:27
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623537
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PA
Участник
Код: plaintext
1.
Set ctrlPrev = Screen.PreviousControl
ctrlPrev.SetFocus
...
Рейтинг: 0 / 0
27.07.2004, 15:23:07
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623551
Фотография kedzo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kedzo
Участник
Screen.PreviousControl.SetFocus
...
Рейтинг: 0 / 0
27.07.2004, 15:27:02
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623561
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Программно "нажать" shift+tab

SendKeys "+{TAB}"
...
Рейтинг: 0 / 0
27.07.2004, 15:29:33
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623566
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
не тот случай :)) хотя к поставленномы вопросу подходит без проблем.

уточню проблему: есть несколько полей на форме, вот как сделать так, чтобы например, по нажатию кнопки, курсор уходил бы влево на предыдущий контрол?
...
Рейтинг: 0 / 0
27.07.2004, 15:30:13
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623583
Фотография kedzo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kedzo
Участник
я так никогда не делал, но думаю это можно сделать так:
- создать свою коллекцию контролов
- заполнить ее в том порядке теми контролами, которыми нужно
- а дальше можно перемещаться по порядковым номерам коллекции и устанавливать фокус на нужный...
...
Рейтинг: 0 / 0
27.07.2004, 15:33:31
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623603
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Используй одновременно

Screen.PreviousControl.SetFocus
SendKeys "+{TAB}"
...
Рейтинг: 0 / 0
27.07.2004, 15:38:28
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623607
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
kedzoя так никогда не делал, но думаю это можно сделать так:
- создать свою коллекцию контролов
- заполнить ее в том порядке теми контролами, которыми нужно
- а дальше можно перемещаться по порядковым номерам коллекции и устанавливать фокус на нужный...

мне кажется проблема должна проще решаться, наподобии вот этого "Программно "нажать" shift+tab

SendKeys "+{TAB}""

только мне так делать нельзя :(
...
Рейтинг: 0 / 0
27.07.2004, 15:39:01
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623609
Фотография _bob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_bob
Участник
dim ctl1 as control, ctl2 as control, tbindex1 as long, tbindex2 as long
tbindex2 = 0
tbindex1 = screen.activecontrol.tabindex
for each ctl1 in me.controls
if ctl1.tabindex<tbindex1 and ctl1.tabindex>tbindex2 then
ctl2 = ctl1
tbindex2 = ctl2.tabindex
end if
next ctl1
ctl2.setfocus
...
Рейтинг: 0 / 0
27.07.2004, 15:39:18
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623619
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Почему нельзя
SendKeys "+{TAB}"

Поясни
...
Рейтинг: 0 / 0
27.07.2004, 15:41:31
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623636
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
Roma RПочему нельзя
SendKeys "+{TAB}"

Поясни
мне нужно выходить из контрола в предыдущий контрол по левой стрелке, если
в контроле тест, то переход на предыдущий контрол срабатывает нормально, а если там нет ничего то, переход по стрелке (+ вот это SendKeys "+{TAB}") дают переход уже через один контрол.
...
Рейтинг: 0 / 0
27.07.2004, 15:46:20
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623649
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Ты ж писал, что тебе кнопку жать надо!
...
Рейтинг: 0 / 0
27.07.2004, 15:48:51
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623663
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
я это к примеру приводил...
хотя пример оказался неподходящим
...
Рейтинг: 0 / 0
27.07.2004, 15:51:47
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623673
Alexanderik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexanderik
Участник
Обьяни поподробней что ты хочешь ?
Переход на предыдущий контрол по нажатию LEftCursor, или при введении значения и подверждения Enter ?
...
Рейтинг: 0 / 0
27.07.2004, 15:56:07
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623677
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Вставь дополнительную проверку: если поле пустое, то SendKeys не выполнять
...
Рейтинг: 0 / 0
27.07.2004, 15:57:40
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623682
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
AlexanderikОбьяни поподробней что ты хочешь ?
Переход на предыдущий контрол по нажатию LEftCursor, или при введении значения и подверждения Enter ?

да! переход на предыдущий контрол по LEftCursor
...
Рейтинг: 0 / 0
27.07.2004, 15:59:12
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623698
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
Roma RВставь дополнительную проверку: если поле пустое, то SendKeys не выполнять
я как-то вообще с трудом понимаю почему курсор скачет через контрол. ведь по идее я перехвачиваю нажатие LEFT ARROW т.е. действие этой кнопки должно отмениться и выполниться все, что для этой кнопки понаписано.
...
Рейтинг: 0 / 0
27.07.2004, 16:04:27
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623703
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Попробуй это

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
If Nz(Me.ActiveControl.SelText, "") <> Nz(Me.ActiveControl.Text, "") Then
SendKeys "+{TAB}"
End If
End If
End Sub
...
Рейтинг: 0 / 0
27.07.2004, 16:05:51
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623732
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
faintкак перейти в предыдущее поле формы не используя shift+tab?
в следующее поле можно уйти по KeyCode = vbKeyReturn, а в предыдущее как?
KeyCode = vbKeyTab
Shift = acShiftMask

Почему так нельзя?
...
Рейтинг: 0 / 0
27.07.2004, 16:17:30
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623775
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
Владимир Саныч faintкак перейти в предыдущее поле формы не используя shift+tab?
в следующее поле можно уйти по KeyCode = vbKeyReturn, а в предыдущее как?
KeyCode = vbKeyTab
Shift = acShiftMask

Почему так нельзя?

может так и можно, но у меня обрабатывается только KeyCode = vbKeyTab, т.е. перескакиваю в след-й контрол. одновременное нажатие shift не обрабатывается
...
Рейтинг: 0 / 0
27.07.2004, 16:26:01
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623781
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
faintможет так и можно, но у меня обрабатывается только KeyCode = vbKeyTab, т.е. перескакиваю в след-й контрол. одновременное нажатие shift не обрабатывается
Не нажатие, а я имел в виду написать в программе следующей строчкой:

Shift = acShiftMask
...
Рейтинг: 0 / 0
27.07.2004, 16:28:28
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623786
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
If KeyCode = vbKeyLeft Then
SendKeys "+{TAB}"
KeyCode = 0
End If
...
Рейтинг: 0 / 0
27.07.2004, 16:30:08
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623791
faint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faint
Участник
так и я про то, я тоже имел в виду "программное" нажатие
строка Shift = acShiftMask не помогает!
...
Рейтинг: 0 / 0
27.07.2004, 16:30:53
| Ответить | Цитировать | Написать  
переход в предыдущее поле формы
    #32623819
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Жалко.
...
Рейтинг: 0 / 0
27.07.2004, 16:38:44
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / переход в предыдущее поле формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32623561&tid=1672905]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 198ms
total:  346ms
созд. / загр.: 346ms
x
x
Закрыть


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