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

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
lancer
Начинающий
Начинающий
 
Сообщения: 10
Зарегистрирован: 23.09.2004 (Чт) 8:32

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

Сообщение lancer » 23.09.2004 (Чт) 18:46

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

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 23.09.2004 (Чт) 19:37

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

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

lancer
Начинающий
Начинающий
 
Сообщения: 10
Зарегистрирован: 23.09.2004 (Чт) 8:32

Сообщение lancer » 24.09.2004 (Пт) 7:58

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

Leon_
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 333
Зарегистрирован: 19.05.2004 (Ср) 16:31
Откуда: Moscow

Сообщение Leon_ » 24.09.2004 (Пт) 9:13

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

Так и должно быть, все правильно. Если ты не указываешь, какая конкретно форма нужна, то выйдет чепуха. Здесь надо делать так: в своем обработчике пишешь
Код: Выделить всё
Dim frm  As Access.Form
'Set frm = [Forms]![Новая форма]  это не очень а лучше
Set frm = Forms("Новая форма")
frm.Поле = значение
....
Set frm = Nothing

lancer
Начинающий
Начинающий
 
Сообщения: 10
Зарегистрирован: 23.09.2004 (Чт) 8:32

Сообщение lancer » 24.09.2004 (Пт) 10:34

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


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 3

    TopList