Jump to content
Fórum Script Brasil
  • 0

(Resolvido) Access para o Word


Flecha
 Share

Question

Olá a todos,

Volto aqui para tentar solucionar um barreira que não estou conseguindo passar.

Estou criando um banco de dados onde armazeno dados de criminosos com fotos em uma tabela (só o caminho da foto).

Em outra arquivo dados das solicitação de reconhecimento do Criminoso (Tabela Entrevistas)

Em outra tabela arquivo os dados dos Entrevistados (Vitima ou Testemunhas) e pode ser mais de uma.

Tenho um Form para as Entrevistas Form_Entrevista com um subForm com os dados dos Entrevistados (ligados por Nº da Entrevista)

Estou tendo dificuldade para Imprimir os dados do desse Formulário para o Word pois o Nome do Entrevistado esta no SubForm e o Word não acha. Todos os dados for form principal vão para o papel sem problema, só o camo Nome que esta no sbform não vai.

Como posso fazer essa relação, já tentei montar outro form alimentado com uma consulta entre as duas tabelas mas não deu certo.

Poderia montar uma combo no form para pegar os nomes na tabela mas ai ela pega todos os nomes e não o que esta relacionado ao caso.

Espero que entendam o que quero fazer para me ajudar.

Abraços a todos.

Edited by Flecha
Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Olá,

Consegui!

Era problema de como indicar o Form.

Ficou assim:

'Move cada campo para o indicador definido no documento

.ActiveDocument.Bookmarks("Nome").Select

.Selection.Text = Trim(CStr(Forms!vitimasetestemunhas!Sub_Frm_Testemunha.Form!Nome)) <------------

.ActiveDocument.Bookmarks("Naturezadofato").Select

.Selection.Text = Trim(CStr(Me.Natureza_do_Fato))

.ActiveDocument.Bookmarks("numautores").Select

.Selection.Text = Trim(CStr(Me.NumAutores))

.ActiveDocument.Bookmarks("datadofato").Select

.Selection.Text = Trim(Me.Data_do_Fato)

.ActiveDocument.Bookmarks("horariodofato").Select

.Selection.Text = Trim(CStr(Horario_do_Fato))

.ActiveDocument.Bookmarks("localdofato").Select

.Selection.Text = Trim(CStr(Me.Local_do_Fato))

.ActiveDocument.Bookmarks("responsavel").Select

.Selection.Text = Trim(CStr(Me.Responsavel))

.ActiveDocument.Bookmarks("obs").Select

.Selection.Text = Trim(CStr(Me.OBS))

.ActiveDocument.Bookmarks("delegado").Select

.Selection.Text = Trim(CStr(Me.Delegado))

'Salva o arquivo gerado

.ActiveDocument.SaveAs "C:\Word\" & Me.NumAno & "_Entrevista" & ".doc"

Agora preciso contornar o erro que da quando a rotina acima não acha um campo no registro por estar em branco (vazio) e não é obrigatório, (Selection.Text = me.local, pois quando acontece trava o Word.doc. Gostaria que mesmo sem achar o campo ele continuasse a mesclar o documento.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.9k
    • Total Posts
      648.8k
×
×
  • Create New...