ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автопрокрутка ленточной формы на новую запись
25 сообщений из 34, страница 1 из 2
  1  все
Автопрокрутка ленточной формы на новую запись
    #39913721
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
В ходе с работы с ленточной формой при добавлении новой записи методом
With Me.Recordset
.AddNew
.Update
End With
у меня автоматически происходила прорутка формы на новую запись и курсор
становился на новой записи.
Но потом, после вышеуказанного кода происходят еще кое-какие преобразования внутри этой же подпрограммы,
в результате которых приходится применять метод Me.Requery (т.е. обновлять форму).
Вообщем после строки Me.Requery у меня курсор становится на первую запись ленточной формы,
а не на новую добавленную.
Можно ли каким-нить способом установить курсор на новую добавленную запись?Если можно - подскажите пож!
...
Рейтинг: 0 / 0
14.01.2020, 15:14
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913805
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
drafty,

Если есть - Код, ну типа - Счетчик, то наверное резонно будет прыгать на запись с максимальным кодом, ибо он и был последний и самый новый.
Или вы Ярый противник - Счётчиков?
...
Рейтинг: 0 / 0
14.01.2020, 16:38
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913816
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4d_monster
Участник
Как правило, можно заменить Me.Requery на Me.RecordSet.Requery.
...
Рейтинг: 0 / 0
14.01.2020, 16:45
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913817
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
Лапух
drafty,

Если есть - Код, ну типа - Счетчик, то наверное резонно будет прыгать на запись с максимальным кодом, ибо он и был последний и самый новый.
Или вы Ярый противник - Счётчиков?

Счётчик есть...Т.е. в рекордсоурсе формы (инструкции SQL мне надо будет указать ...ORDER BY TABLE.KOD DESC ?
А может есть какой-нибудь другой альтернативный способ?
...
Рейтинг: 0 / 0
14.01.2020, 16:45
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913826
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
drafty,

Ну может так как ни то прокатит?
[ИмяФормы].Recorset.FindFirst "Код_Формы=" & [ИмяФормы].[Код_Формы]
У меня обычно катит.
...
Рейтинг: 0 / 0
14.01.2020, 16:57
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913827
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
4d_monster
Как правило, можно заменить Me.Requery на Me.RecordSet.Requery.

Окэ, завтра по результатам отпишусь ✋
...
Рейтинг: 0 / 0
14.01.2020, 16:58
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913839
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
Лапух
drafty,

Ну может так как ни то прокатит?
[ИмяФормы].Recorset.FindFirst "Код_Формы=" & [ИмяФормы].[Код_Формы]
У меня обычно катит.

Попробую, может и у меня прокатит 🤔
...
Рейтинг: 0 / 0
14.01.2020, 17:26
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913860
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
drafty,

После Me.Requery
Me.ИмяПодчиненнойФормы.Form.Recordset.MoveLast
...
Рейтинг: 0 / 0
14.01.2020, 17:55
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39913862
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
vmag
drafty,

После Me.Requery
Me.ИмяПодчиненнойФормы.Form.Recordset.MoveLast

Это похоже ближе к истине...
...
Рейтинг: 0 / 0
14.01.2020, 17:58
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914055
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Прокрутка таблицы после Requery
...
Рейтинг: 0 / 0
15.01.2020, 05:31
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914076
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
MrShin
Прокрутка таблицы после Requery

"Run-time error '3159' Недопустимая закладка"
...
Рейтинг: 0 / 0
15.01.2020, 08:06
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914077
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
vmag
drafty,

После Me.Requery
Me.ИмяПодчиненнойФормы.Form.Recordset.MoveLast

Спасибо,срабатывает как и требовалось 🤝🤝🤝
...
Рейтинг: 0 / 0
15.01.2020, 08:09
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914079
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
drafty
4d_monster
Как правило, можно заменить Me.Requery на Me.RecordSet.Requery.

Окэ, завтра по результатам отпишусь ✋

Не совсем корректно работает,а иногда выдаётся ошибка
"Run-time error '-2147417848(80010108) Method 'Requery' of object 'Recordset2' failed"
...
Рейтинг: 0 / 0
15.01.2020, 08:14
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914080
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Вообще самый надежный способ - поиск нужной записи по уникальному ключу после обновления, т.к. MoveLast не будет работать в случае сортировки не по первичному ключу, а также при многопользовательской работе - кто-то другой мог создать новую запись и автоинкрементный ключ не будет последним. Bookmark также работает не во всех случаях.
...
Рейтинг: 0 / 0
15.01.2020, 08:16
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914090
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
drafty,

Без примера тяжеловато в понимании, по крайней мере для меня, но как то делал нечто подобное.

...
Me.Requery 'Обновить
Me.Refresh 'Обновить. Если Реквери не требуется, так как работаеть только с данными формы.
Me.Recalc 'Пересчитать
DoEvents 'На всякий случай маленькая задержка. Если форма тяжелая, то пересчет может быть долгим
Me.Recordset.FindFirst "[Код_Посещения]=" & Me.[Код_ПосещенияМакс] ' где Код_ПосещенияМакс - Свободное поле с выражением =Max([Код_Посещения])
...
Создаете Свободное поле - Код_ПосещенияМакс , с выражением =Max([Код_Посещения])
...
Рейтинг: 0 / 0
15.01.2020, 09:09
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914091
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Лапух,

Де-Жавю какое то.

Кажется совсем недавно, в где то это уже писал.
...
Рейтинг: 0 / 0
15.01.2020, 09:11
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914104
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
drafty
vmag
drafty,

После Me.Requery
Me.ИмяПодчиненнойФормы.Form.Recordset.MoveLast

Спасибо,срабатывает как и требовалось 🤝🤝🤝


Это некорректно, так как форма может быть отсортирована и не по ID-шке.

Именно с Access-ом давно не работал. Но посмотрите методы Resync и Refresh...
...
Рейтинг: 0 / 0
15.01.2020, 09:55
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914159
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
Лапух
drafty,

Без примера тяжеловато в понимании, по крайней мере для меня, но как то делал нечто подобное.

...
Me.Requery 'Обновить
Me.Refresh 'Обновить. Если Реквери не требуется, так как работаеть только с данными формы.
Me.Recalc 'Пересчитать
DoEvents 'На всякий случай маленькая задержка. Если форма тяжелая, то пересчет может быть долгим
Me.Recordset.FindFirst "[Код_Посещения]=" & Me.[Код_ПосещенияМакс] ' где Код_ПосещенияМакс - Свободное поле с выражением =Max([Код_Посещения])
...
Создаете Свободное поле - Код_ПосещенияМакс , с выражением =Max([Код_Посещения])

Приму на вооружение! 🤔
...
Рейтинг: 0 / 0
15.01.2020, 11:05
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914162
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
AndrF
drafty
пропущено...

Спасибо,срабатывает как и требовалось 🤝🤝🤝


Это некорректно, так как форма может быть отсортирована и не по ID-шке.

Именно с Access-ом давно не работал. Но посмотрите методы Resync и Refresh...

Пока работает...как начнутся сбои,обращусь к вам за пояснениями 😜
...
Рейтинг: 0 / 0
15.01.2020, 11:07
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914166
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
...
...
Рейтинг: 0 / 0
15.01.2020, 11:09
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914168
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
drafty
Но потом, после вышеуказанного кода происходят еще кое-какие преобразования внутри этой же подпрограммы,
в результате которых приходится применять метод Me.Requery (т.е. обновлять форму).
Какие преобразования? Они затрагивают источник данных за пределами существующего набора?
...
Рейтинг: 0 / 0
15.01.2020, 11:13
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914262
POKEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POKEP
Гость
Я пользуюсь такими строчками, например, при открытии формы. Так же можно поступать и после обновления формы по Requry, чтобы прокрутить набор записей вниз.

Код: vbnet
1.
2.
3.
4.
5.
6.
' Прокрутка записей формы вниз до упора, затем на 20 вверх.
On Error Resume Next
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acPrevious, 20
DoCmd.GoToRecord , , acLast
On Error GoTo Err_Form_Open
...
Рейтинг: 0 / 0
15.01.2020, 13:12
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914340
Фотография drafty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drafty
Участник
Панург
drafty
Но потом, после вышеуказанного кода происходят еще кое-какие преобразования внутри этой же подпрограммы,
в результате которых приходится применять метод Me.Requery (т.е. обновлять форму).
Какие преобразования? Они затрагивают источник данных за пределами существующего набора?

Нет,внутри рабочего набора
...
Рейтинг: 0 / 0
15.01.2020, 14:24
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914363
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
drafty
Пока работает...как начнутся сбои,обращусь к вам за пояснениями 😜


Да не боись, пример исключительно под твой частный случай, пока не перейдешь на другую сортировку, будет работать вечно...
...
Рейтинг: 0 / 0
15.01.2020, 14:57
| Ответить | Цитировать | Написать  
Автопрокрутка ленточной формы на новую запись
    #39914446
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
drafty
Нет,внутри рабочего набора
а к чему тогда Requery ?
...
Рейтинг: 0 / 0
15.01.2020, 17:00
| Ответить | Цитировать | Написать  
25 сообщений из 34, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автопрокрутка ленточной формы на новую запись
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39914091&tid=1610282]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 307ms
total:  464ms
созд. / загр.: 464ms
x
x
Закрыть


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