2

テキスト ボックスを含む PowerPoint スライドがあります。これらのテキスト ボックスを Access のデータ テーブルのフィルター処理されたビューにリンクしたいと考えています。

たとえば、Access に TaskList アプリケーションがあり、優先度と影響が異なるタスクを表示したとします。そのファイルを開き、そのビューを選択し、Powerpoint プレゼンテーションからトリガーされた vba (またはその他) の onclick ボタン イベントに従ってフィルター処理する方法はありますか?

4

1 に答える 1

5

Powerpoint から Access データを取得することは確かに可能です。

Microsoft DAO Object LibraryVBA プロジェクトで に正しい参照が設定されていることを確認する必要があります。

次に、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
于 2008-12-11T14:28:42.103 に答える