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]Exportação de Access para Word

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Exportação de Access para Word

    Mensagem  Mylton em 5/5/2012, 16:10

    Oi Bom dia.
    O objetivo é colocar num modelo doc tudo que está digitado em vários forms.
    Consegui este código na web e fiz algumas adaptações.
    Entretanto não consigo ir a frente por dois motivos, além é claro de não saber, rsrsrsrs.
    1) Dá erro na conexão.
    2) Como conseguiria jogar todas as patologias(que esta como um sub form)que uma pessoa pode ter para dentro do modelo do laudo?

    No link compactado com win rar o exemplo do banco no formato 2003 e 2007.
    http://dl.dropbox.com/u/26997422/Modelo%20de%20Laudo.rar
    Se puderem ajudar agradeço.
    Bom final de semana.
    Mylton
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  Mylton em 7/5/2012, 14:45

    Ok. Agradeço. Vou providenciar. Obrigado.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Help

    Mensagem  Mylton em 14/5/2012, 20:11

    Como consigo jogar de várias tabelas diferentes os campos de vários Formulários para um Documento Word????
    Sei a rotina para um form.
    Alguém pode ajudar??
    Obrigado
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Exportação

    Mensagem  Mylton em 14/5/2012, 20:18

    Antes de mais nada peço desculpas a todos por estar insistindo numa ajuda. Já enviei email a diversos, recebi ajuda valiosíssima de muitos.
    Contudo realmente preciso.
    Sei que o access possui limites para inserção de dados em tabelas, consultas etc...
    Por isto, peço ajuda.

    Alguém sabe como consigo jogar de várias tabelas diferentes os campos de vários Formulários para um único Documento Word????
    No site e na web achamos para uma tabela e form.
    Entretanto não sei fazer como jogar de várias tabelas diferentes os campos de vários Formulários para um único Documento Word e não acho em nenhum lugar o que estou precisando.
    Alguém pode ajudar??
    Obrigado
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  criquio em 14/5/2012, 20:46

    Fica meio complicado opinar sem conhecer a estrutura do sistema, em principal os filtros a serem utilizados para a exportação dos dados. Como eu disse em um outro tópico agora a pouco, eu desenvolvi um sistema para uma empresa que exporta cerca de 16 a 30 documentos entre doc e xls. Em alguns dos documentos eu utilizo marcadores em modelos feitos em doc e em outros eu crio todo o doc via vba. Em todos eu busco os dados direto nas tabelas e vários deles de várias tabelas em simultâneo. Nesse caso, declaramos um Recordset para cada tabela, devidamente filtrados. Depois, basta utilizar os mesmos procedimentos que utilizamos para uma tabela ou formulário apenas, só que aqui utilizando vários Recordsets. Veja um pequeno exemplo:

    Código:
    Dim rs As Recordset, rs2 As Recordset, rsCli As Recordset

    Set rs = DBEngine.Workspaces(0).OpenDatabase(DBPath & "\DataBase.accdb", False, False, "MS Access;PWD=SenhaDoBackEnd").OpenRecordset("SELECT * FROM tblExportaWord WHERE Código=1")
    Set rs2 = DBEngine.Workspaces(0).OpenDatabase(DBPath & "\DataBase.accdb", False, False, "MS Access;PWD=SenhaDoBackEnd").OpenRecordset("SELECT * FROM tblPedidos WHERE Código like '" & rs!NumPedido & "'")
    Set rsCli = DBEngine.Workspaces(0).OpenDatabase(DBPath & "\DataBase.accdb", False, False, "MS Access;PWD=SenhaDoBackEnd").OpenRecordset("SELECT * FROM tblClientes WHERE Código like '" & rs!NumCliente & "'")

    Dim oApp As Object
     
        Set oApp = CreateObject("Word.Application")
        With oApp
            .Visible = False
            .Documents.Add Template:=CurrentProject.Path & "\Relatórios\Arquivos auxiliares\Affidavit.doc", NewTemplate:=False, DocumentType:=0
    '============================================================================================================
            .ActiveDocument.Bookmarks("Texto7").Select
            .Selection.Text = Meses(Format(rs2!DataExport, "m") - 1) & Format(rs2!DataExport, "/dd/yyyy")
           
            .ActiveDocument.Bookmarks("Texto3").Select
    If rs!NomeCliente <> "" Then
            .Selection.Text = rs!NomeCliente
    End If
           
            .ActiveDocument.Bookmarks("Texto4").Select
    If rs2!CiaAerea <> "" Then
            .Selection.Text = rs2!CiaAerea
    End If
           
            .ActiveDocument.Bookmarks("Texto5").Select
    If rs2!MAWB <> "" Then
            .Selection.Text = CStr(rs2!MAWB)
    Else
            .Selection.Text = " "
    End If

            .ActiveDocument.Bookmarks("Texto9").Select
    If rs2!Consolidador <> "" Then
            .Selection.Text = CStr(rs2!Consolidador)
    Else
            .Selection.Text = " "
    End If

            .ActiveDocument.Bookmarks("Texto8").Select
    If rsCli!HAWB <> "" Then
            .Selection.Text = rsCli!HAWB
    End If
           
            .ActiveDocument.Bookmarks("Texto6").Select
    If rs2!NumExport <> "" Then
            .Selection.Text =rs2!NumExport
    End If
           
    '============================================================================================================
            .ActiveDocument.SaveAs CurrentProject.Path & "\Relatórios\Preparar\Affidavit.doc"

            .ActiveDocument.Close
        End With
        rs.Close
        Set rs = Nothing
        rs2.Close
        Set rs2 = Nothing
        rsCli.Close
        Set rsCli = Nothing

        oApp.Quit
        Set oApp = Nothing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    O autor desta mensagem foi removido do fórum - Ver a mensagem
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Boa noite

    Mensagem  Mylton em 15/5/2012, 00:16

    Olá Críquio Tudo bem. Obrigado por ajudar.
    Fiz esse pequeno bd como amostra (não fiz os relacionamentos).
    Meu conhecimento em VBA é inicial. To apanhando muito para montar uma estrutura em código que exporte os campos da tabela 1, 2, 3 para um modelo doc (exemplo em anexo). Onde possa ao clicar num botão todas essas informações serem enviadas para o doc.
    Não penso em filtro. Consultas acho que explode. Afinal criei bd de exame médico bem completo com várias tabelas e forms.
    Se vc tiver um exemplo parecido ou mostrar como fazer com esse pequeno bd fico grato.
    Abraços.
    http://dl.dropbox.com/u/26997422/Modelo%202007.rar
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  criquio em 15/5/2012, 00:21

    Não havia percebido que tinha dois tópicos sobre o mesmo assunto. Quando o tópico sair da lista dos mais recentes, dê uma up nele ao invés de criar outro. Assim, mantemos o fórum mais organizado e facilitamos futuras pesquisas de outros membros.

    OBS.: Eu fundi os dois tópicos.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Oi Críquio

    Mensagem  Mylton em 17/5/2012, 15:38

    Tentei criar da forma c vc postou. deu zebra.
    Vc poderia realizar uma aplicação simples com duas tabelas e três campos cada, exportando par um doc qualquer?
    Assim poderia ver como é e adaptar.
    Obrigado
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty vou ver

    Mensagem  Mylton em 18/5/2012, 14:08

    Estou longe de casa. Quando chegar verei. Obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  criquio em 18/5/2012, 14:33

    Estou meio sem tempo mas eu tinha iniciado já a criação de um pequeno exemplo. Assim que estiver pronto eu posto.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty obrigado

    Mensagem  Mylton em 18/5/2012, 15:43

    Muito obrigado criquio.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  criquio em 18/5/2012, 19:23

    Aqui está o exemplo. É bem simples, apenas para servir de guia, apesar de que incluí umas duas funcionalidades extras.

    Observe que o modelo do Word em anexo tem Indicadores ou Marcadores que serão utilizados para receber os dados. Caso seu Office seja o 2007, abra o documento, vá na aba Inserir, grupo Links e clique em Indicadores. Veja na lista os nomes dos indicadores. Clique para classificar por Local. Selecione o primeiro Indicador e clique em "Ir para" para ver o cursor posicionado no local do Indicador. Vá selecionando os outros e repita o procedimento.

    No módulo do Access, veja os nomes desses indicadores lá para entender o processo.

    O exemplo pega 4 tabelas. Fiz dessa forma para você ver como fazemos para selecionar a descrição de um produto por exemplo, que está na tabela de produtos, isso em uma lista de produtos da tabela de detalhes da venda aonde tem vários produtos vendidos e o sistema precisa pegar o nome de cada um na outra tabela.

    As funcionalidade extras são a opção de abrir o documento após a exportação e tambem de escolher se quer imprimir ou não.

    Veja se consegue entender e adaptar.
    Anexos
    [Resolvido]Exportação de Access para Word AttachmentAccessWordMaisDeUmaTabela.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 655 vez(es)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty obrigado

    Mensagem  Mylton em 18/5/2012, 20:08

    Criquio meu obrigado.
    To fora do meu estado. Segunda to em casa baixo o exemplo e vou estudar c carinho. Mais uma vez obrigado.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Erro

    Mensagem  Mylton em 24/5/2012, 14:24

    Críquio
    Quando rodo o exemplo da o seguinte erro de compilação na linha:
    Private Sub btnFinalizar_Click()

    If IsNull(Me.DataVenda) Or Me.DataVenda.Value = "" Then
    Me.DataVenda = Date

    Por que seria???
    Obrigado
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  criquio em 24/5/2012, 15:22

    Isso ocorre porque, em uma nova venda, os campos da data e da hora da finalização da venda ainda estão vazios. Acrescente uma linha para atualizá-los na tabela:

    If IsNull(Me.DataVenda) Or Me.DataVenda.Value = "" Then
    Me.DataVenda = Date
    Me.HoraVenda = Time
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Else
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Acrescentar

    Mensagem  Mylton em 24/5/2012, 19:28

    Ok vou fazer e testar. Depois eu posto. Obrigado
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 666
    Registrado : 23/08/2010

    [Resolvido]Exportação de Access para Word Empty Funcionando

    Mensagem  Mylton em 25/5/2012, 13:59

    Ok. Críquio.
    Tá redondo. Vou estudar, errar e aprender. Mas tá resolvido.
    Depois de tudo posto o que fiz.
    Abraços e mais uma vez obrigado
    avatar
    wyss2000
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 05/06/2011

    [Resolvido]Exportação de Access para Word Empty Uma dúvida!!

    Mensagem  wyss2000 em 4/8/2013, 01:03

    Boa noite Criquio,

    O Dilson me passou o link deste seu post pois eu preciso criar tabelas no Word a partir de dados existentes em um BD Access.
    Baixei seu exemplo e funcionou muito bem porém tenho duas dúvidas se puder me ajudar:

    - Em seu exemplo todos os dados de um campo são colocados em uma única célula da tabela, consegui formatar a linha para exibir linhas divisórias "por parágrafo" mas gostaria que cada registro fosse apresentado em uma linha individual, tem como?

    - Estou formatando um contrato no qual deverão ser preenchidas várias tabelas (varia a quantidade de tabelas por contrato de 1 até mais de 20 lotes) com os itens divididos como o exemplo abaixo. Tem como fazer a criação das tabelas do Word via código VBA do Access com uma cláusula Do...until...loop para os lotes? Ou uma outra forma diretamente no Word?

    LOTE I
    ITEM DESCRIÇÃO
    01 PREGO 3/8 CABEÇA CHATA
    04 PARAFUSO SEXTAVADO DE AÇO

    LOTE II
    ITEM DESCRIÇÃO
    02 CANALETA
    03 RUFO

    Conto com a ajuda de vocês. Obrigado.
    avatar
    Marcelo Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 10/08/2012

    [Resolvido]Exportação de Access para Word Empty Access para Word

    Mensagem  Marcelo Souza em 19/6/2016, 10:01

    Bom dia pessoal,

    No exemplo do Colega Criquio, deparo com o seguinte erro:
    .Documents.Add Template:=CurrentProject.Path & "\Recibo.doc", NewTemplate:=False, DocumentType:=0

    Já pus os dois arquivos em uma mesma pasta e não resolveu, o que devo fazer ?
    avatar
    Marcelo Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 10/08/2012

    [Resolvido]Exportação de Access para Word Empty Access para word

    Mensagem  Marcelo Souza em 19/6/2016, 11:00

    Prezados,

    Consegui... resolvido!
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  FabioGO em 10/9/2018, 15:25

    wyss2000 escreveu:Boa noite Criquio,

    O Dilson me passou o link deste seu post pois eu preciso criar tabelas no Word a partir de dados existentes em um BD Access.
    Baixei seu exemplo e funcionou muito bem porém tenho duas dúvidas se puder me ajudar:

    - Em seu exemplo todos os dados de um campo são colocados em uma única célula da tabela, consegui formatar a linha para exibir linhas divisórias "por parágrafo" mas gostaria que cada registro fosse apresentado em uma linha individual, tem como?

    - Estou formatando um contrato no qual deverão ser preenchidas várias tabelas (varia a quantidade de tabelas por contrato de 1 até mais de 20 lotes) com os itens divididos como o exemplo abaixo. Tem como fazer a criação das tabelas do Word via código VBA do Access com uma cláusula Do...until...loop para os lotes? Ou uma outra forma diretamente no Word?

    LOTE I
    ITEM DESCRIÇÃO
    01 PREGO 3/8 CABEÇA CHATA
    04 PARAFUSO SEXTAVADO DE AÇO

    LOTE II
    ITEM DESCRIÇÃO
    02 CANALETA
    03 RUFO

    Conto com a ajuda de vocês. Obrigado.

    Sei que o tópico é antigo, mas estava buscando algo parecido e cai aqui, servirá para ajudar outros que precisarem.

    Como precisei resolver uma situação parecida com a sua, consegui da seguinte forma abaixo

    Num laço For, adicionar linhas de acordo com a quantidade de registros da tabela a partir do bookmark desejado

    Código:
    .ActiveDocument.Bookmarks("BookMark").SELECT: .Selection.Rows.Add

    Preenche a tabela de acordo com o recordset, onde i é a localização da linha no documento word
    com o codigo ele vai preencher linha a linha com os dados do recordset

    Código:
    Do While Not rs.EOF                
          
            .ActiveDocument.Tables(1).Cell(i, 2).Range.Text = rs!NomeCampo      
                                                          
            i = i + 1
        
            rs.MoveNext
        
    Loop


    Anexei um modelo bem simples
    Anexos
    [Resolvido]Exportação de Access para Word AttachmentPreencheTabelaWord.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 44 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 22/11/2016

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  IvanJr. em 12/9/2018, 02:14

    a tempos queria um exemplo de como preencher tabela, agradeço

    Conteúdo patrocinado

    [Resolvido]Exportação de Access para Word Empty Re: [Resolvido]Exportação de Access para Word

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 16:23