Есть форма в который при наведении на строку в ListBox данные уходят в поля для редактирования и по идеи после нажатия на кнопку "Изменит данные" должны меняться, но меняется только значение "телефон". Не могу понять что не так с кодом, вроде все аналогично сделано.
[vba]
Код
Dim KlientEdit As Range Dim ShKlient As Worksheet Dim KlientListObj As ListObject Dim KlientListRow As ListRow
Set ShKlient = ThisWorkbook.Worksheets("Клиенты") Set KlientListObj = ShKlient.ListObjects("fiz_klienty_tb")
Set KlientEdit = KlientListObj.ListColumns.Item(1).Range.Find(Klienty.txt_nomer_klienta, LookAt:=xlWhole)
If Not KlientEdit Is Nothing Then 'Если найден клиент KlientEdit.Cells(1, 2) = Me.txt_tel.Value KlientEdit.Cells(1, 3) = Me.txt_FIO.Value KlientEdit.Cells(1, 4) = Me.Combo_istochik.Value End If
[/vba]
Есть форма в который при наведении на строку в ListBox данные уходят в поля для редактирования и по идеи после нажатия на кнопку "Изменит данные" должны меняться, но меняется только значение "телефон". Не могу понять что не так с кодом, вроде все аналогично сделано.
[vba]
Код
Dim KlientEdit As Range Dim ShKlient As Worksheet Dim KlientListObj As ListObject Dim KlientListRow As ListRow
Set ShKlient = ThisWorkbook.Worksheets("Клиенты") Set KlientListObj = ShKlient.ListObjects("fiz_klienty_tb")
Set KlientEdit = KlientListObj.ListColumns.Item(1).Range.Find(Klienty.txt_nomer_klienta, LookAt:=xlWhole)
If Not KlientEdit Is Nothing Then 'Если найден клиент KlientEdit.Cells(1, 2) = Me.txt_tel.Value KlientEdit.Cells(1, 3) = Me.txt_FIO.Value KlientEdit.Cells(1, 4) = Me.Combo_istochik.Value End If
Щелчок по кнопке "Изменить данные" запускает кроме события "btn_add_Click" еще и событие "List_klienty_Click". Чтобы этого не было, нужно изменить событие на другое (на какое, я не знаю). Если такое невозможно, то используйте модульную переменную. Я сделал в Вашем коде модульную переменную, она находится в самом верху модуля.
Также я сделал событие "UserForm_Initialize", оно подготавливает к работе переменную "boolEnableEvents".
Щелчок по кнопке "Изменить данные" запускает кроме события "btn_add_Click" еще и событие "List_klienty_Click". Чтобы этого не было, нужно изменить событие на другое (на какое, я не знаю). Если такое невозможно, то используйте модульную переменную. Я сделал в Вашем коде модульную переменную, она находится в самом верху модуля.
Также я сделал событие "UserForm_Initialize", оно подготавливает к работе переменную "boolEnableEvents".Karataev
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
