Уважаемые форумчане! Прошу Вас направить на путь истинный, а именно указать направление или ссылку на материал для чтения, чтобы можно было решить следующую задачку. Есть ListBox на пользовательской форме в котором отображаются данные из таблицы. Так вот необходимо при выборе определенного значения в ListBox редактировать через другую дополнительную форму. Подскажите, пожалуйста, с его начать ?
Уважаемые форумчане! Прошу Вас направить на путь истинный, а именно указать направление или ссылку на материал для чтения, чтобы можно было решить следующую задачку. Есть ListBox на пользовательской форме в котором отображаются данные из таблицы. Так вот необходимо при выборе определенного значения в ListBox редактировать через другую дополнительную форму. Подскажите, пожалуйста, с его начать ?Born_IN_USSR
делаете вторую форму по процедуре Listbox1_click открываете форму в скрытом режиме, (form2.hide) вносите туда данные, затем отображаете её (form2.show)
делаете вторую форму по процедуре Listbox1_click открываете форму в скрытом режиме, (form2.hide) вносите туда данные, затем отображаете её (form2.show)K-SerJC
Благими намерениями выстелена дорога в АД.
Сообщение отредактировал K-SerJC - Среда, 12.04.2017, 07:23
делаете вторую форму по процедуре Listbox1_click открываете форму в скрытом режиме, (form2.hide) вносите туда данные, затем отображаете её (form2.show)
Форма для редактирования значений отображается. А как теперь получить данные из выбранного значения в ListBox в отрытой форме ? Т.е. в соответствующих полях должны отображаться соответсвующие значения
делаете вторую форму по процедуре Listbox1_click открываете форму в скрытом режиме, (form2.hide) вносите туда данные, затем отображаете её (form2.show)
Форма для редактирования значений отображается. А как теперь получить данные из выбранного значения в ListBox в отрытой форме ? Т.е. в соответствующих полях должны отображаться соответсвующие значенияBorn_IN_USSR
В общем так и не нашел ничего подходящего (либо плохо искал ) К сообщению прикреплен файл пример, что я хочу сотворить. Итак. Необходимо вести учет договоров. Было принято решение заполнять данные через пользовательские формы. Самая главная форма это - "Договора" При открытии данной формы появляется данные с листа "Акты" в котором отображается вся интересующая меня информация. Далее есть фильтр, который позволяет отфильтровать данные по основным критериям. Так вот, не получается у меня редактировать выбранные данные из ListBox. Форма для редактирования открывается, но строки пустые. Как можно решить эту задачку ? Как отследить какая именно запись выбрана в ListBox, чтобы в открытой форме для редактирования в соответствующих полях отображались соответсвующие данные из таблицы с листа "Акты" ?
В общем так и не нашел ничего подходящего (либо плохо искал ) К сообщению прикреплен файл пример, что я хочу сотворить. Итак. Необходимо вести учет договоров. Было принято решение заполнять данные через пользовательские формы. Самая главная форма это - "Договора" При открытии данной формы появляется данные с листа "Акты" в котором отображается вся интересующая меня информация. Далее есть фильтр, который позволяет отфильтровать данные по основным критериям. Так вот, не получается у меня редактировать выбранные данные из ListBox. Форма для редактирования открывается, но строки пустые. Как можно решить эту задачку ? Как отследить какая именно запись выбрана в ListBox, чтобы в открытой форме для редактирования в соответствующих полях отображались соответсвующие данные из таблицы с листа "Акты" ?Born_IN_USSR
В листбокс формы frmList_Doc добавьте столбец с номером акта. По даблклику в открывающуюся форму frmEdit_Act передавайте этот номер, а по нему можно находить нужную строку в таблице и заполнять данные (upd и передавать данные обратно в таблицу).
В листбокс формы frmList_Doc добавьте столбец с номером акта. По даблклику в открывающуюся форму frmEdit_Act передавайте этот номер, а по нему можно находить нужную строку в таблице и заполнять данные (upd и передавать данные обратно в таблицу).nilem
Яндекс.Деньги 4100159601573
Сообщение отредактировал nilem - Четверг, 27.04.2017, 12:17
Private Sub cmdEdit_Click() For i = 0 To Me.ListBoxSpisok.ColumnCount s = s & "@" & Me.ListBoxSpisok.List(Me.ListBoxSpisok.ListIndex, i) Next s = Mid(s, 2) frmEdit_Act.Tag = s frmEdit_Act.Show End Sub
[/vba] [vba]
Код
Private Sub UserForm_Activate() 'frmEdit_Act a = Me.Tag End Sub
[/vba] Дальше распихивайте по нужным местам
[vba]
Код
Private Sub cmdEdit_Click() For i = 0 To Me.ListBoxSpisok.ColumnCount s = s & "@" & Me.ListBoxSpisok.List(Me.ListBoxSpisok.ListIndex, i) Next s = Mid(s, 2) frmEdit_Act.Tag = s frmEdit_Act.Show End Sub
[/vba] [vba]
Код
Private Sub UserForm_Activate() 'frmEdit_Act a = Me.Tag End Sub
Не получается разобраться Прописываю txt_Реквизиты_Акты.Text = Me.tag в итоге в строке "Реквизиты Акта" получаю значение - ООО "Рога и Копыта"@Строить@Акт № 1 от 06.04.2017@На оформлении@ Просто я что то недопонимаю
Не получается разобраться Прописываю txt_Реквизиты_Акты.Text = Me.tag в итоге в строке "Реквизиты Акта" получаю значение - ООО "Рога и Копыта"@Строить@Акт № 1 от 06.04.2017@На оформлении@ Просто я что то недопонимаю Born_IN_USSR
Согласен полностью. Лично я тоже пошел-бы путем из №12. Причем по даблклику по заполненной ячейке редактируем, а по даблклику по пустой - добавляем запись. Я просто показал, как собрать данные из одной формы, и передать их в другую.
Согласен полностью. Лично я тоже пошел-бы путем из №12. Причем по даблклику по заполненной ячейке редактируем, а по даблклику по пустой - добавляем запись. Я просто показал, как собрать данные из одной формы, и передать их в другую.RAN