[Resolvido]Relatório em Word

Prezados bom dia,

    Estou precisando gerar um relatório que seja enviado para o word quando for executado, gostaria que me fosse enviado a forma mais básica que faça esse link com o word e como vincular os dados que ai vou adaptando.

(Maiúsculas não são permitidas e encaradas como falat de respeito. Alterei o título) Moderador VieiraSoft

Gere o relatório e adicione um botão no relatório e defina:


Private Sub SeuBotão_Click()

DoCmd.OutputTo acOutputReport, ""NomeRelatório", _
acFormatRTF, ""NomeRelatório.rtf", True


End Sub



Desculpe tinha mandado errado!

Parceiro bom dia,

Primeiro gostaria agradecer pela ajuda, mas não estou conseguindo implementar.

veja como eu coloquei o meu código:

================================================================

Option Compare Database

Private Sub Comando14_Click()
DoCmd.OutputTo acOutputReport, "Carta", _
acFormatRTF, "Carta.rtf", True
End Sub

Penso que houve uma falta de interpretação do nosso colega por causa da forma como escreveu... enviar documento para o Word. O que o amigo quer é criar a partir do access um relatório no Word. Correcto?

Existem outros exemplos, mas veja este:

Prezado Vieira,

Sim é exatamente isto que quero é através de um botão chamar o word, porém meu objetivo é o seguinte:

- Tenho uma consulta que busca alguns dados em uma tabela

- E desta consulta que gerar um relatório

- Esse relatório e pra chamar um documento word pois existem dados que são comuns a todos os relatórios

- Gostaria de um código básico, apenas para chamar o documento word e encaixar os dados nele.

- Nunca fiz esse tipo de implemento, gerava somente relatório por meio do assistente, mas agora minha solução requer que seja desta forma.

Muito obrigado a todos.

Miguel

Estude-os e aplique-os Miguel. São dois exemplos e dois tipos de métodos. Bom trabalho.

Prezado Vieira agradeço seu empenho em me ajudar, porém não estou conseguindo entender a lógica do código, pois nunca fiz nenhum comando em código no access, então acho que vou ficar com essa falta em meu projeto e fazer o relatório de forma manual. Também vou dá uma outra procurada na net e vê se acho algo para me ajudar.

Preciso de algo mais simplificado, tipo quais os comandos que chamam um documento do word?

Como exibir dados no documento?

Ai dessa forma vou montando aos poucos meu relatório.


Miguel Raimberg

Meu caro:

Tem que "fuçar" para aprender, pois de outra forma não vai conseguir implementar o que pretende, seja lá o que for na sua BD.

Se é para abrir qualquer documento externo: (seja doc ou outro)

On Error Resume Next
Dim Resultado As Variant
   Resultado = OpenFile(CurrentProject.Path & "\lmeudocumento.txt") 'não esquecer a extensão
   If Resultado <> True Then
       MsgBox Resultado
   End If

Prezados colegas,

Já não sei mais o que fazer, pois apesar de todas as dicas já postadas aqui não consigo entender o código, já estou desesperado e com vontade de para minha implementação. Pois o que eu preciso é básico mas não consigo. Meu objetivo é o seguinte, que seja gerado um relatório no word por meio de um botão, onde neste arquivo do word já contém textos que são comuns a todos os relatórios sendo acrescido apenas os campos que foram gerados pela consulta. até já consegui chamar o arquivo do word e e mostrar os registro da consulta, mas o que não consigo é colocar o resto do "texto" e a "logo" que são comum a todos.

no arquivo que é chamado está salvo o texto e a logo, mas quando abre não mostra.


Gostaria que alguém pudesse me ajudar para que eu não desista .

Miguel Raimberg

Um pitaco,

1° tem de ter um template ja feito em word, e tem de mesclar os campos que necessita.

2° esse template serve apenas de ponto de partida, porque quando abrir ja com a informação correta dos campos, terá de salvar noutro lugar.

3° este exemplo é exatamente o que necessita.


Veja a lição do Professor Osmar,
http://www.ativoaccess.com.br/mostra.artigo.php?artigo=71

Prezado JPaulo,


É exatamente essa lógica que eu necessito, porém uso o office 2007 e não estou conseguindo finalizar, até consegui exibir no word as instancias dos registros, salvei o documento de mala direta na minha pasta porém não estou conseguindo adaptar o código do botão para abrir o arquivo. Dá o seguinte erro: O Microsoft Office Access não pode localizar o objeto 'qrycadastro_Atual'. Onde 'cadastro' é a minha tabela que contém os dados.

Poderia me dá alguma ajuda para que eu possa finalizar o trabalho.

Também não consegui realizar o 7º passo, não sei como colocar os critérios.


Muito agradecido

Miguel Raimberg

Tente assim, você errou nas aspas!

Private Sub SeuBotão_Click()

DoCmd.OutputTo acOutputReport, ""Carta", _
acFormatRTF, ""Carta.rtf", True


End Sub


Tenho um programa e sempre funcionou assim....

Prezado Lupércio,

Bom dia e muito obrigado pela ajuda, mas não consegui entender sua mensagem e colocando esse código que me passou não roda, será que alguém deste forum irá poder me ajudar? o que quero é bem simples, apenas chamar um relatório no word e nesse documento já existe alguns dados que são comuns a todos os clientes. Eu utilizo o office 2007. Estou aqui quase que implorando por essa ajuda. Algumas pessoas já tentaram me ajudar, porém me enviando um código enorme e sem nenhuma explicação fica difícil, pois se eu entendesse os códigos gigantes que me mandam eu mesmo escrevia o mesmo.


Muito obrigado pela intensão da ajuda.


Miguel Raimberg

Você não necessita de implorar por nada, apenas terá de entender o que lhe passei na ultima mensagem, que é o simples e está bem explicado.

Se quiser uma ajuda mais eficaz, anexe aqui parte do seu banco e o template do word.

Prezado JPaulo,

Estou te Reenviando a mensagem:


É exatamente essa lógica que eu necessito, porém uso o office 2007 e não estou conseguindo finalizar, até consegui exibir no word as instancias dos registros, salvei o documento de mala direta na minha pasta porém não estou conseguindo adaptar o código do botão para abrir o arquivo. Dá o seguinte erro: O Microsoft Office Access não pode localizar o objeto 'qrycadastro_Atual'. Onde 'cadastro' é a minha tabela que contém os dados.

Poderia me dá alguma ajuda para que eu possa finalizar o trabalho.

Também não consegui realizar o 7º passo, não sei como colocar os critérios.


Muito agradecido

Miguel Raimberg

Prezado JPaulo,


poderia me explicar o que devo alterar nesse código para funcionar no meu?

Veja o código no comando “Contrato”:

Private Sub Contrato_Click()

On Error GoTo Err_Contrato_Click

DoCmd.SetWarnings False

Dim stDocName As String
stDocName = "qryCliente_Atual"

DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.SetWarnings True

Dim stAppNameDOC As String

stAppNameDOC = "WinWord.exe" & " " & "C:\MalaDireta\ContratoPadrão.doc"

Call Shell(stAppNameDOC, 1)

Exit_Contrato_Click:
Exit Sub

Err_Contrato_Click:
MsgBox Err.Description
Resume Exit_Contrato_Click

End Sub

Ae galera alguém pode me ajudar a resolver esse problema.

Você quer anexar parte do seu banco com o template do word ?

Sim gostaria de gerar algumas cartas num template word, pois o texto é igual para todos, mudando apenas alguns dados do cliente.

Agora em PT-BR

Você quer anexar aqui parte do seu banco com o template word, ou quer enviar para o meu email, para lhe tratar do seu caso ?

estou fazendo esse teste em um arqui a separado só para depois de testado jogar dentro do oficial, vou postar aqui para vc olhar.

Coloque a pasta em C:\

Veja o simples, ao pressionar o botão "Carta", vai colocar no template word o nome que estiver no formulario;

Veja como utilizar o Bookmark;

Resolveu ?

J Paulo,


Muito obrigado pela dedicação em me ajudar agora vai funcionar legal. Agradeço muito este espaço para tirar dúvidas.

Desta forma dou como resolvido este tópico.

Obrigado pelo retorno o forum agradece.