Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Не происходит отработка  [new]
wook
Guest
У меня не происодит отработка следующего:
Private Sub Symbol5_AfterUpdate()
    tmp3 = DecToBin(Me.Symbol5)
    For i = 49 To 58
        Select Case Me.Code
        Case Is >= 512
            ArrT(i) = Mid(tmp3, i - 1, 1)
        Case Is >= 256
            ArrT(i) = Mid("0" & tmp3, i - 1, 1)
        Case Is >= 128
            ArrT(i) = Mid("00" & tmp3, i - 1, 1)
        Case Is >= 64
            ArrT(i) = Mid("000" & tmp3, i - 1, 1)
        Case Is >= 32
            ArrT(i) = Mid("0000" & tmp3, i - 1, 1)
        Case Is >= 16
            ArrT(i) = Mid("00000" & tmp3, i - 1, 1)
        Case Is >= 8
            ArrT(i) = Mid("000000" & tmp3, i - 1, 1)
        Case Is >= 4
            ArrT(i) = Mid("0000000" & tmp3, i - 1, 1)
        Case Is >= 2
            ArrT(i) = Mid("00000000" & tmp3, i - 1, 1)
        Case Is >= 1
            ArrT(i) = Mid("000000000" & tmp3, i - 1, 1)
        Case Else
            ArrT(i) = "ERROR"
        End Select
    Next
    End Sub

делал все по аналогии с:
Private Sub Combo4_AfterUpdate()
DoCmd.GoToControl "Symbol1"
    Dim i As Integer, tmp As String
    With Me
        .Text33 = ""
        .Text35 = ""
        .Text37 = ""
        .Text39 = ""
        .Text41 = ""
        .Text43 = ""
        .Text45 = ""
        .Text47 = ""
        .Text49 = ""
        .Text51 = ""
        .Text53 = ""
        .Text55 = ""
        .Text57 = ""
        .Text59 = ""
        .Text61 = ""
        .Symbol1 = ""
        .Symbol2 = ""
        .Symbol3 = ""
        .Symbol4 = ""
        .Symbol5 = ""
        .Code = ""
    End With
    ArrT(1) = 1
    ArrT(12) = 0
    ArrT(13) = 1
    ArrT(14) = 1
    ArrT(15) = 0
    ArrT(16) = 0
    ArrT(17) = 0
    ArrT(18) = 1
    ArrT(59) = 0
    ArrT(60) = 1
    Me.Code = Me.Combo4.Column(1)
    tmp = DecToBin(Me.Code)
    For i = 2 To 11
        Select Case Me.Code
        Case Is >= 512
            ArrT(i) = Mid(tmp, i - 1, 1)
        Case Is >= 256
            ArrT(i) = Mid("0" & tmp, i - 1, 1)
        Case Is >= 128
            ArrT(i) = Mid("00" & tmp, i - 1, 1)
        Case Is >= 64
            ArrT(i) = Mid("000" & tmp, i - 1, 1)
        Case Is >= 32
            ArrT(i) = Mid("0000" & tmp, i - 1, 1)
        Case Is >= 16
            ArrT(i) = Mid("00000" & tmp, i - 1, 1)
        Case Is >= 8
            ArrT(i) = Mid("000000" & tmp, i - 1, 1)
        Case Is >= 4
            ArrT(i) = Mid("0000000" & tmp, i - 1, 1)
        Case Is >= 2
            ArrT(i) = Mid("00000000" & tmp, i - 1, 1)
        Case Is >= 1
            ArrT(i) = Mid("000000000" & tmp, i - 1, 1)
        Case Else
            ArrT(i) = "ERROR"
        End Select
    Next
End Sub
13 мар 06, 16:32    [2442903]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
wook
У меня не происодит отработка следующего:

А что происходит?
13 мар 06, 16:35    [2442930]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
йейе
Guest
А что оно должно делать?
13 мар 06, 16:36    [2442937]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
wook
Guest
Массив ArrT(i) не заполняется :(
13 мар 06, 16:47    [2443005]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
А он и не должен заполняться. Этот код только изменяет значения некоторых его элементов.
13 мар 06, 16:54    [2443066]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
wook
Guest
Так ничего не изменяет в том то и дело.
Ни один елемент массива не изменяется и не заполняется :(
13 мар 06, 16:57    [2443081]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
А если пошагово пройти?
13 мар 06, 16:59    [2443089]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
wook
Guest
А как?
13 мар 06, 17:01    [2443101]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
4321
Member [заблокирован]

Откуда:
Сообщений: 3573
пошагово
13 мар 06, 17:05    [2443127]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
sfsfhe
Guest
wook
А как?

Breakpoint/"STOP"+ F8
13 мар 06, 17:09    [2443150]     Ответить | Цитировать Сообщить модератору
 Re: Не происходит отработка  [new]
wook
Guest
бред какой то происходит :(
для первого цикла тоже сделал BreakPoint посмотрел а там пусто
Но тем не менее он все вычесляет.
А этот цикл ничего не делает :(
14 мар 06, 10:17    [2444952]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить