[Resolvido]Exportar Dados Formulário e Tabela para o Word

Bom dia, tudo bem?

Eu utilizo um código que consegui no fórum que exporta dados para word.

O código funciona perfeitamente.

Entretanto, tenho agora a necessidade de exportar além dos dados do formulário, algumas informações que estão em uma tabela.

Já até tentei adaptar outros códigos que encontrei em alguns tópicos, mas só consigo exportar o primeiro registro da tabela, os demais eu não estou conseguindo sucesso.

Por favor, alguém poderia me ajudar. WordAccess

Amigo, nao consegui saber quais dados pretende exportar... Porem aqui ha um topico onde exporta dados de varias tabelas, realizando Loop... acredito ser o que precisa...

Aqui um Exemplo, Basta vcs analisarem o que foi feito e adaptar...

https://www.maximoaccess.com/t7607-resolvidoexportacao-de-access-para-word Mensagem Nº 15

Fabio,

Boa noite, agradeço a dica.

Esclareço que eu desejo exportar para o word os dados que estão no formulario nos campos: txtNome + TxtCidade + TxtDataNascimento, e os cheques que estão na tabela "tblcheque" vinculado ao formulario pelo numero do campo: codigoingresso

Os dados que estão no formulário são exportados corretamente, mas a minha dificuldade está em exportar os dados da tabela "tblcheque".

Adaptando o modelo indicado, eu até avancei. Mas só estou conseguindo exportar o primeiro registro no mesmo numero de registros existentes na tabela para o mesmo codigoingresso.

Exemplo:

O que eu gostaria de exportar era:

PEDRO ALVARES CABRAL
RIO DE JANEIRO
01/01/1900

RELAÇÃO DOS CHEQUES

12345
12346
12347
9995
9996
9997

Mas só estou conseguindo exportar o primeiro registro:

PEDRO ALVARES CABRAL
RIO DE JANEIRO
01/01/1900

RELAÇÃO DOS CHEQUES

12345
12345
12345
9995
9995
9995


Pela atenção agradeço, pois não consigo identificar o que está errado no código ou faltando.

AccessWord1



Obrigado.

Olá Alan Rodrigo,
Ao tempo que é membro já deveria saber que não é se pode tirar duvidas no Repositório de Exemplos.
Tópico movido.
Abraço a todos.

Bom dia, pessoal.

Retomando o tópico a partir daqui (o anterior foi corretamente fechado pois iniciei em local errado).

Tenho utilizado um código adaptado de um exemplo conseguido neste fórum, que exporta dados do formulário para o word. Além disso, após uma dica do amigo "FabioPaes", tentei adaptar um código do colega "Criquio" para também exportar dados de uma tabela para o word.

Melhor esclarecendo, o que eu desejo exportar para o word são os dados que estão no formulário "Forms" nos campos: txtNome + TxtCidade + TxtDataNascimento, e os cheques que estão na tabela "tblcheque" vinculado ao formulario pelo numero do campo: codigoingresso

Os dados que estão no formulário são exportados corretamente, mas a minha dificuldade está em exportar os dados da tabela "tblcheque".

Adaptando o exemplo do amigo "Criquio", eu até avancei. Mas só estou conseguindo exportar somente o primeiro registro da "tblcheque" no mesmo nÚmero de registros existentes na tabela para o mesmo codigoingresso.

Exemplo:

O que eu gostaria de exportar era:

PEDRO ALVARES CABRAL
RIO DE JANEIRO
01/01/1900

RELAÇÃO DOS CHEQUES

12345
12346
12347
9995
9996
9997

Mas só estou conseguindo exportar o primeiro registro:

PEDRO ALVARES CABRAL
RIO DE JANEIRO
01/01/1900

RELAÇÃO DOS CHEQUES

12345
12345
12345
9995
9995
9995


Pela atenção agradeço, pois não consigo identificar o que está errado no código ou faltando.

Segue o arquivo: AccessWord1



Obrigado.

Olá Alan Rodrigo,
O outro tópico foi movido para outra sala, pela razão apontada e não está dado como resolvido, conforme refere.

Recomendo a leitura das REGRAS DO FÓRUM
1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Uma vez que a questão é a mesma este tópico será fundido com o outro.
Abraço

Se algum amigo puder verificar o problema no exemplo do amigo e aplicar a solução apresentado por mim na mensagem anterior... Pois estou impossibilitado de fazer esses testes... Sem Computador no momento...

Olá Alan Rodrigo, onde tem:

Código:

Dim rsRelacaoCheque As Recordset
Dim vDesc As String, vAgencia As String

Do While Not rsCheque.EOF
Set rsRelacaoCheque = CurrentDb.OpenRecordset("SELECT * FROM tblCheque WHERE CodigoIngresso=" & Me.CodigoIngresso & "")
If codigo > 0 Then
vDesc = rsRelacaoCheque!ContaCorrente
vAgencia = rsRelacaoCheque!Agencia
Else
vDesc = vDesc & vbCrLf & rsRelacaoCheque!ContaCorrente
vAgencia = vAgencia & vbCrLf & rsRelacaoCheque!Agencia
End If
rsCheque.MoveNext
Loop

Alterar por:

Código:

Dim rsRelacaoCheque As Recordset
Dim vDesc As String, vAgencia As String
        
    Set rsRelacaoCheque = CurrentDb.OpenRecordset("SELECT * FROM tblCheque WHERE CodigoIngresso=" & Me.CodigoIngresso & "")
    Do While Not rsRelacaoCheque.EOF
        Debug.Print rsRelacaoCheque.AbsolutePosition
        If rsRelacaoCheque.AbsolutePosition = 0 Then
            vDesc = rsRelacaoCheque!ContaCorrente
            vAgencia = rsRelacaoCheque!Agencia
        Else
            vDesc = vDesc & vbCrLf & rsRelacaoCheque!ContaCorrente
            vAgencia = vAgencia & vbCrLf & rsRelacaoCheque!Agencia
        End If
    rsRelacaoCheque.MoveNext
    Loop


Acho que o problema estava no recordset, veja:


Tente fazer indentação do código fica mais fácil, se tiver dúvidas efetue uma pesquisa aqui no fórm.
Por último recomendo a leitura das Regras do Fórum, tenha mais atenção.

Abraço e bons estudos com o MaximoAccess

Bom dia, tudo bem?

Obrigado pelo retorno, funcionou perfeitamente. Lembrarei nos créditos.

Agradeço também pelas alterações nos tópicos, terei mais atenção não próxima.

Agradeço ainda ao FabioPaes pela força.

Olá Alan Rodrigo,
Fico feliz por ter ajudado na resolução.

Quanto às mensagens das regras, por vezes até podemos ser mal interpretados.
No entanto, damos o nosso contributo, tentando manter a "casa arrumada".
Para todos podermos usufruir deste excelente fórum que é o MaximoAccess
Abraço todos

Olá Alan Rodrigo,

Aparentemente será só ajustar na instrução SQL para não incluír "determinado Indicador".
Toca a por a mão na massa.

Abraço