Views

Histats

Vitrine

VBA Powerpoint - Populando LISTBOX a partir do Access.

training-header.jpg

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



TagsMicrosoft Office, powerpoint, listbox, access, populando, preenchendo

André Luiz Bernardes
A&A® - Work smart, not hard.


✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias