[Resolvido]Gerar todos em Word !

Pessoal alguém sabe como faço para ao invés de gerar um registro atual.. gerar todos os registros da tabela/consulta tal tipo esse banco que fiz em anexo, gera apenas o registro atual.. gostaria de saber como faço para gerar todos eles.

Obs. Esqueçam formatação etc... pois é somente para testes/estudo mesmo, meu proposito principal é aprender como posso fazer para gerar todos os registros e não apenas o especifico/atual como está acontecendo hoje.

Segue o código que está no banco também:

Código:

Private Sub Gerarword_Click()
 'Inicia o MS Word
 Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
 With oApp
 'Torna o MS Word visível
 Visible = True
 'Abre o documento base
  .Documents.Open (CurrentProject.Path & "\Recibo.doc")
 
'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("Vencimento").Select
.Selection.Text = Forms!Recibo!Vencimento
.ActiveDocument.Bookmarks("Taxa01").Select
.Selection.Text = Forms!Recibo!Taxa01
.ActiveDocument.Bookmarks("Valor01").Select
.ActiveDocument.Bookmarks("Taxa02").Select
.Selection.Text = Forms!Recibo!Taxa02
.ActiveDocument.Bookmarks("Valor02").Select
.Selection.Text = Forms!Recibo!Valor02
.ActiveDocument.Bookmarks("Taxa03").Select
.Selection.Text = Forms!Recibo!Taxa03
.ActiveDocument.Bookmarks("Valor03").Select
.Selection.Text = Forms!Recibo!Valor03
.ActiveDocument.Bookmarks("Taxa04").Select
.Selection.Text = Forms!Recibo!Taxa04
.ActiveDocument.Bookmarks("Valor04").Select
.Selection.Text = Forms!Recibo!Valor04
.ActiveDocument.Bookmarks("CPF").Select
.Selection.Text = Forms!Recibo!CPF
.ActiveDocument.Bookmarks("Nome").Select
.Selection.Text = Forms!Recibo!Nome
.ActiveDocument.Bookmarks("Parcela01").Select
.Selection.Text = Forms!Recibo!Parcela01
.ActiveDocument.Bookmarks("Parcela02").Select
.Selection.Text = Forms!Recibo!Parcela02
.ActiveDocument.Bookmarks("Parcela03").Select
.Selection.Text = Forms!Recibo!Parcela03
.ActiveDocument.Bookmarks("Parcela04").Select
.Selection.Text = Forms!Recibo!Parcela04
.ActiveDocument.Bookmarks("Total").Select
.Selection.Text = Forms!Recibo!Total

'Salva o arquivo gerado
.ActiveDocument.SaveAs ("C:\Users\Usuário\Desktop\Recibo") & "\" & "ReciboPronto " & Replace(Me.Código, "/", "-") & ".doc"
MsgBox "Documento WORD gerado com sucesso...", vbInformation
'Fecha o documento
.ActiveDocument.Close
.WindowState = wdWindowStateMaximize
'Fecha o Word
oApp.Quit

End With

End Sub

Bom dia
- crie recordset da tabela pretendida
- percorra o recordset e chame o procedimento para imprimir a cada registo

procure no fórum, existem muitas dúvidas resolvidas sobre ciclos

Bom dia Alexandre.. desculpe minha ignorância, sou ainda iniciante em acess tenho me feito muito valer aqui do fórum, tanto em pesquisas quanto em tirar dúvidas ai com toda galera que manja muito, a lógica até entendi... mas não sei fazer isso, desculpe hehehe vou precisar mais do que essa informação. Tentei procurar no fórum algo para adaptar mas não achei ao menos ao meu conhecimento por isso resolvi postar.. Se puder ao menos me dar uma iniciada ou dar uma olhada no meu banco se não for pedir muito.

Mas obrigado mesmo assim, mesmo quando não há uma resposta aqui tenho me empenhando em procurar e a estudar toda hora.. então fico no aguardo..


Obs. Ah somente uma observação do formulário ai do recibo, não sei se percebeu ele abre no word com os devidos campos já preenchidos... porém só está mandando para o Word no caso o registro atual e é quanto a isso que me refiro que gostaria que fosse todos os registros da tabela no caso e não somente o atual, não seria digamos mandar imprimir todos (direto para uma impressora) seria enviar todos para o Word abrindo ele.. e ai eu posso imprimir os que for necessário.

Abraço e obrigado mesmo assim !

ola;

Anexe o ficheiro Word, que o que está anexado não é o word recibo.

Opa que falha.. achei que tivesse anexado o arquivo Recibo.doc junto com o Recibo (banco)...segue novamente então ! que é o que teria a mesclagem digamos assim de todos os registros.. Ou seja no gerar o word ele gera no arquivo Recibos, porém da forma que está só está gerando o registro atual.

A minha pergunta é;

Como o word está mesclado, ao exportar todos os registros irá criar um word para cada registro.

Pode ser assim ?

Veja se o atende;

Download

Opa JPaulo ! Blz Era isso mesmo, porém ai me surgiu 3 dúvidas :

Obs. Coloquei o banco de novo acrescido das atualizações ref. as dúvidas

1) Quando os campos não houver valores (Taxa,Parcela) ou for 0 tipo Valor (R$ 0,00) usando exemplo no taxa01 e demais?
Tentei assim mas não deu certo, diz valores "incompatíveis" no caso na linha do rst!..

Código:

If Not IsNull(Me.Taxa01) Then
.ActiveDocument.Bookmarks("Taxa01").Select
.Selection.Text = rst!Taxa01
Else
.ActiveDocument.Bookmarks("Taxa01").Select
.Selection.Text = ""
End If
If Not IsNull(Me.Parcela01) Then
.ActiveDocument.Bookmarks("Parcela01").Select
.Selection.Text = rst!Parcela01
Else
.ActiveDocument.Bookmarks("Parcela01").Select
.Selection.Text = ""
End If
If Not IsNull(Me.Valor01) Then
.ActiveDocument.Bookmarks("Valor01").Select
.Selection.Text = rst!Parcela01
Else
.ActiveDocument.Bookmarks("Valor01").Select
.Selection.Text = ""
End If


2) No caso então havendo um "status" como poderia por exemplo imprimir somente os ativos ou vencidos ? Criei já a consulta.. porém... ai como apontar para lá ? No caso a ideia era por exemplo , "Gerar somente os Ativos ou Vencidos"

3) Gostaria de saber como faço para no final do código ele abrir a pasta onde está os arquivos no caso.

Se poder lhe agradeço muito ! Forte Abraço e desde já obrigado !

Ola;

Tudo revisto.
Atente para as novas pastas.

Antes de alterar algo, faça o teste com a pasta "Recibo" no seu Desktop.

Download

Opa é isso ai porém mais uma dúvida hehehe

Gostaria que nos valores que forem = R$ 0,00 não apareçam no caso fique "" em branco..
Tentei já algumas formas mas nada de sucesso por isso lhe pergunto novamente hehehe !

Obs. Aproveitando o gancho desse lance da consulta no caso tenho um outro projeto com botão também para buscar de uma consultaVencidos, tentei aplicar o mesmo direcionamento da mesma forma que foi feita o código VBA mas não consegui, fiz assim como está ali:

Set rst = db.OpenRecordset("select * from ConsultaVencidos")

Mas ai da o seguinte erro: Erro em tempo de execução "3061", parâmetros insuficientes. Eram esperados 1.

Saberia me dizer o que pode estar acontecendo ou o que posso ter feito de errado ? Tentei fazer os mesmos apontamentos conforme esse banco dos Recibos mas não funcionou não sei porque.

Abraço obrigado pela força !

Tratamento dos zeros para Nulo, nos valores.

Download

A segunda pergunta, o nome da consulta deve estar mal escrito, não deve ser "ConsultaVencidos", mas "ConsultaVencido".

Opa bom dia ! Bem agora sim ta redondinho lhe agradeço.

Mas quanto a segunda pergunta continua dando o erro: Erro em tempo de execução "3061", parâmetros insuficientes. Eram esperados 1.


Não é nome errado pois se não ele não acharia... ele pede é como se fosse um parâmetro ..

Vou colocar como resolvido pois o assunto principal foi... lhe agradeço mesmo pela ajuda !

Abraço !

Fico feliz.

Obrigado pelo retorno o forum agradece.

Olá boa tarde JPaulo, somente dando um retorno e lhe perguntando mais uma dúvida ou a quem souber me explicar.

Descobri o erro que estava dando na consulta que mencionei, o problema é que eu havia criado critérios de consulta para um formulário de pesquisa do tipo:

Exemplo: Como [Forms]![Formulário PesqRecibosAVenc]![txtrecavenc].[Text] & "*" ( Que serviria para buscar o texto tal documento)

Isso foi acrescido na consulta, o que ocorre é que se eu clicar na consulta ele pede um valor parâmetro... e pede para que eu digite algo, ou clico em ok e ele abre a folha de consulta, não sei porque, se souber gostaria de entender, pois usando o exemplo daqui que só acrescentei o critério = "Ativos" ou "Vencidos" não da esse erro...

Ai o que fiz foi remover esse critério e ai no código funciona normal sem dar erro. Ou seja criando uma nova consulta para usar no VBA e outra para usar no formulário pesquisa..

Segue o banco novamente para esclarecimento e para compreensão do problema e se possível e ajuste.


Abraço !

Teste;

Download

Testei da o mesmo erro, da uma olhada criei o botão TesteAtivoII e da o erro no parâmetro..


Segue novamente o banco atualizado.

Como você tem a consulta filtrada por um form que fecha, o recordset não encherga consultas com criterios de forms.

Mas como existem mil maneiras de fazer nestum, veja;

Download

Ah sim.. bem mas na verdade então não tá longe a forma que fiz mais simplista de criar uma nova consulta e só colocar o critério "X" para resolver o problema do erro no código Vba e outra para servir de consulta no caso não ? Pois nesse caso cumprem o mesmo papel (função).


Obrigado pelos esclarecimentos...

JPaulo se puder seria de grande ajuda para mim também pelo seu conhecimento se pudesse me dar uma dica nesse meu tópico também em aberto, se poder dar uma olhada ficarei muito grato também. De qualquer forma muito obrigado mesmo.. me ajudou muito.

https://www.maximoaccess.com/t34565-folha-de-lancamentos-automatizada