VBA Powerpoint - Populando LISTBOX a partir do Access.

Muitos utilizam Dashboards & Scorecards, BSC - Balanced Scorecard,  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

Tags: Microsoft Office, powerpoint, listbox, access, populando, preenchendo

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com