链接PowerPoint和访问通过VBA？

Question

我有一个包含文本框PowerPoint幻灯片。我想那些文本框在访问一个数据表中的过滤视图链接。

有关前，如果我有在显示具有不同优先级和任务做作访问一个任务列表应用;是有办法打开该文件中，选择视图，并且根据一个VBA过滤它（或其他）的onclick按钮事件从我的简报触发？

Answer 1

这当然可以从简报获得访问数据。

您需要确保您有正确的引用设置在VBA项目theMicrosoft DAO Object Library。

然后，来填充文本框在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