Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 17:19:39

Войти
Интересные и полезные статьи по работе с Excel и VBA можно найти в разделе ХИТРОСТИ
33 233 Сообщений в 5 454 Тем от 6 753 Пользователей
Последний пользователь: malanik777
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Word и VBA
| | |-+  Ошибка когда я проверяю свой код
Страниц: [1]   Вниз
Печать
Автор Тема: Ошибка когда я проверяю свой код  (Прочитано 4129 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Полина_МММ
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 1


Просмотр профиля E-mail
« : 12.12.2021, 09:50:38 »

Всем привет! Вопрос такой: есть файл, где записывается учет выдачи спецодежды по подразделениям организации.

Когда проверяю код через Run в окне вижуал бэйсик, то мои данные вносятся нормально.
А когда нажимаю на кнопку вызова пользовательской формы, то мне просто добавляют строки в таблицу, но значения не передаются в таблицу! Что делать!
Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #1 : 13.12.2021, 08:33:11 »

Добрый день.
А при чем здесь Word? Нигде не нашел даже намека на Word. Вы уверены, что создали тему в нужном разделе?
Проблема в том, что внутри формы Вы обращаетесь к созданному объекту формы Norm, который переопределяете при вызове, но вызываете по факту именно ту же форму. Очень плохая практика давать переменным имена уже существующих объектов. Вам надо сделать одно из двух(а еще лучше и то и другое).
1. Убрать в процедуре вызова переопределение:
Код: (vb)
Sub opener()
'эти строки ЛИШНИЕ
'Dim Norm As Norm
'Set Norm = New Norm
'=================
Norm.Show
End Sub

2. Внутри самой формы в кодах обращаться к форме через Me:
Код: (vb)
ListobjectSIZRow.Range(2) = Me.TextBox_Lastname.Value
ListobjectSIZRow.Range(3) = Me.TextBox_Firstname.Value
ListobjectSIZRow.Range(4) = Me.TextBox_Patronymic.Value
ListobjectSIZRow.Range(5) = Me.ComboBox_Position.Value
ListobjectSIZRow.Range(6) = Me.ComboBox_Work_DD.Value
ListobjectSIZRow.Range(7) = Me.ComboBox_Work_MM.Value
ListobjectSIZRow.Range(8) = Me.ComboBox_Work_YY.Value
ListobjectSIZRow.Range(10) = Me.ComboBox_SIZ_DD.Value
ListobjectSIZRow.Range(11) = Me.ComboBox_SIZ_MM.Value
ListobjectSIZRow.Range(12) = Me.ComboBox_SIZ_YY.Value

Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru