Notifications
Clear all

Exportar para PPT

2 Posts
1 Usuários
0 Reactions
1,158 Visualizações
(@jose7br)
Posts: 67
Trusted Member
Topic starter
 

Bom dia, Uso um sistema em excel/access onde tem um tem uma tela inicial de preenchimento de cadastro.

Todo mês gero um relatório onde o excel exporta para o powerpoint. Porem, ele gera o relatório de todos que estão no sistema(200 slides), e não preciso que gere todos.
Teria como eu inserir uma nova coluna no banco ou copiar de uma coluna uma lista dos códigos para gerar o relatório?

o campo de pesquisa é um ComboBox1.

Desde já, muito obrigado a todos

 
Postado : 29/06/2017 6:37 am
(@jose7br)
Posts: 67
Trusted Member
Topic starter
 

Segue parte do código que abre a tela para gerar o powerpoint
*TAP é o nome da coluna principal

Private Sub UserForm_Initialize()
Dim ComandoSQL As String

LB_PPT.Clear
ComandoSQL = "select * from TB_RGM ORDER BY TAP"

Call Conectar
Set consulta = banco.OpenRecordset(ComandoSQL)
LB_PPT.Clear
While Not consulta.EOF
LB_PPT.AddItem consulta("TAP")
consulta.MoveNext
Wend
Call Desconectar
End Sub

 
Postado : 28/07/2017 1:15 pm