powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция в подчиненной форме
7 сообщений из 7, страница 1 из 1
Функция в подчиненной форме
    #32530388
wolph
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня три подчиненных формы, которые я подставляю в главную, меняя значение SourceObject. В каждой форме есть процедура с одинаковым названием. Как вызывать эту процедуру из главной формы?
...
Рейтинг: 0 / 0
Функция в подчиненной форме
    #32530396
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Сделать ее Public
2. В главной форме написать:
call me.subForm1.Form.MySub([параметры])
...
Рейтинг: 0 / 0
Функция в подчиненной форме
    #32530419
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Вынести ее в отдельный модуль
2. Во всех формах написать MySub(параметры)
...
Рейтинг: 0 / 0
Функция в подчиненной форме
    #32530432
wolph
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Во блин :). Я так и сделал, только без call и аргументы в скобочках написал, а оно ругается:) После C++ и Delphi от VB мозга за мозга заходит.
...
Рейтинг: 0 / 0
Функция в подчиненной форме
    #32530439
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторЯ так и сделал, только без call и аргументы в скобочках написал, а оно ругается:) После C++ и Delphi от VB мозга за мозга заходит

1. Либо аргументы без скобочек
2. Либо call
3. Либо присвоение значения функции какой-то переменной :)
...
Рейтинг: 0 / 0
Функция в подчиненной форме
    #32530559
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
...
Рейтинг: 0 / 0
Функция в подчиненной форме
    #32530648
Bely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
примерно так...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub btCancelEdit_Click()
  ' -- UNDO on each subform --
  Dim ctl_obj As Control
  For Each ctl_obj In Me.Controls
    If ctl_obj.ControlType = acSubform Then
      ctl_obj.Form.Undo
    End If
  Next
  '  -- UNDO main form --
 
  Me.Undo
End Sub
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция в подчиненной форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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