Set oAccess = New Access.Application
oAccess.NewCurrentDatabase sFilepath
oAccess.DoCmd.TransferDatabase acImport, "ODBC", "ODBC;" & sADODSN, acTable, "_MailingAddresses", "_MailingAddresses"
oAccess.CurrentDb.TableDefs("_MailingAddresses").Fields("NR").Properties.Append oAccess.CurrentDb.TableDefs("_MailingAddresses").Fields("NR").CreateProperty("Format", 8, "0000000")
oAccess.CloseCurrentDatabase
oAccess.Quit
Почему не форматируется поле Аксесса ?
Мне нужно после экспорта БД МС СКЛ в Аксесс задать формат поля типа ИНТ - семь знаков.
Вручную это делается в аксессе через конструктор, в своиствах поля ИНТ задаем своиство ФОРМАТ = 0000000
Вот как я пытаюсь это сделать программно:
Поле не существует и при попытке его добавить происохдит крах всей системы - ВБ закрывается.
В чем проблема ? Спасибо
Вручную это делается в аксессе через конструктор, в своиствах поля ИНТ задаем своиство ФОРМАТ = 0000000
Вот как я пытаюсь это сделать программно:
Код:
Поле не существует и при попытке его добавить происохдит крах всей системы - ВБ закрывается.
В чем проблема ? Спасибо
gde tekst otveta to ?