如何在MS Access中从SQL编辑器运行vba函数

找到了。

Option Compare Database

Public Function DropTables()

  Dim db As DAO.Database
  Dim tbldef As TableDef

  Set db = CurrentDb

  For Each tbldef In db.TableDefs
    If tbldef.Name = "Temp_data" Then
      db.Execute "DROP TABLE " & tbldef.Name, dbFailOnError
    End If
  Next tbldef

  db.Execute "CREATE TABLE Temp_data;", dbFailOnError

  ' UNINITIALIZE OBJECTS
  Set tbldef = Nothing
  Set db = Nothing

End Function

问题是,作为查询的一部分,如何从MS Access中的SQL视图调用此函数?