Вызов функции из другой формы VBA

@LionMdS · Регистрация: 28.03.2009

Студворк — интернет-сервис помощи студентам

Есть форма "frm", на ней несколько subforms, по нажатию на кнопку в главной форме мне нужно выполнить функцию из subfrm1. Выглядит сейчас это примерно так:

subfrm1:

Visual Basic
1
2
3
Public Function SomeFunc()
   some code....
End Function

frm:

Visual Basic
1
Call subfrm1.SomeFunc

Как не пробовал вылазит ошибка №91 Object variable or With block variable not set
В сабформе, когда она активна, функция вызывается по горячей клавише, в основной она же должна вызваться по клику на кнопке и выполнить некоторые действия с сабформой...

Как быть?

@Alex77755 · 27.04.2013, 11:01

Visual Basic
1
subfrm1.SomeFunc

@LionMdS · 27.04.2013, 12:11 **[ТС]**

Сообщение от Alex77755

Visual Basic
1
subfrm1.SomeFunc

та же ошибка, перепробова уже кучу вариантов и советов с форумов, ничего не пашет

Скрипт · 27.04.2013, 12:18

LionMdS, если у вас код большой, то сделайте специально для Форума две формы, выложите эти формы на Форуме и на основе выложенных форм опишите вашу задачу.

@Alex77755 · 27.04.2013, 21:41

Есть форма "frm", на ней несколько subforms

Честно говоря я не сталкивался с субформами на форме.
И думал, что нужно вызвать функцию(процедуру) из другой(не субформы) формы.

@LionMdS · 27.04.2013, 22:04 **[ТС]**

Сообщение от Alex77755

Честно говоря я не сталкивался с субформами на форме.
И думал, что нужно вызвать функцию(процедуру) из другой(не субформы) формы.

У меня такой подход почему-то выдает ошибку (к сожаления сейчас нету доступа к проекту, не могу скинуть код).
Суть вот в чем: На главной форме висит две сабформы с RecordSet'ами, когда активна одна из сабформ, она принимает горячие клавиши и изменяет содержимое этого самого рекордсета, на главной форме расположены кнопки управления, которые должны выполнять те же функции что и горячие клавиши на активных сабформах. Но при попытке вызвать функцию по кнопке на главной форме я получаю ошибку "№91 Object variable or With block variable not set".

В принципе я делал подобные вызовы (правда функции в основном возвращали состояние каких то глобальных переменных) и это работало, в данном случае, я так понимаю, что проблема именно в редактировании содержимого сабформы из основной формы (во всяком случае другого объяснения у меня нету)...

Скрипт · 28.04.2013, 08:17

Alex77755, в сообщении #5 у вас форма для VBA или для VB?

@Alex77755 · 28.04.2013, 08:29

То в VB6.
Вот в экселе.
Но что такое субформа всё-равно непонятно.

@Alex77755 · 28.04.2013, 08:33

По ходу зто Access!?

Скрипт · 28.04.2013, 08:37

Alex77755, в сообщении #8 получается, что при вызове функции из другой формы, форма запускается, но невидимая? А после завершения функции, форма не выгружается из оперативной памяти компьютера, а остаётся быть запущенной, но невидимой и выгружается, когда закрывается вызывающая форма?

@Alex77755 · 28.04.2013, 08:40

В екселе специально делал Unload формы2 перед вызовом функции.
Результат: функция работает.
Но там же не субформа. В Access субформа и там я не проверял

Скрипт · 28.04.2013, 08:48

Корректировка сообщения #10.

Подчинённая форма остаётся в оперативной памяти компьютера, пока не закроется книга, где эта форма находится, а не когда закроется вызывающая форма.

@Alex77755 · 28.04.2013, 08:59

В Access2003: кинул на форму "Подчинённая форма"
Alt+F11 Вставил функцию

Visual Basic
1
2
3
Public Function SomeFunc()
SomeFunc = "Вася"
End Function

Кинул на форму кнопку. ПКМ - обработка событий.
Вызываю функцию

Visual Basic
1
2
3
Private Sub Кнопка40_Click()
MsgBox SomeFunc
End Sub

Закрыть - сохранить. Открыть форму. Клик по кнопке. работает
Может не правильно понял проблему?

@Alex77755 · 28.04.2013, 09:05

Код внедренного объекта находится в модуле основной формы.
Поэтому обращение к форме не нужно. Просто вызывается функция.
Если я правильно понял проблему

@LionMdS · 28.04.2013, 12:59 **[ТС]**

На рисунках все видно

@Catstail · 28.04.2013, 13:48

Я вообще не понимаю, о чем речь... Субформы какие-то. Если есть процедуры, которые должны разными формами использоваться совместно, то эти процедуры помещают в общий модуль - и все.

@LionMdS · 28.04.2013, 14:57 **[ТС]**

Сабж решен:
сделал ссылку на субформу из основной, затем обратился к ней:

Visual Basic
1
Me.Subform_Ordered_item.Form.Recordset!....

@Temich · 25.03.2015, 12:07

LionMdS,

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	27.04.2013, 12:18
	LionMdS, если у вас код большой, то сделайте специально для Форума две формы, выложите эти формы на Форуме и на основе выложенных форм опишите вашу задачу. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	28.04.2013, 08:17
	Alex77755, в сообщении #5 у вас форма для VBA или для VB? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.04.2013, 08:33
	По ходу зто Access!? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	28.04.2013, 08:37
	Alex77755, в сообщении #8 получается, что при вызове функции из другой формы, форма запускается, но невидимая? А после завершения функции, форма не выгружается из оперативной памяти компьютера, а остаётся быть запущенной, но невидимой и выгружается, когда закрывается вызывающая форма? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.04.2013, 08:40
	В екселе специально делал Unload формы2 перед вызовом функции. Результат: функция работает. Но там же не субформа. В Access субформа и там я не проверял 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	28.04.2013, 08:48
	Корректировка сообщения #10. Подчинённая форма остаётся в оперативной памяти компьютера, пока не закроется книга, где эта форма находится, а не когда закроется вызывающая форма. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.04.2013, 09:05
	Код внедренного объекта находится в модуле основной формы. Поэтому обращение к форме не нужно. Просто вызывается функция. Если я правильно понял проблему 0

@LionMdS 2 / 2 / 1 Регистрация: 28.03.2009 Сообщений: 84
	28.04.2013, 12:59 [ТС]
	На рисунках все видно Миниатюры 0

@Catstail Супер-модератор 38173 / 21108 / 4307 Регистрация: 12.02.2012 Сообщений: 34,707 Записей в блоге: 14
	28.04.2013, 13:48
	Я вообще не понимаю, о чем речь... Субформы какие-то. Если есть процедуры, которые должны разными формами использоваться совместно, то эти процедуры помещают в общий модуль - и все. 0

@Temich 1 / 1 / 0 Регистрация: 25.10.2013 Сообщений: 21
	25.03.2015, 12:07
	LionMdS, 0