访问宏不起作用？

Question

我在模块中创建了一个函数：

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”在宏中调用该函数。但是当我运行宏时没有创建表？ 有人可以帮我吗？

谢谢！

Answer 1

在您的宏设计视图中，您应该显示 RunCode，然后在您的 Function Name 中应该显示 createTable()

该代码是否创建一个表如果你在没有宏的情况下运行它？

编辑：
将您的代码更新为此然后运行您的宏

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

我刚刚测试了上面的代码并创建了表格。您需要添加最后几行代码才能使其正常工作。