[resolvido] Access x Word

Moderador: Avelino Sampaio

Avatar do usuário
roseli.linhares
Mensagens: 2
Registrado em: 17 Jul 2016, 13:10

[resolvido] Access x Word

Mensagempor roseli.linhares » 17 Jul 2016, 14:41

Olá agradeço desde já esta oportunidade de aprendizado!

Meu caso é o seguinte, sou novata :D rsrsrs...
Estou desenvolvendo um BD que gera um word para impressão de um documento que contem as informações do cliente como, nome, rg, cpf, endereço, assinatura e data.
Meu windows é o 10 com Access - 2013 32bits

Problema 1 :?: Abro um documento tipo mala direta do word através de um botão no formulário de cadastro de cliente, o botão pega os campos de uma consulta que criei e gera o documento no word, esta perfeito com todas as informações que preciso para impressão, mas a dificuldade é;
Toda vez que o word vai abrir ele pede pra confirmar o vinculo com a base de dados tornando chato
este procedimento, gostaria que esta tela de verificação não aparece-se ao abrir o documento do word.
Captura de Tela (122).png
Captura de Tela (122).png (7.57 KiB) Visto 581 vezes


Problema 2 :?: Gostaria que ao abrir o word só aparece-se a informação do cliente que eu escolhesse e ñ todos os registros, como eu disse sou novata e ñ sei o comando certo para usar uma consulta pra retornar somente um cliente.

Comprei o kit e tenho certeza que vou melhorar muito meus conhecimentos, sou amadora ñ trabalho com desenvolvimento mas gosto muito de aprender essas ferramentas para meu uso próprio. Estou fazendo um projeto para o escritório de advocacia do meu marido sou secretaria dele :lol:

Agradeço ao professor Avelino e a todos os programadores desta comunidade!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1839
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Access x Word

Mensagempor Avelino Sampaio » 18 Jul 2016, 12:17

Roseli,

uma solução bem interessante para o seu caso, seria cria modelos desses documentos no Word (Dotx) e em cima desses modelos gerar pelo Access os documentos preenchidos.

No Word: Para preencher o doc com dados do Access, utilizamos os INDICADORES (Bookmarks) no Word. Posicione o cursor no local aonde deseja inserir o INDICADOR, vá na guia Inserir da ribbon e clique em INDICADOR. Dê um nome ao INDICADOR.

No Word: Para visualizar os INDICADORES no documento, vá na guia Arquivo > Opções > Avançado > marque Mostrar Indicadores

Segue exemplo que fiz para um colega, com o modelo doc e Bd para gerar o doc

o Código para gerar o DC foi este abaixo:

Código:
Private Sub brGerarDoc_Click()
Dim wdApl As Object, NomeDoc$
Set wdApl = CreateObject("Word.Application")
wdApl.Documents.Open FileName:=CurrentProject.Path & "\RosanoModelo1.dotx"
With wdApl
.ActiveDocument.Bookmarks("I1").Select: .Selection.Text = Nz(Format(Me!DataProcesso, "dd \de mmmm \de yyyy"))
.ActiveDocument.Bookmarks("I2").Select: .Selection.Text = Nz(Me!Assunto)
.ActiveDocument.Bookmarks("I3").Select: .Selection.Text = Nz(Me!Instituidor)
.ActiveDocument.Bookmarks("I4").Select: .Selection.Text = Nz(Me!Recorrente)
.ActiveDocument.Bookmarks("I5").Select: .Selection.Text = Nz(Me!Processo)
.ActiveDocument.Bookmarks("I6").Select: .Selection.Text = Nz(Me!Notificação)
.ActiveDocument.Bookmarks("I7").Select: .Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I8").Select: .Selection.Text = Nz(Me!Manifestação)
.ActiveDocument.Bookmarks("I9").Select: .Selection.Text = Nz(Me!Origem)
.ActiveDocument.Bookmarks("I10").Select: .Selection.Text = Nz(Me!Estudo)
.ActiveDocument.Bookmarks("I11").Select: .Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I12").Select: .Selection.Text = Nz(Me!Estudo)
NomeDoc = "Doc-" & Nz(Replace(Me!Assunto, " ", "")) & "-" & Format(Now, "hhmmss") & ".doc"
.ActiveDocument.SaveAs CurrentProject.Path & "\" & NomeDoc
.ActiveDocument.Close
.Quit
End With
Set wdApl = Nothing
MsgBox "Carta gerada com sucesso..." & nomeDoc, vbInformation, "Aviso"
End Sub


Aguardamos
Anexos
Rosano.zip
(39.72 KiB) Baixado 89 vezes
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
roseli.linhares
Mensagens: 2
Registrado em: 17 Jul 2016, 13:10

Re: Access x Word

Mensagempor roseli.linhares » 19 Jul 2016, 12:45

Olá Mestre ficou perfeito!

Tudo resolvido e lindo, gratidão! ;)

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Access x Word”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante