Проблема с Textbox в Vba (exsel 2003)

  • Автор темы Smoiseenko
  • Дата начала
S

Smoiseenko

Гость
#1
Есть Userform созданный в VBA (запущенной из MS Excel) на ней распологается поле ввода TextBox1 и кнопка
CommandButton1

Код следующий

Dim sНаименование_группы As String

Private Sub Добавление_группы_в_список_групп_материалов()
sНаименование_группы = TextBox1.Text
MsgBox sНаименование_группы
End Sub

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then MsgBox "Вы не ввели имя новой группы"
Call Добавление_группы_в_список_групп_материалов
End Sub

После запуска кода к выполнению наблюдаю следующее.

Если в TextBox1 не ввожу ничего и нажимаю на кнопку, выскакивает сообщение "Вы не ввели имя новой группы" (То что нужно!)

А вот если ввожу, поидее после нажатия кнопки должна произойти передача переменной sНаименование_группы текста который я ввел в поле TextBox1, а потом появления сообщения с этим текстом. Но в реале, что бы я не ввел, появляется пустой MsgBox так как будто я ничего и не вводил.

То же самое и при замене в коде свойства TextBox1.Text на TextBox1.Value. Еще более странно то, что если я пишу код с прямым присвоением TextBox1.Value = "Что либо..."
и связываю этот код с событием Click для CommandButton1

После нажатия на кнопку в поле TextBox1 ничего не появляется.

Я уже сломал Моск, перечитал все справочники, думаю может это глюк Бэйсика такой. Подскажите плиз кто опытный может я че ни понимаю или не так пишу.
Ато очень надо.

Заранее всем спасибо за ответы.
 

Over

Well-Known Member
04.07.2007
116
0
#2
А может попробуй не Dim sНаименование_группы As String, а Public sНаименование_группы As String