Возврат курсора после обновления подчиненной формы / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Возврат курсора после обновления подчиненной формы

9 сообщений из 9, страница 1 из 1

Возврат курсора после обновления подчиненной формы

#39488599

CAHDEP

Гость

Доброго времени суток, уважаемые форумчане!
столкнулся с проблемой, которую никак не могу решить самостоятельно. Нашел на форуме похожую тему, но не совсем то. Очень надеюсь на ваши советы и рекомендации. Есть главная форма (Form1) на ней подчиненная табличная (Form2). На событие поля в подчиненной форме AfterUpdate я повесил обновление подчиненной формы. Вопрос в том, что после обновления подчиненной формы курсор переходит на первую запись, а мне нужно на ту, которая была до обновления. Из похожей темы я понял, что нужно действовать через RecordsetClone и Bookmark, но с синтаксисом у меня нелады. Рад буду любой помощи!

...

Рейтинг:

0 / 0

13.07.2017, 17:32

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488687

guest_rusimport

Гость

CAHDEP,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

...
dim rst as dao.recordset
set rst = me.recordsetclone
id = rst.bookmark
me.requery
me.bookmark=id
...

...

Рейтинг:

0 / 0

13.07.2017, 20:14

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488846

Анатолий ( Киев )

Гость

CAHDEPНа событие поля в подчиненной форме AfterUpdate я повесил обновление подчиненной формы. Вопрос в том, что после обновления подчиненной формы курсор переходит на первую запись, а мне нужно на ту, которая была до обновления.
Под словом "обновление" видимо подразумевается метод Requery (т.е. перезапрос источника).
Вопрос - зачем? Если просто нужно сохранить запись, то Me.Refresh или Me.Dirty = False.

...

Рейтинг:

0 / 0

14.07.2017, 09:33

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488849

CAHDEP

Гость

guest_rusimport,
Спасибо. Но ругается на ID = rst.Bookmark, "введенное значение не подходит для данного поля" Я забыл упомянуть, что поля подчиненной формы индексированные, может как-то можно к индексу привязаться?

...

Рейтинг:

0 / 0

14.07.2017, 09:36

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488852

CAHDEP

Гость

Анатолий ( Киев ),

Немного подробнее зачем. На главной форме идет фильтрация данных подчиненной формы по набору признаков. После фильтрации В подчиненной форме вносится значение. После внесения, подчиненная форма обновляется, показывая в поле ИТОГ результат. Значения вносятся вручную построчно и крайне неудобно каждый раз переносить курсор с первой записи после обновления подформы.

...

Рейтинг:

0 / 0

14.07.2017, 09:42

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488876

guest_rusimport

Гость

CAHDEPguest_rusimport,
Спасибо. Но ругается на ID = rst.Bookmark, "введенное значение не подходит для данного поля" Я забыл упомянуть, что поля подчиненной формы индексированные, может как-то можно к индексу привязаться?
а так?

Код: vbnet

1.
2.
3.
4.
5.
6.

...
dim rst as dao.recordset
set rst = me.recordsetclone
me.requery
me.bookmark=rst.bookmark
...

...

Рейтинг:

0 / 0

14.07.2017, 10:26

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488888

CAHDEP

Гость

guest_rusimport,
а так ругается на Me.Bookmark = rst.Bookmark "Указан недопустимый объект или объект более не задан".

...

Рейтинг:

0 / 0

14.07.2017, 10:37

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488918

Анатолий ( Киев )

Гость

CAHDEPругается на ID = rst.Bookmark, "введенное значение не подходит для данного поля" Rjkktuf guest_rusimport имел ввиду переменную ID, а вы пытаетесь присвоить значение полю.
Попробуйте так:

Код: vbnet

1.
2.
3.
4.

dim bm as Variant
bm = me.bookmark
me.requery
me.bookmark=bm

Или, если значение поля ID уникально:

Код: vbnet

1.
2.
3.
4.

dim MyID as Long
MyID = me!ID
me.requery
me.recordset.FindFirst "[ID] = " & MyID

CAHDEPПосле внесения, подчиненная форма обновляется, показывая в поле ИТОГ результат. Опять же, если после requery набор записей не меняется, то достаточно Refresh - ваш итог пересчитается. Попробуйте хотя бы.

...

Рейтинг:

0 / 0

14.07.2017, 11:10

| Ответить | Цитировать | Написать

Возврат курсора после обновления подчиненной формы

#39488938

CAHDEP

Гость

Анатолий ( Киев ), спасибо огромное!
по ID это то, что нужно.

...

Рейтинг:

0 / 0

14.07.2017, 11:31

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Возврат курсора после обновления подчиненной формы

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&gotonew=1&tid=1612270]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	39ms
get topic data:	9ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	289ms

total:	411ms