Как оставить значения TextBox1, TextBox2, TextBox3

Пользователь

Сообщений: 25 Регистрация: 10.01.2019

23.02.2019 17:57:39

Уважаемые дамы и господа. Есть форма. При нажатие на CommandButton1 форма закрывается и открывается. Нажав на кнопку Хотелось бы оставить значения TextBox1, TextBox2, TextBox3. Заранее спасибо

Прикрепленные файлы

Копия Копия Файл Пример (1).xlsm (35.65 КБ)

_Igor_61

Пользователь

Сообщений: 3007 Регистрация: 18.07.2016

23.02.2019 18:26:30

Maklarenn, добрый вечер! Не увидел в коде формы ни одного TextBox1, TextBox2, TextBox3, увидел 6, 7,8. Неизвестно, откуда берутся данные в TextBox1,TextBox2, TextBox3. С листа? Тогда TextBox1.Value=лист такой-то ячейка такая-то.Value. И по кнопке может стоить не выгружать форму, а просто скрывать, раз уж если Вы решили этой кнопкой делать обновление... Что-то не все понятно... Форма и код в файле есть, но содержание кода не по названию темы...

sokol92

Пользователь

Сообщений: 4661 Регистрация: 10.09.2017

23.02.2019 18:31:26

Замените

Код
Unload Me

на

Код
Me.Hide

Игорь, здравствуйте! Прошу прощения, не видел Вашего ответа.

Изменено: sokol92 - 23.02.2019 18:33:34

Владимир

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

23.02.2019 20:58:30

Цитата
_Igor_61 написал: Не увидел в коде формы ни одного TextBox1, TextBox2, TextBox3

Есть они там ))
Maklarenn, Если нужны не скрывать, как Вам подсказывают, а именно выгруэать форму, то можно где-нибудь на листе хранить значения, которые затем при инициализации (активации) забирать в ТекстБоксы.

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#5 23.02.2019 21:07:54 Точно, строк много, сразу не увидел: Me.TextBox3 = Format(CDbl(Replace(Me.TextBox1, " " & Chr(136), "")) + Val(Replace(Me.TextBox2....