Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
TextBox не отображает записи
 
помогите пожалуйста!! сломал мозг, не пойму почему в последних текстбоксах (после Т34) не отображаются записи?  
 
На Вашей форме отсутствует TextBox с именем T35, при попытке вставить в него данные возникает ошибка и, в соответствии с инструкцией On Error GoTo ERRR, выход из процедуры. А если это поправить (закомментировать строку для T35, их там у Вас почему-то две), то для TextBox-ов T36-T43 в Вашей таблице нет значений, поэтому их просто нечем заполнить
Изменено: Sanja - 29 Мар 2015 10:10:37
Согласие есть продукт при полном непротивлении сторон.
 
хм.. не досмотрел, спасибо! попутно, можно ли уменьшить код (вставку в ячейки листа и опрос ячеек текстбоксами) к примеру циклом?
 
Цитата
bus12 написал: к примеру циклом?
т.к. Ваши TextBox-ы расположены не по порядку, можно попробовать привязаться к их именам (но тут внимательнее со злополучным 35-м, и 45-м)
Код
Set Acl = ActiveSheet.Columns("C:C").Find(What:=ComboBox1, lookat:=xlWhole)
For Each Tb In Me.Controls
    If TypeName(Tb) = "TextBox" Then
        If Tb.Name Like "*45*" Then
            Tb.Value = Acl.Offset(0, 1)
            Exit For
        End If
        Tb.Value = Acl.Offset(0, Val(Right(Tb.Name, Len(Tb.Name) - 1)) + 24)
    End If
Next
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1
Читают тему (гостей: 1)