VBAを通じてパワーポイントとアクセスのリンク？

Question

私はテキストボックスが含まれているPowerPointスライドを持っています。私はAccessでのデータテーブルのフィルタビューでこれらのテキストボックスをリンクしたいと思います。

EXのために、私は別の優先順位とaffectationsでタスクを表示するAccessでタスクリストのアプリケーションを持っていた場合。 、そのファイルを開いてそのビューを選択し、（または他の）VBAによると、それをフィルタリングする方法があるonclickのボタンイベントは、私のPowerPointプレゼンテーションからトリガ？

Answer 1

これは、PowerPointからのアクセスデータを取得することは確かに可能です。

あなたは、あなたの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