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

[Ethex]

Вот таблица. Инфа о том, что должно произойти в первом посте

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

Не совсем понял. Нужны фрагменты кода?

В начале посредством одного из двух рекордсетов осуществляется выборка данных всей таблицы

Set rst = CurrentDb.OpenRecordset("SELECT * FROM таблица")

Далее, внутри цикла Do While прописывается условие для работы с данными, содержащими спецсимвол.

If InStr(1, rst.Fields("stolb").Value, "Chr(247)") > 0 Then

Проблема 1: Процедура проходила полностью, однако изменений внутри таблицы не происходило. Предполагаю, что по каким-то причинам процедура не может обнаружить данные с этим символом.
Я заменил спецсимвол на символ латыницы в этой строке. Соответственно, в таблице заменил спецсимвол на аналогичный у одного из значений. Процедура не прошла.
После условия идёт присвоение значений переменным.

 repCount = Right(stolb, 3)

Выше описано, какую часть данных со спецсимволом она обязана содержать и что задействована будет далее в цикле For. При запуске процедуры сообщается об ошибке type mismatch.
Проблема 2: Предположительно, по непонятной причине значение переменной не распознаётся как числовое. Хоть изначально объявлялась с типом Integer и я пробовал задействовать функцию CInt.

Если это на что-то может влиять - тип файла поля текстовый
Что важного если забыл указать - пишите

[Ethex]

Засунул переменную в Watches
Тип указал как Variant/Boolean

[Aleksandr H.]

1. в базе нет таблицы с именем "таблица";
2. в таблице нет поля с именем stolb;
3. в базе нет ни строки кода.

Вариант решения через доптаблицу

Sub a()
    Dim rs As Recordset
    Dim counter As Integer
    Dim i As Integer
    Dim sSQL As String
    Set rs = CurrentDb.OpenRecordset("Select * from ПРосмотр")
    rs.MoveLast
    rs.MoveFirst
    DoCmd.SetWarnings False
    sSQL = "select [dannie],[znachenie],[znachenie2] into tblResult from [Просмотр]"
    DoCmd.RunSQL sSQL
    sSQL = "delete * from tblResult"
    DoCmd.RunSQL sSQL
    
    Do While rs.EOF <> True
        sSQL = "INSERT INTO [tblResult] " & _
                " (dannie, znachenie,znachenie2) values " & _
                " (""" & rs.Fields(0) & """,""" & rs.Fields(1) & """,""" & rs.Fields(2) & """)"
        Debug.Print sSQL
        DoCmd.RunSQL sSQL
        If InStr(rs.Fields(0), ChrW(247)) > 0 Then
            counter = CInt(Right(rs.Fields(0), 3))
            For i = 1 To counter
                sSQL = "INSERT INTO [tblResult] " & _
                " (dannie) values " & _
                " (""" & _
                Left(rs.Fields(0), Len(rs.Fields(0)) - 4) & _
                Left(Right(rs.Fields(0), 4), 1) & _
                Format(i, "000") & _
                """)"
                DoCmd.RunSQL sSQL
            Next i
        End If
        rs.MoveNext
    Loop
    DoCmd.SetWarnings True
End Sub

[Ethex]

1. в базе нет таблицы с именем "таблица";
2. в таблице нет поля с именем stolb;

Ошибочно посчитал возможным писать код выше схематически, не ориентируя под таблицу

3. в базе нет ни строки кода

Благодарю за помощь и проявленное терпение.
Также приношу извинения перед пользователями форума за неудобства в оказании мне помощи (как-то: некорректная формулировка задачи; косяки в этике общения; следование указаниям не должным образом).

Между тем, проблема решилась.
Проблема с типом крылась в наличии пробелов справа.
А с символом помогло удаление ковычек в условии поиска.