[Resolvido]Exportação de Access para Word

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

boas
estive a ver a sua solicitação e é o seguinte:
1- você necessita de referenciar o projecto com «Microsoft Activex Data objecto ..? Library»

2- depois este cod é de vb6, adaptado ao access

3- o nome das tabelas Têm espaços, e em vba não sei se dá eu nunca uso nomes com espaços e não consegui ultrapassaar essa situação messmo utilizando colchetes, aspas simples etc, se dá desconheço, e pesquisei no google não vi nada.

tente alterar o projecto e depois volte cá, ou espere que alguém se pronuncie.

cumps
acao

Ok. Agradeço. Vou providenciar. Obrigado.

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

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

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

boas

Sei a rotina para um form.
Alguém pode ajudar??

posta o teu cod que eu ajudo-te a fazer a consulta de varias tabelas.
coloca uma imagem só com as tabelas necessarias e correspondentes relações.

cumps
acao

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

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.

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

boas
estive a ver o seu projecto e conforme está não tem pernas para andar.
passe por aqui

http://maximoaccess.forumeiros.com/t7499-resolvidosincronizar-tabelas-atraves-de-uma-combobox#61229
e aqui.
http://maximoaccess.forumeiros.com/t7463-filtro-listbox

faças as alterações .

Estou longe de casa. Quando chegar verei. Obrigado.

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

Muito obrigado criquio.

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.

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

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

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

Ok vou fazer e testar. Depois eu posto. Obrigado

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

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.

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 ?

Prezados,

Consegui... resolvido!

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

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

Só pra marcar o tópico.