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

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

Daf
Чтобы перевести фокус на сабформу нужно находиться на основной форме, но тогда на каком событии на сабформе поймать получение фокуса, чтобы выполнить операцию перехода?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2004, 15:46:31
    #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, 16:08:14
    #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:11:10
    #32763525
roman2
roman2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перейти к новой записи в сабформе
roman2
Код: plaintext
1.
Private Sub Amount_GotFocus()

Ошибся, теперь исправился
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перейти к новой записи в сабформе / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 380ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670634]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 77ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 229ms
total:  380ms
x
x
Закрыть


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