Views

Histats

Vitrine

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

✔ VBA Brazil®

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