VPF::извлеч данные из подзапроса - Форум программистов

mari5

Дата 28.9.2007, 09:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 26.8.2005

Репутация: нет
Всего: нет

имеется форма, каторий имеет подформу, а подформа имеет еще подформу,
хочу что когда наиду данние, нажатием на тогле, чтоб значение из поля подформи передалось в поле подподформиб пишу так, но не получается:

форма ауто содержить форму гакидва

Private Sub Toggle24_Click()
Forms!auto.SetFocus
Forms!auto.ID.Requery
Forms!auto.gayidva!autokodi = Forms!auto.ID

End Sub

Akina

Дата 28.9.2007, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

попробуйте не использовать цепь Forms!auto.gayidva!autokodi , разбейте ее на отдельные прямые ссылки на объекты. Что-нить типа:

Код


Dim SubForm As Form
Dim SubSubForm As Form
Set SubForm = Forms("auto")
Set SubSubForm = SubForm.gayidva
Set SubSubForm.autokodi = SubForm.ID

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

bopoha

Дата 28.9.2007, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Дело в том, что подчиненной формы нет в колекции Forms. auto - подчиненная, как я понял. Т.е. следующие способы не работают:

Код


Set SubForm = Forms("auto")
или
Forms!auto.ID

Если код выполняется на главной форме, то код может быть таким:

Код


With Me.auto
    gayidva.autokodi = .ID
End With

ЗЫ: Маленькое напутствие. Вместо обращений к объектам через восклицательный знак - Объект1!Объект - и по имени - Объект1("Имя") - при возможности лучше использотвать - Объект1.Объект2. Т.к. в этом случае при компиляции вы получите сообщения об ошибках, а не на этапе выполнения.

--------------------

Как создавать приложения на MS Access

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »