[Resolvido]Mesclagem dos registros do subform com o word

Olá,
Já li no forum sobre mesclagem mas não estou conseguindo e portanto resolvi postar meu problema com os amigos para me ajudarem.

Trata-se de uma tentativa de criar um programa com dados de "Criminosos" dados pessoais e fotos e outros dados de entrvistas com vítimas ou testemunhas do "Delito' para reconhecimento fotográfico.

Após o reconhecimento os dados salvos nas tabelas aparecem em um fom principal(Entrevista) e subform (Testemunhas ou vitimas).

Não consigo mesclar os dados do subform, só consegui o nome e o RG (docto) os demais dados não são reconhecidos.

A chamada do preenchimento é esta:
'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.NaturezadoFato))
.ActiveDocument.Bookmarks("NumIp").Select
.Selection.Text = Trim(CStr(Me.NumIP))
.ActiveDocument.Bookmarks("Numfotoreco").Select
.Selection.Text = Trim(CStr(Me.NumFotoReco))
.ActiveDocument.Bookmarks("NomeC").Select
.Selection.Text = Trim(CStr(Me.NomeC))
.ActiveDocument.Bookmarks("RG").Select
.Selection.Text = Trim(CStr(Me.Rg))
.ActiveDocument.Bookmarks("numautores").Select
.Selection.Text = Trim(CStr(Me.NumAutores))
.ActiveDocument.Bookmarks("datadofato").Select
.Selection.Text = Trim(Me.DatadoFato)
.ActiveDocument.Bookmarks("horariodofato").Select
.Selection.Text = Trim(CStr(HorariodoFato))
.ActiveDocument.Bookmarks("localdofato").Select
.Selection.Text = Trim(CStr(Me.LocaldoFato))
.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))
.ActiveDocument.Bookmarks("NomeC1").Select
.Selection.Text = Trim(CStr(Me.NomeC))
.ActiveDocument.Bookmarks("RG2").Select
.Selection.Text = Trim(CStr(Me.Rg))
.ActiveDocument.Bookmarks("Numfotoreco1").Select
.Selection.Text = Trim(CStr(Me.NumFotoReco))
.ActiveDocument.Bookmarks("vulgo").Select
.Selection.Text = Trim(CStr(Me.Vulgo))
.ActiveDocument.Bookmarks("pai").Select
.Selection.Text = Trim(CStr(Me.Pai))
.ActiveDocument.Bookmarks("mãe").Select
.Selection.Text = Trim(CStr(Me.Mãe))
.ActiveDocument.Bookmarks("natural").Select
.Selection.Text = Trim(CStr(Me.Natural))
.ActiveDocument.Bookmarks("UF").Select
.Selection.Text = Trim(CStr(Me.UF))
.ActiveDocument.Bookmarks("endereço").Select
.Selection.Text = Trim(CStr(Me.Endereço))
.ActiveDocument.Bookmarks("bairro").Select
.Selection.Text = Trim(CStr(Me.Bairro))
.ActiveDocument.Bookmarks("Naturezadofato1").Select
.Selection.Text = Trim(CStr(Me.NaturezadoFato))
.ActiveDocument.Bookmarks("numautores1").Select
.Selection.Text = Trim(CStr(Me.NumAutores))
.ActiveDocument.Bookmarks("NumIp1").Select
.Selection.Text = Trim(CStr(Me.NumIP))
.ActiveDocument.Bookmarks("datadofato1").Select
.Selection.Text = Trim(Me.DatadoFato)
.ActiveDocument.Bookmarks("horariodofato1").Select
.Selection.Text = Trim(CStr(HorariodoFato))
.ActiveDocument.Bookmarks("numbo").Select
.Selection.Text = Trim(CStr(NumBO))
.ActiveDocument.Bookmarks("localdofato1").Select
.Selection.Text = Trim(CStr(Me.LocaldoFato))
.ActiveDocument.Bookmarks("delegacia").Select
.Selection.Text = Trim(CStr(Me.Delegacia))
.ActiveDocument.Bookmarks("obs1").Select
.Selection.Text = Trim(CStr(Me.OBS))
.ActiveDocument.Bookmarks("responsavel1").Select
.Selection.Text = Trim(CStr(Me.Responsavel))

'.ActiveDocument.Bookmarks("Nome").Select
'.Selection.Text = Trim(CStr(Forms!vitimasetestemunhas!Sub_Frm_Testemunha.Form!Nome))
'.ActiveDocument.Bookmarks("Docto").Select
'.Selection.Text = Trim(CStr(Forms!vitimasetestemunhas!Sub_Frm_Testemunha.Form!Docto))


Essas ultimas que estão como comentário não estão sendo reconhecidas, não sei o motivo, pois a Primeira lá no topo (Nome) funcionou normal. E é no inicio da 1ª folha do Word.

Depois na segunda folha Pego os dados do Crime e Criminoso e deu certo, mas quando vou colocar os da testemunhas não vai.


Depois vou tentar anexar o MDB

Obrigado

anexa o bd para ver o que se pode fazer

Olá,
Estou tentando anexar o arquivo,

Tem que ficar a pasta na Raiz e criar uma outra pasta Word também na Raiz para o documento .Doc
OBS: Não enviei as pastas das fotos, pois o arquivo fica muito grande mesmo compactado, mas para a dúvida basta os arquivos anexados.

Ok, eu tenho uma bd que me cria oficios e outros documentos word
eu utilizo um comando que me cria um novo relatório word para posteriormente imprimir ou enviar por mail.
ve o exemplo de onde tirei a ideia para a minha bd

no entanto, não utilizo muito visto os documentos que emito serem no âmbito de investigação criminal e haver mais pessoas com acesso ao meu pc, crio os mesmos em pdf para não ser possivel ser alterados a não ser por mim da propria bd onde altero e substituo.

Caso estejas interessado em alterar para pdf, ve aqui onde estou a tirar algumas duvidas e coloquei um extrato da minha bd. Não a coloquei toda devido a ter 760 mb

http://maximoaccess.forumeiros.com/t8897-nova-ajuda-com-campos-memo-numerados

Toyebom, obrigado, vou estudar seu exemplo, me parece uma nova forma de mesclagem com o Word.

O que me pediram foi o seguinte:
Tem um a Tabela de Fotos e dados de "pessoas" tab Dados Base , chave primaria RG.
Tem uma tabela Entrevista de pessoas que vem ver as fotos Tab Entrevista chave primaria Entrevista.
Pode acontecer duas situações na Entrevista;
1- Não reconhece ninguém na foto.
1a- Salva os dados do Entrevidtado em uma tabela Tab Testemunha e gera (mescla) o .doc com o Modelo Negativo. (Esse sem problema já consegui)
2- Reconhece uma foto: Ai vai Salvar os dados do Entrevistado na Tab Testemunha, que é alimentada por um SubForm no Form Principal tendo como FILHO nº da Entrevista da Tabela Entrevista. e vai gerar o .Doc Positivo que é o Relatório com os dados:

Do Testemunha que esta na tab testemunha.
Do Fato que esta na tab Entrevista.
Do RECONHECIDO que esta na Tab dados base.

Para esses dados eu fiz uma consulta de referência cruzada usando as três tabelas e assim
coloquei de origem em um form Principal (com os dados da entrevista e foto e RG do reconhecido)e com subform (com os dados da Testemunha), só que para por no Word os dados da Testemunha é que não consigo referênciar. sempre informa que não localiza ou não reconhece o campo !!!!!

É complicado para explicar, entre no exemplo e clique em Entrevistas com Reconhecimento , no Botão Negativo esta OK, mas no botão Positivo, não imprime tudo que Quero falta os dados da Testemunha!!!!

estuda a bd que te enviei, dessa forma julgo que resulta

toyebom,
Retornando os testes.

Adaptei ao meu caso e estou conseguindo com algumas ressalvas:

1- Como tenho um subformulário no principal que grava as testemunhas ou Vítimas pode haver mais de um registro e quando tem mais de um ele só mescla os dados do primeiro registor do SubForm, não adianta colocar clicar e marcar o segundo ou terceiro que ela sempre pega os dados do primeiro.

2- tem uma campo {vulgo} (é tipo texto) que sempre dá erro de tipo de dados incompativel, não sei porque? E isso quando ele esta vazio, parece que quando tem dados ele mescla.

3- Teria como formatar alguns dados no word Ex: o RG está armazenado assim 1234567, gostaria que imprimisse assim 1.234.567. É possível?

Abraços

quanto ao erro, dá porque torna os campos de preenchimento obrigtórios, nesse caso eu coloco um ".", não sei como corrigir.
Quanto ao ponto 1 e 2, não sei como fazer, mantem a pergunta no forum pode ser que alguem possa ajudar.

Porque não guardas em PDF? é mais leve e tem mais seguranças contra alterações. Se queres alterar posteriormente o PDF é só ir á BD, alterar e guardar de novo que ele é substituido.

toyebom,

Obrigado, realmente nõa achei nada que contorne o erro de quando o campo esta vazio, tanto nessa forma de mesclagem como nas outras.

Vou aguardar ver se algum dos amigos Experts aqui do forum consiga me ajudar sobre os outros problemas.

Quanto a gradar em PDF, não entendi!! Salvar o arquivo em PDF e Imprimir?, pois eu só imprimo não preciso salvar, pois depois deleto os docs. emitidos.

Mas como faço para gerar o PDF pelo access ?

vê esta mensagem

http://maximoaccess.forumeiros.com/t9034-resolvidorelatorio-em-pdf-gera-salva-mas-nao-fica-aberto

toyebom,

Vou aguardar se alguém sabe a solução do erro quando vazio.

Dessa forma tem como colocar foto no docto word ?

e pa quanto a isso não te posso responder, nunca experimentei, tenta uma pesquisa no forum pode ser que encontres.
Se eu encontrar alguma coisa digo-te.

ok ve este topico julgo que deve ser isso

http://maximoaccess.forumeiros.com/t7021-resolvidoformulario-x-word-x-inserir-imagem-figura?highlight=imagem+word

se vires bem tambem explica algo sobre o erro

ok estive a pesquisar e encontrei isto, ve se serve, também fala de erros

http://maximoaccess.forumeiros.com/t7021-resolvidoformulario-x-word-x-inserir-imagem-figura?highlight=imagem+word

Olá,
Pensei que já estava resolvido mas ainda estou com um problema!

Tenho o FormPrincipal com um Subform alimentados por uma consulta envolvendo 3 tabelas.

No formPrincipal tem um Botão para mesclar para o Word
Acontece que tem registro do FormPrincipal que tem vários registros no Subform e quando vai mesclar ele só mescla os dados do Formprincipal e o do PRIMEIRO registro do subform.
Não adianta colocar o cursor no 2º ou 3º registro do subform que ele pega sempre os dados do 1º.

Já mudei o Subform para Formulario simples e Folha de dados e não vai.

Com o Subform em Formulário Simples coloquei o o botão de Comando patra mesclagem dentro dele e ai ele pega os dados do subform como eu quero e do registro que quero do subform, mas os dados do Form principal vem todos em branco a rotina não lê eles.

Como faço para no código VBA informar que é no FormPrincipal para pegar os dados?

Caro usuário, estás abrindo tópicos para a mesma dúvida. Isto contraria as regras do Fórum e pode ter seu status de respeito as regras diminuídos. Atente para isso.

O usuário Toyebom está a lhe dar atenção à mesma dúvida no tópico:

http://maximoaccess.forumeiros.com/t9088-mesclagem-dos-registros-do-subform-com-o-word

Esse tópico Será fundido a este.


Moderação

Bom,

Será que alguém pode me explicar ou orientar nesta dúvida.

Continuo com problema de mesclagem para o Word buscando no formPrincipal e no SubForm.

Nessa forma eu entendi que foi fornecido o Caminho:

'.ActiveDocument.Bookmarks("Nome").Select
'.Selection.Text = Trim(CStr(Forms!vitimasetestemunhas!Sub_Frm_Testemunha.Form!Nome))
'.ActiveDocument.Bookmarks("Docto").Select
'.Selection.Text = Trim(CStr(Forms!vitimasetestemunhas!Sub_Frm_Testemunha.Form!Docto))
mas não funcionou!

Dessa forma:

Cambio.Execute "{endereço}", False, , , , , , , , Endereço, 2
Cambio.Execute "{natural}", False, , , , , , , , Natural, 2

Tem como fornecer o caminho ?
Gostaria de entender essa linha ,"(endereço)", False,,,,,,,,Endereço, 2

Pois dessa forma ele mescla direitinho , só que ao pegar os dados do Subform só pega do Primeiro registro, como fazer para pegar os dados dos demais registros do Subform?

Toyebom,

Consegui colocar a foto no word dessa maneira


Coloquei uma imagem no word e inclui o indicador no caso com o nome de image1
depois inclui essas linhas na função do botão de mesclar. Tirei aqui do forum mesmo acho que é dica do Criquio.


MiWord.ActiveDocument.Bookmarks("image1").Select
MiWord.Selection.InlineShapes.AddPicture FileName:="" & Forms!vitimasetestemunhas!LocalFoto & "", LinkToFile:=False, SaveWithDocument:=True

Agora quero depois que mescla e salva o documento o proprio access abre para imprimir mas não estou conseguindo.

Esta assim:

Call MiDoc.SaveAs(CurrentProject.Path & "\POSITIVA_" & NumEntrevistado & ".doc")
MiWord.Quit
Set MiWord = Nothing
Set MiDoc = Nothing
Set Cambio = Nothing
Call MiDoc.openas(CurrentProject.Path & "\Entrevista Numero " & NumAno & ".doc")
'DoCmd.RunMacro "Mensagem de Final"

Dá o seguinte erro:
erro em tempo de execução "91"
A variável do objeto ou a variável do bloco 'With' não foi definida.

Pessoal,

Andei mudando meu formulário e parece que acertei o problema de mesclagem.

Agora só quero mudar essa linha, que é a que salva o (Doc) mesclado:

Call MiDoc.SaveAs(CurrentProject.Path & "\POSITIVA_" & NumEntrevistado & ".doc")


Quero que salve em:

C:\Word\ e o resto ele pega momo esta na linha anterior & "\POSITIVA_" & NumEntrevistado & ".doc"

Acho que ficaria assim:

Call Midoc.SaveAs ("c:\Word" &"\Positiva_&NumEntrevistado & ".doc")

Acontece que deve ter erro pois ao sair da linha já fica em Vermelho.
com a informação que era esperado fim de instrução?

Os mestres podem corrigir a linha para mim?

A como andas este tópico amigos?


Cumprimentos.

Já acertei de uma outra forma.

Agradeceriamos se postasse o resultado para consulta dos membros que possuam a mesma duvida.

Cumprimentos.

Opa! Desculpe!

Ficou meio "Frankstein", pois pega daqui e pega dali:

Coloquei no final depois que salvei e encerrei o Word as linhas abaixo:

Começo da rotina acima
.
.
MiWord.Quit
Set MiWord = Nothing
Set MiDoc = Nothing
Set Cambio = Nothing

Daqui para baixo foi o acerto.

Dim w As String 'ROTINA: Abrir arquivo automaticamente após ser gerado
Dim y As String
w = "C:\RecoFoto\"
y = "C:\Recofoto\" & "Negativo_" & Forms!formgeral!SubEntrevistado.Form!NumEntrevistado & ".doc"

' No diretorio c:\Word
w = "C:\Word\"
y = "C:\Word\" & "Negativo_" & Forms!formgeral!SubEntrevistado.Form!NumEntrevistado & ".doc"


Shell "D:\WINDOWS\explorer.exe """ & y & "", vbNormalFocus

Funcionou no que eu precisava.

O Fórum agradece o Retorno.