通过VBA链接Powerpoint和Access？

Question

我有一个包含文本框的Powerpoint幻灯片.我想将这些文本框与Access中的数据表的过滤视图相链接.

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

Answer 1

从Powerpoint获取Access数据当然是可能的.

您需要确保Microsoft DAO Object Library在VBA项目中设置了正确的引用.

然后,要在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