Макрос доступа не работает? - PullRequest
Новая
       18

Макрос доступа не работает?

0 голосов
/ 20 июля 2011

Я создал функцию в модуле: 

Public Function createTable()
    Dim db As Database
    Dim tdf As TableDef
    Dim fld As Field

    Set db = CurrentDb()
    Set tdf = db.CreateTableDef("161-0363")

    Set fld = tdf.CreateField("SKUS", dbText, 30)
    tdf.Fields.Append fld

    Set fld = tdf.CreateField("Count", dbInteger)
    tdf.Fields.Append fld
End Function

Затем вызвал эту функцию в макросе, используя "RunCode".Но при запуске макроса таблица не создается?Кто-нибудь может мне помочь?

Спасибо!

1 Ответ

1 голос
/ 20 июля 2011

В вашем Macro Design View должно быть написано RunCode, тогда в вашем Function Name должно появиться createTable()

Создает ли код таблицу, если вы запускаете ее без макроса?

EDIT: Обновите свой код до этого, затем запустите макрос 

Public Function createTable()
   Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As Field

    Set db = CurrentDb()
    Set tdf = db.CreateTableDef("161-0363")

    Set fld = tdf.CreateField("SKUS", dbText, 30)
    tdf.Fields.Append fld

    Set fld = tdf.CreateField("Count", dbInteger)
    tdf.Fields.Append fld

    db.TableDefs.Append tdf
    db.TableDefs.Refresh
End Function

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

...