Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
При клике на запись в ЛистБоксе в текстбоксы записываются только значения последней строки, Форма для работы с бд студентов, все работает как надо, но есть ошибка в копировании содержимого из листбокса в текстбокс
 
Есть форма. При вводе символов в какое-либо поле и двойном клике по полю получаем результат после "фильтрации". Тут все работает. Добавление, удаление записей тоже работает стабильно. Но ошибка в том, что если я выберу какую-то запись в листбоксе, то всегда выбирается последняя. Не могу разобраться, где баг. Пожскажите, пожалуйста, буду весьма признателен
Фильтр работает до 10 текстбокса, на последующих вываливает ошибку Subscript out of range., Есть форма, но с багами. Помогите поправить
 
Код
Option Explicit
Public WithEvents vTBx As MSForms.TextBox

Private Sub vTBx_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
Dim x, y(), i&, j&, Idx&, tVal$, k&
Idx = Val(Right(vTBx.Name, 1)) - 1
tVal = vTBx.Value

With UserForm1.ListBox1
    x = .List
    ReDim y(UBound(x, 1), UBound(x, 2))
    For i = 0 To UBound(x)
        If InStr(x(i, Idx), tVal) Then    'Debug указывает на этот цикл
            For j = 0 To UBound(x, 2)
                y(k, j) = x(i, j)
            Next j
            k = k + 1
        End If
    Next i
    .List = y()
End With
End Sub

Файл с формой в архиве. Ума не приложу, как так получается, что фильтр работает, но частично( Благодарю за отклик
Поиск строк по нескольким критериям и запись на новый лист, Доработать форму для поиска по нескольким критериям
 
Есть данный файл, в нём форма с помощью которой можно добавлять записи и находить их по заданному критерию. Дело в том, что поиск происходит по всем колонкам, нужно сделать так, что бы критерий был для каждой колонки. Т.е. критериев столько, сколько колонок. И при заполнении одной из них, или нескольких отсеивались необходимые строки. При этом желательно эти строки записать в новый лист, или распечатать. Прошу помощи
Страницы: 1
Наверх