Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Возврат курсора после обновления подчиненной формы / 9 сообщений из 9, страница 1 из 1
13.07.2017, 17:32
    #39488599
CAHDEP
CAHDEP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возврат курсора после обновления подчиненной формы
Доброго времени суток, уважаемые форумчане!
столкнулся с проблемой, которую никак не могу решить самостоятельно. Нашел на форуме похожую тему, но не совсем то. Очень надеюсь на ваши советы и рекомендации. Есть главная форма (Form1) на ней подчиненная табличная (Form2). На событие поля в подчиненной форме AfterUpdate я повесил обновление подчиненной формы. Вопрос в том, что после обновления подчиненной формы курсор переходит на первую запись, а мне нужно на ту, которая была до обновления. Из похожей темы я понял, что нужно действовать через RecordsetClone и Bookmark, но с синтаксисом у меня нелады. Рад буду любой помощи!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2017, 20:14
    #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
| Ответить | Цитировать | Написать  
14.07.2017, 09:33
    #39488846
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возврат курсора после обновления подчиненной формы
CAHDEPНа событие поля в подчиненной форме AfterUpdate я повесил обновление подчиненной формы. Вопрос в том, что после обновления подчиненной формы курсор переходит на первую запись, а мне нужно на ту, которая была до обновления.
Под словом "обновление" видимо подразумевается метод Requery (т.е. перезапрос источника).
Вопрос - зачем? Если просто нужно сохранить запись, то Me.Refresh или Me.Dirty = False.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2017, 09:36
    #39488849
CAHDEP
CAHDEP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возврат курсора после обновления подчиненной формы
guest_rusimport,
Спасибо. Но ругается на ID = rst.Bookmark, "введенное значение не подходит для данного поля" Я забыл упомянуть, что поля подчиненной формы индексированные, может как-то можно к индексу привязаться?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2017, 09:42
    #39488852
CAHDEP
CAHDEP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возврат курсора после обновления подчиненной формы
Анатолий ( Киев ),

Немного подробнее зачем. На главной форме идет фильтрация данных подчиненной формы по набору признаков. После фильтрации В подчиненной форме вносится значение. После внесения, подчиненная форма обновляется, показывая в поле ИТОГ результат. Значения вносятся вручную построчно и крайне неудобно каждый раз переносить курсор с первой записи после обновления подформы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2017, 10:26
    #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:37
    #39488888
CAHDEP
CAHDEP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возврат курсора после обновления подчиненной формы
guest_rusimport,
а так ругается на Me.Bookmark = rst.Bookmark "Указан недопустимый объект или объект более не задан".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2017, 11:10
    #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:31
    #39488938
CAHDEP
CAHDEP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возврат курсора после обновления подчиненной формы
Анатолий ( Киев ), спасибо огромное!
по ID это то, что нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Возврат курсора после обновления подчиненной формы / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 7498ms
Закрыть
start [/forum/search_topic.php?author=%D0%97%D0%B0%D0%BA%D0%B0%D1%82%D0%B0%D0%B9+%D0%B3%D1%83%D0%B1%D1%83+%D1%87%D1%83%D1%88%D0%BA%D0%B0%D0%BD%21&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 10ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 7360ms
total:  7498ms
x
x
Закрыть


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