powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / еще один глупый вопрос
5 сообщений из 5, страница 1 из 1
еще один глупый вопрос
    #32282029
nataSid
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dim myArray(1) As Integer
myArray(1) = 0
i = 0

If Val(Left(T3![UST], 3)) = gos Then
i = i + 1
ReDim Preserve myArray(i)
myArray(i) = T3![TEL]
End If

Ругается, что ошибка компиляции на строчку
ReDim Preserve myArray(i)
Array already dimensioned

Что не так?
...
Рейтинг: 0 / 0
еще один глупый вопрос
    #32282032
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Dim myArray() As Integer
...
Рейтинг: 0 / 0
еще один глупый вопрос
    #32282034
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim myArray() As Integer
myArray(1) = 0
i = 0

If Val(Left(T3![UST], 3)) = gos Then
i = i + 1
ReDim Preserve myArray(i)
myArray(i) = T3![TEL]
End If

ReDim Preserve myArray(i)
...
Рейтинг: 0 / 0
еще один глупый вопрос
    #32282037
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А перед myArray(1) = 0 надо еще один ReDim.
...
Рейтинг: 0 / 0
еще один глупый вопрос
    #32282709
nataSid
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / еще один глупый вопрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]