Активная форма

[lancer]

Товарищи подскажите пожалуйста. Есть две формы при нажатии на список в одной форме открывается другая форма. Как сделать активной вторую форму. Пробовал через свойство ActiveForm но что-то не получилось, подозреваю проблема слистингом. Спасибо.

[Ennor]

ActiveForm? Это только в MDI-приложении работает, если я не ошибаюсь. Если это - твой случай, то делается это так:

Код: Выделить всё

set frm_MDI.ActiveForm = Form2


Все, собсно. Если же у тебя не MDI, то просто Form2.SetFocus

[lancer]

Наверное не так вопрос задал, попытаюсь перефразировать. При переходе с одной формы на другую должны заполняться поля в новой форме. Так если писать в лоб [Forms]![Новая форма].Поле=значение то всё ок, но полей много и прописывать каждое долго, а если просто писать поле=значение то поля почему-то не заполняются ?

[Leon_]

Так если писать в лоб [Forms]![Новая форма].Поле=значение то всё ок, но полей много и прописывать каждое долго, а если просто писать поле=значение то поля почему-то не заполняются ?

Так и должно быть, все правильно. Если ты не указываешь, какая конкретно форма нужна, то выйдет чепуха. Здесь надо делать так: в своем обработчике пишешь

Код: Выделить всё

Dim frm  As Access.Form
'Set frm = [Forms]![Новая форма]  это не очень а лучше
Set frm = Forms("Новая форма")
frm.Поле = значение
....
Set frm = Nothing

[lancer]

2 Leon_
Спасибо. В принципе это и требовалось, чтобы покороче код был.