Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?) / 7 сообщений из 7, страница 1 из 1
18.08.2004, 10:33:56
    #32654087
Мари
Мари
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?)
Подскажите, пожалуйста,
в процедуре вычисляются 2 переменные, как в форме их получить ?
Public Sub plan()
...
g=...
t=...
plan=g,t?
End Sub

Private Sub построить_Click()
Модуль.plan
Forms![virabotk].k=plan(g)
Forms![virabotk].r=plan(t)
End Sub
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2004, 10:35:18
    #32654089
kedzo
kedzo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?)
объявить переменные на уровне модуля (глобальные)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2004, 10:39:39
    #32654110
Мари
Мари
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?)
kedzoобъявить переменные на уровне модуля (глобальные)
Public Sub plan()
dim g as ...

plan=(g,t)

а как в форме их получить ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2004, 10:44:54
    #32654129
Витал
Витал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?)
Мари


а как в форме их получить ?
dim g as ...

Public Sub plan()
g=...
Me.TextBox1 = g
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2004, 10:58:26
    #32654164
Мари
Мари
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?)
Витал[quot Мари]
dim g as ...

Public Sub plan()
g=...
Me.TextBox1 = g
End Sub

plan() вызывается из формы сначала для одного поля, потом для другого

Public Sub plan()
g=...
End Sub

Private Sub построить_Click()
Модуль.plan
Me.TextBox1 = plan(g)???
...
Модуль.plan
Me.TextBox2 = plan(t)???

End Sub
Me.TextBox1 = g
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2004, 11:10:10
    #32654200
Roma R
Roma R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?)
Передать через пареметры

Public Sub plan(g as Тип, t as Тип)
g=.....
t=.....
end sub

В форме

Dim a as Тип, b as Тип
plan a,b

Вычисленные в процедуре значения g и t передадутся в переменные a и b
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2004, 11:23:55
    #32654241
Витал
Витал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?)
Мари Витал[quot Мари]
dim g as ...

Public Sub plan()
g=...
Me.TextBox1 = g
End Sub

plan() вызывается из формы сначала для одного поля, потом для другого

Public Sub plan()
g=...
End Sub

Private Sub построить_Click()
Модуль.plan
Me.TextBox1 = plan(g)???
...
Модуль.plan
Me.TextBox2 = plan(t)???

End Sub
Me.TextBox1 = g

Преобразуйте plan в функцию - тогда действительно будет
Me.TextBox1 = plan(g)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / переменная (в процедуре вычисляются 2 переменные, как в форме их получить ?) / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 373ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1672389]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 68ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 228ms
total:  373ms
x
x
Закрыть


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