Как поменять интервал между буквами в поле Acces?

[xruss]

Я добавляю поле данных (над пустой формой документа с клеточками для каждой буквы этого поля). Мне необходимо чтобы каждая буква и пробел этого поля были над своей клеточкой документа. Вопрос как изменить интервал шрифта в поле в Access? Изменение размера некоторых моноширных шрифтов и подборка свойства поля "Выравнивание текста" = "подбор" не помогают.
Может есть какой-нибудь квадратный шрифт?

[xruss]

есть ли возможность написать макрос, который бы вставлял в поле данные с пробелами между символами?

[Insainer]

Я мало понял на самом деле вашу затею. Посоветовать что-то по поводу оформления не могу, а пробелы можно добавить в поле c типом "текстовое" так:

Private Sub Кпопка_Click()
Dim st, str, stl As String
Dim i, j, lst As Integer
    Me.Recordset.MoveFirst
    While Not Me.Recordset.EOF
    st = Название_поля.Value
  
    For i = 1 To (2 * Len(st) - 2) Step 2
    
    stl = Left(st, i)
    str = Right(st, Len(st) - i)
    st = stl + " " + str
    
    Next i
    Название_поля.Value = st
    st = Empty
    Me.Recordset.MoveNext
    Wend
End Sub

Вместо "Название_поля" поставьте свое имя поля.
Код - процедура клика кнопка1.

[дмидми]

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

    st = Название_поля.Value
  
    For i = 1 To (2 * Len(st) - 2) Step 2
    
    stl = Left(st, i)
    str = Right(st, Len(st) - i)
    st = stl + " " + str
    
    Next i
    Название_поля.Value = st

Штой-то больно заковыристо. Так сразу и не скажешь, есть ошибка или нет. Я бы написал вместо процитированного

    st = Название_поля.Value
    stL = Left(st, 1)
    For i = 2 To Len(st)
        stL = stL & " " & Mid(st, i, 1)
    Next
    Название_поля.Value = Trim(stL)

Так и переменная str, - наличие которой, кстати говоря, делает невозможным обращение к функции Str(), - не нужна; и пробелы, которые юзер может запихнуть и в начало, и в конец поля, будут убраны.

[xruss]

Спасибо, что уделили внимание моему вопросу. Я только что безрезультатно попробовал разобраться в коде программы и вставить его в поле данных в отчете "Разрешение на ТД", но столкнулся с трудностью.
Я так понимаю, Вы написали код, который должен запускаться кнопкой?

1. Я выбрал отчет "Разрешение на ТД" в режиме конструктора;
2. Выбрал первое поле данных "Орган выдавший разрешение";
3. Выбрал кнопку просмотреть код и увидел, что там уже есть какойто код:

Option Compare Database

st = Орган_выдавший_разрешение.Value
stl = Left(st, 1)
For i = 2 To Len(st)
stl = stl & " " & Mid(st, i, 1)
Next
Орган_выдавший_разрешение.Value = Trim(stl)
st = stl + " " + str

Next i
Орган_выдавший_разрешение.Value = st

4. Если можно, подскажите, пожалуйста место в Вашем коде, которое отвечает за пробелы в тексте и лишнее место в коде поля, которое нужно удалить, чтобы все работало.

5. К данному сообщению я прикрепил файл моей БД. Есть ли у Вас возможность показать мне на примере одного из полей отчета "Разрешение на ТД" как это сделать?

[xruss]

А если поставить вопрос таким образом - есть ли возможность в Access написать код для поля данных в отчете, который бы выбирал букву по счету, а остальные символы удалял? Это нужно для того, чтобы разбить одно поле на несколько. В отчете с разрешением есть строки с ячейками.
Этот прием решил бы проблему - можно было бы создать много полей данных для каждой ячейки- свое поле, эти поля выбирали бы букву из требуемого поля данных по счету и удаляли бы лишнее, тем самым форма заполнялась бы без искажения форматирования и подгонок .

[Abrakadabra]

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

- есть ли возможность в Access написать код для поля данных в отчете, который бы выбирал букву по счету, а остальные символы удалял? .

Конечно можно.. Только удалять то зачем? Можно просто сделать функцию, возвращающую нужный символ из строки.

[xruss]

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

Конечно можно.. Только удалять то зачем? Можно просто сделать функцию, возвращающую нужный символ из строки.

а как это будет выглядеть, хотя бы примерно?

[Abrakadabra]

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

а как это будет выглядеть, хотя бы примерно?

Скиньте свою базу в формате 2000

[xruss]

Я купил книгу и начал изучать Sub-программы - было бы здорово посмотреть
как должна быть написана функция, чтобы в программе эти поля начинали
работать при выводе отчета.