Новости:

Название темы должно отражать суть задачи.
Темы типа "ПОМОГИТЕ!!!", "Срочно!" и т.п. будут удаляться без объяснения причин

Главное меню

Ошибка когда я проверяю свой код

Автор Полина_МММ, 12.12.2021, 09:50:38

« назад - далее »

Полина_МММ

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

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

Дмитрий Щербаков(The_Prist)

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

2. Внутри самой формы в кодах обращаться к форме через Me:
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

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Яндекс.Метрика Рейтинг@Mail.ru