Вопрос № 41443: Помогите, пожалуйста.На форме есть 2 подчиненные формы, как передать значение поля с одной подчиненной формы на другую.И не могли бывы посказать,что почитать по VBA для работы с базой данных.Спасибо....
Вопрос № 41.443
Помогите, пожалуйста.На форме есть 2 подчиненные формы, как передать значение поля с одной подчиненной формы на другую.И не могли бывы посказать,что почитать по VBA для работы с базой данных.Спасибо.
Отправлен: 27.04.2006, 13:41
Вопрос задала: TTT (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Коляка Вадим
Здравствуйте, TTT!
Все очень просто. Ту переменную, значение которой вы хотите использовать в другой форме, необходимо объявить общедоступной. Т.е. Public
Допустим есть 2 формы. MainForm и ChildrenForm
Option Ecplicit
Public Znachenie as integer
Private Sub MainForm_Load()
Znachenie=1500
end sub
Теперь переменная Znachenie будет общедоступна со всех форм, с значением 1500 (ну пока вы не поменяете его).
Private Sub ChildrenForm_Load
msgbox MainForm.Znachenie
end sub
Выдаст на экран значение данной переменной. Обращатся к которой нужно следующим образом. Указание формы, в которой хранится даннаыя переменная (может терминология и не правильная, но смысл я думаю понятен) и через точку указываете вашу переменную.
Ответ отправил: Коляка Вадим (статус: 1-ый класс)
Ответ отправлен: 27.04.2006, 14:11
Отвечает: AlexanderZh
Здравствуйте, TTT!
1. В модуле: Public XXX As Form_Name
2. В форме-приемнике:
Private Sub Form_Open(Cancel As Integer)
XXX = my
End Sub
3. В событии элемента на форме-источнике:
Private Sub Button_Click()
If Not IsEmpty(XXX) Then
XXX.ItemName1.Text = "***"
XXX.ItemName2.Enabled=false
End If
End Sub
Все
Ответ отправил: AlexanderZh (статус: 6-ой класс)
Ответ отправлен: 27.04.2006, 16:03
