Textbox&Listbox

[Aqil_f]

Textbox-ы отображаеть значение из Listbox-a. Как можно делать так что, измененные значение Textbox-e отображалас Listbox-е и в самом листе тоже?
Помогите пожалуйста, очень срочно нужен.

[doober]

Аналогично напишете код для остальных Текстбоксов

Private Sub lbAuto_Click()
    If frmReg.lbAuto.ListIndex > 0 Then
        frmReg.txttnr = frmReg.lbAuto.List(, 0)
      frmReg.txtsoy.ControlSource = "List1!C" & lbAuto.ListIndex + 2
       frmReg.TxtBox4.ControlSource = "List1!D" & lbAuto.ListIndex + 2
       
    End If
    If lbAuto.ListIndex <> -1 Then
        Rows(lbAuto.ListIndex + 2).Select
        Call findDeti
    End If
End Sub

[Aqil_f]

Спасибо, Doober.
Получается, только у меня есть несколько textbox-ы берет информацию
из 2-х или 3-х столбец.
(frmReg.Controls("TxtBox" & i).Text = cc.Value & " " & .Range(.Cells(cc.Row, 4), .Cells(cc.Row, 4)).Value)

Поэтому для этих textbox-ов этот код не могу использувать:

frmReg.TxtBox4.ControlSource = "List1!D" & lbAuto.ListIndex + 2

[Aqil_f]

А можно ли здесь свернуть форму и редактировать записи в самом листе?

[Aqil_f]

Свернуть форму и редактировать записи можно если отобразить форму в немодальном режимe.
Но, открытый остается этот вопрос:
Как здесь можно при изменение TxtBox4-TxtBox8 это изменение и в самам листе тоже осталос?
Помогите пожалуйста, очень срочно надо.

[doober]

Сообщение от Aqil_f

Спасибо, Doober.
Получается, только у меня есть несколько textbox-ы берет информацию
из 2-х или 3-х столбец.
(frmReg.Controls("TxtBox" & i).Text = cc.Value & " " & .Range(.Cells(cc.Row, 4), .Cells(cc.Row, 4)).Value)

Поэтому для этих textbox-ов этот код не могу использувать:

frmReg.TxtBox4.ControlSource = "List1!D" & lbAuto.ListIndex + 2

frmReg.Controls("TxtBox" & i).ControlSource = "List3!" & .Cells(cc.Row, 3).AddressLocal

For i = 4 To 8
frmReg.Controls("TxtBox" & i).ControlSource = ""      '  Добавить эту строку
frmReg.Controls("TxtBox" & i).Text = ""

Next i

[Aqil_f]

Этот код добавил:

frmReg.Controls("TxtBox" & i).ControlSource = ""      '  Добавить эту строку

Но этот код куда добавить незнаю:

frmReg.Controls("TxtBox" & i).ControlSource = "List3!" & .Cells(cc.Row, 3).AddressLocal

Т.е., добавил, но почему-то не получается.

[doober]

Смотрите вложение

PS.Мое мнение по способу организации хранения данных -у вас не правильный .
Вы еще не раз столкнетесь с трудностями по выборке и применению данных

[Aqil_f]

Сообщение от doober

PS.Мое мнение по способу организации хранения данных -у вас не правильный .
Вы еще не раз столкнетесь с трудностями по выборке и применению данных

Да, уже,столкваюс. Это моя первая работа, поэтому трудности очень много. Знаю что очень много что не правильно делаю. Но, я очень стараюс.

[Aqil_f]

Doober, наверно я неправильно обяснил свою задачу.
До Вашего изменение например Txtbox6 видно было значение из 2-х , или больше столбец (например для 622004 в Txtbox6 видно было "Ivan33 EEEE" List3 столбец С и D)

('frmReg.Controls("TxtBox" & i).Text = cc.Value & " " & .Range(.Cells(cc.Row, 4), .Cells(cc.Row, 4)).Value)

Надо было что сделанные изменение в Txtbox6 осталос в столбец С и D.

А на Ваем примере в Txtbox6 значение только из 1-го столбца. ИЛИ Я ЧТО-ТО НЕ ПОНИМАЮ!