La vinculación de PowerPoint y Access con VBA?

Question

Tengo una diapositiva de PowerPoint que contiene cuadros de texto. Me gustaría vincular esos cuadros de texto con una vista filtrada de una tabla de datos en Access.

Para ex, si tuviera una aplicación de lista de tareas en Access que muestra las tareas con diferentes prioridades y afectaciones; ¿hay una manera de abrir ese archivo, seleccione este punto de vista, y filtrarla según un VBA (u otro) onclick evento de botón activa de mi presentación en Powerpoint?

Answer 1

Es ciertamente posible para obtener acceso a datos de Powerpoint.

Es necesario asegurarse de que tiene las referencias correctas fijados a la Microsoft DAO Object Library en su proyecto de VBA.

A continuación, para poblar el cuadro de texto en una presentación de PowerPoint, puede llamar a algo parecido a la siguiente función, por ejemplo, para devolver una cadena que contiene una lista de tareas que satisfacen los TaskPriority dado.

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