Вы не можете.
AutoNumbers - это просто числа.Включение текста с ними будет иметь существенное влияние на порядок (при упорядочении текста Code9 больше, чем Code10, поскольку 9 больше 1), что приводит к массовой фрагментации.
Вместо этого вы можете изменить форматирование автонумера, чтобы отображать «Код» перед номером (не сохраняя его), или использовать второе вычисляемое поле, в котором хранится «Код», а затем автонумерация.
Обратите внимание, что динамическое создание таблиц является сильным показателем ненормализованной базы данных.Попробуйте изменить базу данных так, чтобы она не требовала динамически создаваемых таблиц.
Чтобы изменить формат, вы можете использовать следующий код:
Dim td As DAO.TableDef
Set td = CurrentDb.TableDefs(MyTableName)
Dim fld As DAO.Field
Set fld = td.Fields!MyFieldName
Dim prp As DAO.Property
Set prp = fld.CreateProperty("Format", dbText, """Code""#")
fld.Properties.Append prp
Предполагается, что свойство format еще не было инициализировано.В противном случае вы можете просто использовать следующий код:
CurrentDb.TableDefs(MyTableName).Fields!MyField.Properties!Format = """Code""#"