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]Exportar registros do subformulário para o Word

    Compartilhe

    Betemps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 25/02/2013

    [Resolvido]Exportar registros do subformulário para o Word

    Mensagem  Betemps em Ter 10 Jan 2017, 10:52

    Estou exportando os dados de um formulário para o Word com o objetivo de garantir melhor formatação.

    Utilizo o seguinte comando para pegar os dados do formulário:

    .ActiveDocument.Bookmarks("AssuntoRA").Select
    .Selection.Text = StrConv(Form_RAEdição.Assunto, 1)

    Para pegar os dados do subformulário, utilizo o seguinte:

    .ActiveDocument.Bookmarks("ParticipanteNome").Select
    .Selection.Text = [Forms]![RAEdição]![FilhoParticipantes]![Texto23]

    O problema é quando o subformulário possui mais de um registro.
    Gostaria que neste caso, todos os registros do subformulário fossem enviados para o Word.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar registros do subformulário para o Word

    Mensagem  FabioPaes em Ter 10 Jan 2017, 18:19

    Nesse caso amigo, terá que abrir um recordSet e buscar os dados direto na tabela...

    Aqui um Exemplo, Basta você analisar 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!

    Betemps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 25/02/2013

    Re: [Resolvido]Exportar registros do subformulário para o Word

    Mensagem  Betemps em Ter 10 Jan 2017, 20:24

    Valeu fera.
    Era isso que estava procurando.
    Vou fazer as adaptações, mas já vi que vai dar certo.
    Obrigado.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar registros do subformulário para o Word

    Mensagem  FabioPaes em Qua 11 Jan 2017, 14:11

    Grato pelo retorno amigo! Até a próxima se Deus quiser!


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

    Betemps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 25/02/2013

    Re: [Resolvido]Exportar registros do subformulário para o Word

    Mensagem  Betemps em Qua 11 Jan 2017, 14:32

    Apesar de ter resolvido o tópico, não estou conseguindo exportar os campos de tipo imagem, sendo que as imagens estão vinculadas às tabelas...

    Estou procurando exemplos que exporte imagens, mas nada até agora...
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar registros do subformulário para o Word

    Mensagem  FabioPaes em Qua 11 Jan 2017, 22:19

    Olha, eu também nao sei com fazer o... Mas irei dar uma pesquisada.

    Poste aqui o exemplo pra facilitar os testes!


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

      Data/hora atual: Qua 26 Jul 2017, 03:42