MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Gerar todos em Word !

    Compartilhe
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 30/10/2018, 19:57

    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
    Anexos
    Recibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 10 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7060
    Registrado : 05/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Alexandre Neves em 31/10/2018, 08:42

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 31/10/2018, 12:32

    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 !
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 31/10/2018, 13:22

    ola;

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 31/10/2018, 15:13

    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.
    Anexos
    Recibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (103 Kb) Baixado 2 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 31/10/2018, 15:40

    A minha pergunta é;

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

    Pode ser assim ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 31/10/2018, 16:23

    Veja se o atende;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 1/11/2018, 18:53

    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 !
    Anexos
    Recibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 2/11/2018, 14:30

    Ola;

    Tudo revisto.
    Atente para as novas pastas.

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

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 5/11/2018, 17:19

    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 !
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 6/11/2018, 10:00

    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".




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 6/11/2018, 11:07

    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 !
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 6/11/2018, 12:48

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 6/11/2018, 16:28

    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 !
    Anexos
    Recibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (111 Kb) Baixado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 6/11/2018, 16:45

    Teste;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 6/11/2018, 16:56

    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.
    Anexos
    Recibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (101 Kb) Baixado 2 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10360
    Registrado : 04/11/2009

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  JPaulo em 6/11/2018, 17:40

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/04/2018

    Re: [Resolvido]Gerar todos em Word !

    Mensagem  Leonardo Favale em 6/11/2018, 17:53

    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.

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

      Data/hora atual: 23/1/2019, 08:21