MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 22/01/2010

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

    Mensagem  alanrodrigo em Seg 22 Ago 2016, 12:40

    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2324
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Seg 22 Ago 2016, 13:29

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

    [Você precisa estar registrado e conectado para ver este link.] Mensagem Nº 15


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 22/01/2010

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

    Mensagem  alanrodrigo em Ter 23 Ago 2016, 01:18

    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.


    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Ter 23 Ago 2016, 01:41

    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.

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 22/01/2010

    Exportar Dados Formulário e Tabela para o Word

    Mensagem  alanrodrigo em Ter 23 Ago 2016, 12:41

    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Ter 23 Ago 2016, 12:48

    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2324
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Ter 23 Ago 2016, 13:54

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Ter 23 Ago 2016, 15:15

    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:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    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

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 22/01/2010

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

    Mensagem  alanrodrigo em Ter 23 Ago 2016, 16:05

    ahteixeira

    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.


    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Ter 23 Ago 2016, 16:50

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

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

      Data/hora atual: Qui 08 Dez 2016, 14:03