ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Возврат курсора после обновления подчиненной формы
9 сообщений из 9, страница 1 из 1
Возврат курсора после обновления подчиненной формы
    #39488599
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Доброго времени суток, уважаемые форумчане!
столкнулся с проблемой, которую никак не могу решить самостоятельно. Нашел на форуме похожую тему, но не совсем то. Очень надеюсь на ваши советы и рекомендации. Есть главная форма (Form1) на ней подчиненная табличная (Form2). На событие поля в подчиненной форме AfterUpdate я повесил обновление подчиненной формы. Вопрос в том, что после обновления подчиненной формы курсор переходит на первую запись, а мне нужно на ту, которая была до обновления. Из похожей темы я понял, что нужно действовать через RecordsetClone и Bookmark, но с синтаксисом у меня нелады. Рад буду любой помощи!
...
Рейтинг: 0 / 0
13.07.2017, 17:32
| Ответить | Цитировать | Написать  
Возврат курсора после обновления подчиненной формы
    #39488687
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
guest_rusimport,
Спасибо. Но ругается на ID = rst.Bookmark, "введенное значение не подходит для данного поля" Я забыл упомянуть, что поля подчиненной формы индексированные, может как-то можно к индексу привязаться?
...
Рейтинг: 0 / 0
14.07.2017, 09:36
| Ответить | Цитировать | Написать  
Возврат курсора после обновления подчиненной формы
    #39488852
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Анатолий ( Киев ),

Немного подробнее зачем. На главной форме идет фильтрация данных подчиненной формы по набору признаков. После фильтрации В подчиненной форме вносится значение. После внесения, подчиненная форма обновляется, показывая в поле ИТОГ результат. Значения вносятся вручную построчно и крайне неудобно каждый раз переносить курсор с первой записи после обновления подформы.
...
Рейтинг: 0 / 0
14.07.2017, 09:42
| Ответить | Цитировать | Написать  
Возврат курсора после обновления подчиненной формы
    #39488876
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Анатолий ( Киев ), спасибо огромное!
по ID это то, что нужно.
...
Рейтинг: 0 / 0
14.07.2017, 11:31
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Возврат курсора после обновления подчиненной формы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8+%D0%BF%D1%83%D1%81%D1%82%D0%BE%D1%82%D1%8B+%D0%BD%D0%B0+%D0%BE%D1%82%D1%80%D0%B5%D0%B7%D0%BA%D0%B5&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 12ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 3ms
others: 443ms
total:  578ms
созд. / загр.: 578ms
x
x
Закрыть


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