Сохранение, введенного пользователем, значения в поле TextBox, при повторном вызове формы - Microsoft Office Excel - Страница 2

kuklp · 21.02.2011, 11:14

Смотрите вложение.

Denis Ch · 21.02.2011, 11:50

Цитата:

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

смотрите вложение

В вашем файле действительно все работает.А вот у меня нет.Хотя сделал все точно так же.
Прикрепляю свой файл.В нем не работает, а где ошибка понять никак не могу.

kuklp · 21.02.2011, 12:03

Сделайте так и будет Вам счастье:

Код:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
My_Peremennaja = Name_Objekt.Text
End Sub

и так

Код:

Private Sub UserForm_Activate()
 Name_Objekt.Text = My_Peremennaja
End Sub

Denis Ch · 21.02.2011, 12:38

Цитата:

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

Сделайте так и будет Вам счастье:

Код:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
My_Peremennaja = Name_Objekt.Text
End Sub

и так

Код:

Private Sub UserForm_Activate()
 Name_Objekt.Text = My_Peremennaja
End Sub

Не могу понять в чем подвох.В вашем файле ведь тоже есть данные коды, но значение не сохраняется?
Причина найдена, ошибка была в расположении кода, а имено он должен быть в отдельном модуле:

Код:

Public My_Peremennaja   As String

doober отдельное спасибо

doober · 21.02.2011, 12:56

Не внимательны.все работает.чудес не бывает

kuklp · 21.02.2011, 13:10

Цитата:

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

Не внимательны.все работает.чудес не бывает

Ну, а я чего написал в последнем посте?:-)

kuklp · 21.02.2011, 13:13

Цитата:

Сообщение от Denis Ch

Не могу понять в чем подвох.

В том, что форма при отслеживании событий не понимает своего имени.
UserForm и все тут.

doober · 21.02.2011, 13:14

Все верно тёзка,разжевать надо.Я уже убедился в этом.

OLEGIK1974 · 01.02.2012, 23:23

Добрый Вечер уважаемые знатоки!!!!
А возможно ли этот метод применить для нескольких TextBox-ов в одной форме???....я попробовал так:
Private Sub UserForm_Activate()
Me.TextBox1.Text = My_Peremennaja
Me.TextBox7.Text = My_Peremennaja
Me.TextBox8.Text = My_Peremennaja
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
My_Peremennaja = Me.TextBox1.Text
My_Peremennaja = Me.TextBox7.Text
My_Peremennaja = Me.TextBox8.Text
End Sub
при повторном вызове формы во всех трех Texbox стоит значение TextBox8
помогите исправить.....
Признаюсь ...меня даже любителем VBa сложно назвать.....

Hugo121 · 01.02.2012, 23:53

Ну так конечно - три раза ОДНУ переменную меняете...
Сделайте ТРИ РАЗНЫЕ переменные.

21.02.2011, 12:03	#13
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Сделайте так и будет Вам счастье: Код: `Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) My_Peremennaja = Name_Objekt.Text End Sub` и так Код: `Private Sub UserForm_Activate() Name_Objekt.Text = My_Peremennaja End Sub` mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

21.02.2011, 13:14	#18
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Все верно тёзка,разжевать надо.Я уже убедился в этом. Анализ,обработка данных Недорого

01.02.2012, 23:53	#20
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	Ну так конечно - три раза ОДНУ переменную меняете... Сделайте ТРИ РАЗНЫЕ переменные. webmoney: E265281470651 Z422237915069 R418926282008

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Непонятное Acces Violation при вызове Create у формы из Avaliable forms	Человек_Борща	Общие вопросы Delphi	11	26.08.2010 14:28
ошибки при вызове формы из потока	пауэрлифтинг	Общие вопросы Delphi	0	24.03.2010 23:04
как присвоить все три значения вектору В и вывести его как массив столбец при вызове функции	Tomoa	Microsoft Office Excel	8	08.03.2010 20:42
Не обновляется поле при выборе значения	Agapov_stas	Microsoft Office Access	5	29.01.2010 10:29
потеря параметров при вызове формы из dll...	Roof	Общие вопросы Delphi	4	22.08.2008 22:08

01.02.2012, 23:23	#19
OLEGIK1974 Пользователь Регистрация: 18.04.2011 Сообщений: 13	Добрый Вечер уважаемые знатоки!!!! А возможно ли этот метод применить для нескольких TextBox-ов в одной форме???....я попробовал так: Private Sub UserForm_Activate() Me.TextBox1.Text = My_Peremennaja Me.TextBox7.Text = My_Peremennaja Me.TextBox8.Text = My_Peremennaja End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) My_Peremennaja = Me.TextBox1.Text My_Peremennaja = Me.TextBox7.Text My_Peremennaja = Me.TextBox8.Text End Sub при повторном вызове формы во всех трех Texbox стоит значение TextBox8 помогите исправить..... Признаюсь ...меня даже любителем VBa сложно назвать.....