Ligando Powerpoint e Access através de VBA?

Question

Eu tenho um slide do Powerpoint que contém caixas de texto. Eu gostaria de vincular essas caixas de texto com uma vista filtrada de uma tabela de dados em Access.

Por ex, se eu tivesse uma aplicação TaskList no Access que exibia tarefas com diferentes prioridades e afetações; há uma maneira para abrir esse arquivo, selecione esse ponto de vista, e filtrá-la de acordo com um VBA (ou outro) onclick evento botão desencadeada a partir de minha apresentação Powerpoint?

Answer 1

É certamente possível obter dados de acesso de Powerpoint.

Você precisa ter certeza de que as referências corretas definidas para theMicrosoft DAO Object Library em seu projeto VBA.

Então, para preencher a sua caixa de texto em sua apresentação PowerPoint, você pode chamar algo como a seguinte função, digamos, para retornar uma string contendo uma lista de tarefas que correspondam à dada 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