VBA를 통한 PowerPoint와 액세스를 연결 하시겠습니까?

Question

텍스트 상자가 포함 된 PowerPoint 슬라이드가 있습니다. 액세스에서 데이터 테이블의 필터링보기와 해당 텍스트 상자를 연결하고 싶습니다.

EX의 경우, 우선 순위와 영향력이 다른 작업을 표시하는 작업 목록 응용 프로그램이있는 경우; 해당 파일을 열고 해당보기를 선택한 다음 VBA (또는 기타) ONCLICK 버튼 이벤트에 따라 파워 포인트 프레젠테이션에서 트리거되는 방법이 있습니까?

Answer 1

PowerPoint에서 액세스 데이터를 얻을 수 있습니다.

올바른 참조가 설정되어 있는지 확인해야합니다.Microsoft DAO Object Library VBA 프로젝트에서.

그런 다음 PowerPoint 프레젠테이션에서 TextBox를 채우려면 다음 기능과 같은 기능을 호출하여 주어진 작업 -Priority와 일치하는 작업 목록이 포함 된 문자열을 반환 할 수 있습니다.

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