ms-access - 通过 VBA 连接 Powerpoint 和 Access？

Question

我有一张包含文本框的 Powerpoint 幻灯片。我想将这些文本框与 Access 中数据表的筛选 View 链接起来。

例如，如果我在 Access 中有一个任务列表应用程序，它显示具有不同优先级和效果的任务；有没有办法打开该文件，选择该 View ，并根据从我的 Powerpoint 演示文稿触发的 vba(或其他)onclick 按钮事件对其进行过滤？

Answer 1

当然可以从 Powerpoint 获取 Access 数据。

您需要确保在 VBA 项目中设置了对 Microsoft DAO 对象库的正确引用。

然后，要填充 PowerPoint 演示文稿中的文本框，您可以调用类似以下函数的函数，例如，返回一个包含与给定 TaskPriority 匹配的任务列表的字符串。

Function GetTaskListFromAccess(taskPriority as Integer) as String
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim listOfTasks as String

  Set db = DBEngine.OpenDatabase(“C:\my_database.accdb”)

  Set rs = db.OpenRecordset("SELECT * FROM TaskTable WHERE TaskPriority=" & _
                            taskPriority, dbOpenSnapshot)
  If not rs is nothing then
    If rs.RecordCount > 0 then
      With rs
        While Not .EOF
          if listOfTask = "" then 
            listOfTasks = !TaskName
           Else 
            listOfTasks = listOfTasks & vbCrLf & !TaskName
          End If
          .MoveNext
        Loop
      .Close
      End With
    End If
    Set rs = nothing
  End If
  Set db = nothing

  GetTaskListFromAccess = listOfTasks
End Function