ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как отучить VBA прыгать по текстбоксам в аксессе при обновлении их значений?
5 сообщений из 5, страница 1 из 1
Как отучить VBA прыгать по текстбоксам в аксессе при обновлении их значений?
    #32560618
Фотография La_Sania
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
La_Sania
Участник
Привет!

У меня есть форма, на которой куча текстбоксов.
В них я ставлю значения из рекордсета так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
For Each fld In rstCustIds.fields
       If (((Me(fld.Name & "cb").Value))) Then
            Me(fld.Name).SetFocus
            Me(fld.Name).Locked = False
            Me(fld.Name).Text = "" & fld.Value
            Me("new" & fld.Name).SetFocus
            Me("new" & fld.Name).Locked = False
            Me("new" & fld.Name).Text = ""
        End If
    Next fld

Текстбоксов штук 30 - 40 и все они не умещаются на экране. Что бы увидеть не поместившиеся текстбоксы нужно скроллить мышкой вниз. Это нормально, так как информация в них не очень важна.

Но когда я помещаю информацию в текстбоксы, Аксесс сам скроллирует страницу вниз, что выглядит очень некрасиво и занимает кучу времени.
Как я понимаю, это происходит из-за того что вызывается <textbox>.setFocus .

Можно ли сделать так, что бы значения в этих текстобоксах обновлялись, но Аксесс не прыгал по текстбоксам и не скроллировал вниз страницу?


Спасибо,
Саня
...
Рейтинг: 0 / 0
14.06.2004, 18:26
| Ответить | Цитировать | Написать  
Как отучить VBA прыгать по текстбоксам в аксессе при обновлении их значений?
    #32560624
N_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
N_A
Участник
Почему .Text может подойдет так:
Код: plaintext
1.
2.
3.
4.
5.
For Each fld In rstCustIds.fields
       If (((Me(fld.Name & "cb").Value))) Then
            Me(fld.Name) =  & fld.Value
            Me("new" & fld.Name) = Null
        End If
Next fld
...
Рейтинг: 0 / 0
14.06.2004, 18:31
| Ответить | Цитировать | Написать  
Как отучить VBA прыгать по текстбоксам в аксессе при обновлении их значений?
    #32560641
Фотография La_Sania
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
La_Sania
Участник
Привет!

Никогда не видел такого, но написал - и все работает.
Все равно скачет, но намного быстрее.
С такой скоростью это не проблема.

Спасибо,
Саня
...
Рейтинг: 0 / 0
14.06.2004, 18:50
| Ответить | Цитировать | Написать  
Как отучить VBA прыгать по текстбоксам в аксессе при обновлении их значений?
    #32560649
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
в дополнение к совету N_A - отключи перериcовку форму на время обновления значений.
...
Рейтинг: 0 / 0
14.06.2004, 18:54
| Ответить | Цитировать | Написать  
Как отучить VBA прыгать по текстбоксам в аксессе при обновлении их значений?
    #32560661
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Как говорится, "будь проще, и люди потянутся за тобой..."

Отмени Tab Stop на текствоксах, которые тебе не очень важны
...
Рейтинг: 0 / 0
14.06.2004, 19:02
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как отучить VBA прыгать по текстбоксам в аксессе при обновлении их значений?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32560618&tid=1673868]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 192ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 206ms
total:  504ms
созд. / загр.: 504ms
x
x
Закрыть


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