VBA, Access, Размножение данных

[Ethex]

Здравствуйте
Имеется таблица в Access. В одном из столбцов данные представлены примерно вот в таком виде:
00-00-001 - по большей части
Однако, есть и следующие:
00-00-001[юникодовский символ]010
Требуется, чтобы при запуске процедуры под строками, где есть данные второго вида создались новые строки и заполнились следующим образом:
00-00-001[символ]010
00-00-002
00-00-003
00-00-004
...
00-00-010

Т.е., строки создаются и заполняются пока значение трёхзначного числа перед символом не станет равно числу после символа. А данные из соседних ячеек строки с символом дублируются в соответствующие ячейки столбцов.

Нужна помощь. Из предположений:
Мне ведь потребуется обрезать значение ячейки для объявления переменных. Находил на англоязычном ресурсе такой пример

Dim s As String
s = "Emily has wild flowers. They are red and blue."

Dim indexOfThey As Integer

indexOfThey = InStr(1, s, "They")

Dim finalString As String          
finalString = Right(s, Len(s) - indexOfThey + 1)

Корректно ли будет в моём случае?

Dim s As String
s = Cell (i, 1).Value
Dim index As Integer 
index = InStr (1, s, ChrW(247))
Dim r As String
Dim l As String
r = Right(s, Len(s) - ind+1) '010
l = Left(s, Len(s) - ind-1) '00-00-001

Если корректно, как объявить вот эту часть: 00-00-001 ?
Потребуется ли мне использовать Recordset для создания и/или заполнения строк?
Уместны ли будут SQL запросы в коде для создания и/или заполнения?
Предполагаю, что потребуется использовать цикл Do While и менять тип переменных со строкового на числовой.

На этом мои соображения заканчиваются

[Ethex]

Если требуется что-то сообщить для уточнения задачи, скажите

[Aleksandr H.]

intR = int(r)
for step = 1 to intR do
 debug.print '00-00-' & format('000',intR)
next step

[Ethex]

intR = int(r)

Перевод типа в числовой? А разве не CInt?

debug.print

А зачем тут оператор вывода в окно редактора?

[Aleksandr H.]

CInt,
чтобы убедиться таким должен быть ответ или нет

[Ethex]

Проблема теперь следующая
В коде есть строка

If InStr(1, query.Fields("ob").Value, "a") > 0 Then  ' условие на наличие символа'

Как я писал выше, требовалось оперировать с данными, имеющими юникодовский символ. Я пришёл к выводу, что программа не может его прочесть и для проверки заменил в строке его на "a" и вставил a водно из значений, вместо нужного символа.
После запуска кода выдало type mismatch и подчеркнуло строку

 repCount = CInt(Right(ob, 3))

repCount - переменная, обозначающая три цифры после символа. Изначально была объявлена как Integer (CInt попробовал прописать от безысходности). Далее, переменная буде задействована в цикле For.
Не могу понять, что не так с её типом?

[Ethex]

Да, и попутно
Нужный символ - 247 по юникоду. Chr(247) и ChrW(247) прописывал - данные с символом не находились
Из-за чего?

[Aleksandr H.]

Сообщение от Ethex

После запуска кода выдало type mismatch и подчеркнуло строку

 repCount = CInt(Right(ob, 3))

repCount - переменная, обозначающая три цифры после символа.
Не могу понять, что не так с её типом?

Right(ob, 3)

что возвращает? Проблема в том, что этих 3 символа не представляется возможным перевести в Integer

[Ethex]

Сообщение от Aleksandr H.

Right(ob, 3)

что возвращает?

Последние три символа значения ячейки
00-00-001[символ]010

Проблема в том, что этих 3 символа не представляется возможным перевести в Integer

Почему?

[shanemac51]

Сообщение от Ethex

Почему?

выложите базу --иначе это не разбор ошибки, а угадайка
по крайней мере таблицу с двумя записями
--без доп символа и количества
--с символом и количеством

и конечно запрос, в котором вы что-то пытаетесь преобразовать