ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перейти к новой записи в сабформе
8 сообщений из 8, страница 1 из 1
перейти к новой записи в сабформе
    #32762493
roman2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roman2
Гость
Есть форма с подчиненной формой. Так вот хочется чтобы в подчиненной форме сразу выделялась новая запись. Ставил обработчик на событие Current в подчиненной форме и пытался выполнить
Код: plaintext
DoCmd.GoToRecord acForm, Me.Name, acNewRec
Выдавалась ошибка: Объект 'frmSub1' не открыт.
...
Рейтинг: 0 / 0
01.11.2004, 07:21:07
| Ответить | Цитировать | Написать  
перейти к новой записи в сабформе
    #32762580
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Лучше будет:
Код: plaintext
    DoCmd.GoToRecord acActiveDataObject, , acNewRec
И не на Current, а на FormOpen! Current - это вообще ошибка. Ведь любое действие по переходу с записи на запись вызывает событие Current. Таким образом щелчок по первой записи заставит программу прыгнуть на новую! Стать на какую-нибудь запись и просмотреть ее будет невозможно!
...
Рейтинг: 0 / 0
01.11.2004, 09:45:32
| Ответить | Цитировать | Написать  
перейти к новой записи в сабформе
    #32762633
roman2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roman2
Гость
лучше не стало... ну вот почему-то и по твоей версии не переходит
...
Рейтинг: 0 / 0
01.11.2004, 10:33:10
| Ответить | Цитировать | Написать  
перейти к новой записи в сабформе
    #32762664
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
Сначала нужно перевести на подчиненную форму фокус ... SetFocus.

А потом уже сделать Docmd.GotoRecord ,, acNewRec
...
Рейтинг: 0 / 0
01.11.2004, 10:50:54
| Ответить | Цитировать | Написать  
перейти к новой записи в сабформе
    #32762725
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Наивный вопрос, но все же, а сабформа открыта для новых записей?
GoToRecord не раьотает, может быть есть еще код на сабформе, который мешает?
Попробуй поставить обработчик ошибок в процедуру и точку останова за командой GoToRecord ... .Приходит ли он вообще туда?

Daf
Чтобы перевести фокус на сабформу нужно находиться на основной форме, но тогда на каком событии на сабформе поймать получение фокуса, чтобы выполнить операцию перехода?
...
Рейтинг: 0 / 0
01.11.2004, 11:20:59
| Ответить | Цитировать | Написать  
перейти к новой записи в сабформе
    #32763448
roman2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roman2
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Exit_Here
    DoCmd.GoToRecord acActiveDataObject, , acNewRec
    Exit Sub
Exit_Here:
    MsgBox "error"
End Sub
GoToRecord выполняется без ошибок и больше никаких обработчиков событий для этой формы нет.
...
Рейтинг: 0 / 0
01.11.2004, 15:46:31
| Ответить | Цитировать | Написать  
перейти к новой записи в сабформе
    #32763517
roman2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roman2
Гость
Все таки удалось побороть, конечно не без помощи всех кто отвечал по данной теме.
Сделал так, в обработчике Form_Load главной формы вставил следующий код:
Код: plaintext
Me.frmSub1("Amount").SetFocus
А в подчиненной так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub txtField1_GotFocus()
On Error GoTo Exit_Here
    DoCmd.GoToRecord acActiveDataObject, , acNewRec
    Exit Sub
Exit_Here:
    MsgBox "error"
End Sub
Ну пока во всяком случае работает...
...
Рейтинг: 0 / 0
01.11.2004, 16:08:14
| Ответить | Цитировать | Написать  
перейти к новой записи в сабформе
    #32763525
roman2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roman2
Гость
roman2
Код: plaintext
1.
Private Sub Amount_GotFocus()

Ошибся, теперь исправился
...
Рейтинг: 0 / 0
01.11.2004, 16:11:10
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перейти к новой записи в сабформе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32762725&tid=1670634]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 58ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 200ms
total:  310ms
созд. / загр.: 310ms
x
x
Закрыть


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