VBA Powerpoint: Veja os dados do MS Access em seus Slides.

Você pode desejar trazer dados da sua aplicação MS Office Access para seus slides, oferecendo-lhes opções
disponíveis em suas tabelas.

Posteriormente, em outro tópico, faremos isso com gráficos. No momento vale o seu estudo e ensaio
com tal funcionalidade tão relevante. Esta certamente acrescentará e tornará certos aspectos mais
apresentáveis e por conseguinte, mais profissionais.

Como sempre...Divirtam-se!


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:\Bernardes.mdb")

  Set rs = db.OpenRecordset("SELECT * FROM BernardesTable 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

Certifique-se de efetuar a referência ao "Microsoft DAO Object Library" no seu VBA project.

Para popular o seu "textbox" na sua apresentação PowerPoint, poderá chamar algo como o demonstrado na função a seguir, que retornará uma lista de conteúdo.


André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com