✔ Programação GLOBAL®: VBA Powerpoint: Populando objetos a partir do MS Office Access.

Muitos utilizam Dashboards & Scorecards, BSC - Balanced Scorecard, KPI - Key Performance Indicator, MIS - Management Information System e Relatórios diretamente nas suas apresentações MS Office Powerpoint, mas como fazê-lo? Como posso atualizar um listbox diretamente no meu Slide? Pois bem, abaixo segue código:

Function ListadoAccess(taskPriority as Integer) as String
   Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim listOfTasks as String

  Set db = DBEngine.OpenDatabase("C:\Bernardes.mdb")
  Set rs = db.OpenRecordset("SELECT * FROM ColorsTable WHERE ColorPriority=" & taskPriority, dbOpenSnapshot)

  If not rs is nothing then
    If rs.RecordCount > 0 then
      With rs
        While Not .EOF
          if listOfTask = "" then
            Let listOfTasks = !ColorName
           Else
             Let listOfTasks = listOfColors & vbCrLf & !ColorName
          End If

          .MoveNext

        Loop

      .Close
      End With
    End If

    Set rs = nothing
   End If

  Set db = nothing

  Let ListadoAccess = listOfColors
End Function

André Luiz Bernardes