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

1. Либо аргументы без скобочек
2. Либо call
3. Либо присвоение значения функции какой-то переменной :)
...
Рейтинг: 0 / 0
24.05.2004, 13:14
    #32530559
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция в подчиненной форме
...
Рейтинг: 0 / 0
24.05.2004, 13:49
    #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
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция в подчиненной форме / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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