[Resolvido]Ligação Access e Word

Connekta Informatica 23/4/2012, 18:20

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº1

[Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 23/4/2012, 18:20

Boa Tarde

Estou fazendo um sistema de contrato de prestação de serviços, onde dados do contrato fica numa tabela do access.

Tenho:
1. formCadastroClientes
1. tblClinetes
1. Contrato (Word)
O seguinte: Tem como ligar os campos da tabela ao word, sendo que seja digitado no espaço correto, como exemplo,
o Nome do cliente seja preenchido no lugar do cliente no documento Word.

Alguem pode me ajudar?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

criquio 23/4/2012, 19:19

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Ligação Access e Word

Mensagem criquio 23/4/2012, 19:19

Dê uma pesquisada por Word Indicadores que temos alguns tópicos já resolvidos sobre o assunto.

.................................................................................

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.

mucascosta 25/4/2012, 19:01

mucascosta

mucascosta: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 32
Registrado : 22/01/2010

Mensagem nº3

Ligação Access e Word

Mensagem mucascosta 25/4/2012, 19:01

PatSoft,

Aqui http://www.4shared.com/folder/U9j-FA5L/_online.html tem um exemplo
EmpregadaDomestica.rar que pode ser adaptado à suas necesidades.

Connekta Informatica 26/4/2012, 17:32

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº4

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 26/4/2012, 17:32

Vou dar uma olhada e qualquer coisa eu retorno.

Obrigado.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 2/5/2012, 16:59

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº5

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 2/5/2012, 16:59

Excelente exemplo.

Mais não tem como eu criar um cadastro de clientes no access e importar para o word?

Sendo que cada dados vai para o word em seu determinado lugar.

Será que alguem pode me ajudar?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

criquio 2/5/2012, 17:08

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº6

Re: [Resolvido]Ligação Access e Word

Mensagem criquio 2/5/2012, 17:08

Você quer exportar do Access para o Word ou importar do Access no Word? Para o primeiro caso, minha dica anterior serve tambem. Para o segundo, basta criar uma mala direta no Word.

.................................................................................

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.

mucascosta 2/5/2012, 20:10

mucascosta

mucascosta: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 32
Registrado : 22/01/2010

Mensagem nº7

Ligação Access e Word

Mensagem mucascosta 2/5/2012, 20:10

PatSoft,

Com o exemplo disponibilizado, você pode adaptar às suas necessidades; inclusive para gerar mala direta com base no seu banco de dados (Tabela e/ou consulta).

Connekta Informatica 3/5/2012, 17:56

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº8

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 3/5/2012, 17:56

Eu pesquisei aqui no fórum e encontrei um exemplo que era realmente o que eu queria, estou modificando o exemplo, masi esta com um erro que não consegui resolver.
Na hora de clicar no botão "Imprimir" dá um erro.

Será que alguém pode me ajudar?

Download

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 3/5/2012, 18:23

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº9

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 3/5/2012, 18:23

E esta acontecendo um erro no Modulo, nesse pedaço:

Código:: Error_AccessToWord: ApActivate "Microsoft Access" Beep MsgBox "Error de automatizacion:" & vbCrLf & Err.Description, vbCritical, "AVISO" Exit Function End Function

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 3/5/2012, 20:59

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº10

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 3/5/2012, 20:59

Quem pode me ajudar?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 4/5/2012, 17:01

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº11

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 4/5/2012, 17:01

Eu monte o exemplo de acordo como eu queria mais esta com erro, mais não sei como resolver.

Aqui o Banco de dados:Baixar

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Mylton 4/5/2012, 21:34

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1013
Registrado : 23/08/2010

Mensagem nº12

No access 2010

Mensagem Mylton 4/5/2012, 21:34

Amigo no access 2010 dá um erro de automatização. Parâmetros insuficientes. Eram esperados 1.

Prossigo na impressão e funciona.
Imprimiu tudo.
Veja o que pode ser.

Mylton 4/5/2012, 21:37

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1013
Registrado : 23/08/2010

Mensagem nº13

Uma pimentada

Mensagem Mylton 4/5/2012, 21:37

Se fosse em dois foms como seria o comando para buscar nestes dois form tudo que está digitado nele?

**Alexandre Neves** 4/5/2012, 22:16

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº14

Re: [Resolvido]Ligação Access e Word

Mensagem Alexandre Neves 4/5/2012, 22:16

Boa noite, Mylton

Não tenho acompanhado esta dúvida. No entanto, os dados indicados são insuficientes para avaliar.
Disponibilize a bd (formato 2003) e o ficheiro word e diga o que pretende (pode anexar ficheiro word com explicação)

Connekta Informatica 5/5/2012, 12:18

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº15

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 5/5/2012, 12:18

Problema resolvido.

Em vez do Módulo:

Código:: Option Compare Database Option Explicit Public DocWord As Object ' Word.Document es asignada desde el formulario Function EscribeWord(Optional NumeroCliente As Integer) Dim RngCurrent As Object ' Word.Range Dim Rst As dao.Recordset, Sql As String Dim PastaQueDebe As Currency On Error GoTo Error_AccessToWord Set RngCurrent = DocWord.Content '-- añadimos texto de las facturas etc etc With RngCurrent .Bold = True 'En negrilla .InsertAfter "Estimado Cliente :" & vbCrLf .InsertAfter "Adjunto le remitimos relación de Facturas pendientes de pago, con el ruego, que a la mayor brevedad " _ & "se sirva pagar de una puñetera vez, que ya estamos hartos de Vd, leches." _ & " Esperamos su pronta respuesta y si no, ya sabe, irá directamente al juzgado. " .InsertAfter vbCrLf .InsertAfter vbCrLf & vbCrLf .InsertAfter "RELACCIÓN DE FACTURAS:" .InsertAfter vbCrLf .InsertAfter "=========================" .InsertAfter vbCrLf .InsertAfter vbCrLf '.ListFormat.ApplyBulletDefault 'La anterior linea es para crear puntos 'ahora metemos aqui un recodset con todas 'las Facturas de este cliente. Sql = "Select * from Facturas where IDCliente=" & NumeroCliente Set Rst = CurrentDb.OpenRecordset(Sql) While Rst.EOF = False .InsertAfter Rst("N_factura") & " " & Rst("Importe") & " " & Rst("Fecha") & vbCrLf & vbCrLf PastaQueDebe = PastaQueDebe + Rst("Importe") Rst.MoveNext Wend .InsertAfter vbCrLf .InsertAfter vbCrLf .InsertAfter vbCrLf .InsertAfter vbCrLf .Bold = True .InsertAfter "El total de su deuda asciende a " & PastaQueDebe & " Euros" & vbCrLf .InsertAfter vbCrLf .InsertAfter "Atentamente le saluda:" .InsertAfter vbCrLf .InsertAfter "Gerente de la Empresa: Er Búho, pajarraco nocturno." End With Set RngCurrent = Nothing Rst.Close Set Rst = Nothing Exit Function Error_AccessToWord: AppActivate "Microsoft Access" Beep MsgBox "Error de automatizacion:" & vbCrLf & Err.Description, vbCritical, "AVISO" Exit Function End Function

Eu deixei somente este:

Código:: Option Compare Database Option Explicit Public DocWord As Object Function EscribeWord(Optional NumeroCliente As Integer) Dim RngCurrent As Object End Function

Ai funcionou legal, disponibilizo o banco de dados abaixo:

Sistema de Contratos

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Mylton 5/5/2012, 16:06

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1013
Registrado : 23/08/2010

Mensagem nº16

O banco

Mensagem Mylton 5/5/2012, 16:06

Oi Bom dia.
Agradeço o retorno
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 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 puder me ajudar agradeço.
Bom final de semana.
Mylton

Connekta Informatica 7/5/2012, 17:35

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº17

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 7/5/2012, 17:35

Em breve retorno.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 7/5/2012, 17:38

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº18

Re: [Resolvido]Ligação Access e Word

Mensagem Connekta Informatica 7/5/2012, 17:38

O erro foi resolvido.
Dê uma olhada:

Download
Depois retorno com outras infromações.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Mylton 10/5/2012, 19:02

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1013
Registrado : 23/08/2010

Mensagem nº19

Mantenho dúvidas

Mensagem Mylton 10/5/2012, 19:02

Amigos. A solução encontrada foi de criar um tabela EmissãoContrato com todos os ítens no form EmissãoContrato. Dai aciona o botão imprimir e vai tudo.
Com certeza me ajuda e meuito. Mas a minha dúvida persiste na seguinte condição:
O access possui limites de tabela e consulta. se vc possui uma aplicação que ultrapasse esse limite vc terá que colocar em mais forms. Certo? Pois bem, como coletar esses dados de vários forms? Quando quase todos já estarão fechados com um só, onde está o comando aberto??
Se alguém puder ajudar agradeço. Obrigado.

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº20

Re: [Resolvido]Ligação Access e Word

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Ligação Access e Word

[Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

No access 2010

Uma pimentada

Re: [Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

O banco

Re: [Resolvido]Ligação Access e Word

Re: [Resolvido]Ligação Access e Word

Mantenho dúvidas

Re: [Resolvido]Ligação Access e Word

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada