[Resolvido]Word com Dados de Consulta X um para muitos

Caros colegas, preciso da ajuda de vocês no seguinte:

** Uso Access 2003

Copiei deste Fórum o código do tópico: "Access para Word de novo" (http://maximoaccess.forumeiros.com/t2472-resolvidoaccess-para-word-de-novo#19883), o qual foi aberto pelo colega Alcides, que diz "Recebí boa ajuda do Criquio sobre um código para enviar dados para o word ...", então presume-se que a autoria seja do nosso outro colega Criquio. Fiz as minhas adaptações e funcionou perfeitamente, repassando os campos do Formulário para um Documento Word substituindo-os pelos indicadores em um arquivo Matriz do Word.

A questão é que neste Formulário "F13_Oficios" inseri mais um campo "IDExpediente" que tem sua origem baseada em 1 consulta que por sua envolve 3 Tabelas relacionadas entre si da seguinte forma:

1) Tabela "T16_Expedientes" está com Relacionamento 1 para muitos do seu campo "CodExpediente" para a Tabela "T161_AutosInfracao" com o campo "IDExpediente" (1 Expediente pode ter vários Autos de Infracao);
2) Tabela "T16_Expedientes" está com Relacionamento 1 para 1 do seu campo "IDEmpresa", para a Tabela "T15_Empresas" com o campo "CodEmpresa" (1 Expediente só pode ter 1 Empresa);
3) Então no campo "IDExpediente" do Formulário em questão seleciono dessa consulta o Expediente correspondente à empresa que interessa ao Ofício que vai ser gerado, que nesse caso pode ter vários Autos de Infraçao de uma mesma Empresa, registros esses que quero que sejam transferidos para o documento word que será gerado, ou seja, todos os registros com a numeração dos Autos de infracao de uma empresa que chegou através de um expediente.

Bom dia, vileman

Tem o campo IDExpediente, no formulário, e, a partir deste, quer gerar os 'Autos de Infracao' no Word?

Bom dia, Alexandre

Exatamente assim, o campo IDExpediente no Formulário seleciona na consulta o Expediente que tem os Autos de Infracao.

vileman,
Se tem o IDExpediente no formulário, no código para passar para o word, acrescente este onde ele lê o idexpediente:

Dim Rst As DAO.Recordset, Infraccao As Long
Set Rst = CurrentDb.OpenRecordset("SELECT IDExpediente FROM T161_AutosInfracao LEFT JOIN T16_Expedientes ON T16_Expedientes.CodExpediente=T161_AutosInfracao.IDExpediente WHERE CodExpediente=" & TxtExpediente)
Do While Not Rst.EOF
Infraccao = Rst(0)
'código para passar cada infracção para o word
...
Rst.MoveNext
Loop
Set Rst = Nothing

Alexandre,

Fiz os testes e aconteceu o seguinte:

1)Coloquei na rotina que gera o Word os comandos sugeridos e ficou assim:
PS: 1) O que está em azul foi alterado de: "TxtExpediente" para "IDExpediente", pois dava uma mensagem: "Erro 3075. Form_F13_Oficios - btword_click. Erro de sintaxe (operador faltando) na expressão de consulta 'CodExpediente='";
2) O que está em vermelho foi acrescentado conforme sua orientacao e meu entendimento.

Dim Rst As DAO.Recordset, Infraccao As Long
Set Rst = CurrentDb.OpenRecordset("SELECT IDExpediente FROM T161_AutosInfracao LEFT JOIN T16_Expedientes ON T16_Expedientes.CodExpediente=T161_AutosInfracao.IDExpediente WHERE CodExpediente=" & IDExpediente)
Do While Not Rst.EOF
Infraccao = Rst(0)
'código para passar cada infracção para o word
.ActiveDocument.Bookmarks("Campo21").Select
.Selection.Text = (CStr(Forms!F13_Oficios!NroAutoInfracao))
Rst.MoveNext
Loop
Set Rst = Nothing

OBS: No formulário uso o controle "NroAutoInfracao" não-acoplado para capturar o Nº do Auto de infracao e trazer para o formulário e por sua transferir para o documento Word gerado, conforme linha de comando na rotina acima em vermelho e sublinhado.

2) Quando tem apenas 1 Auto de Infracao funciona normalmente como antes já havia feito, mas a questão é justamente quando o Expediente escolhido tem mais de 1 Auto de Infração e aparece a mensagem de erro: "Erro 5941. Form_F13_Oficios - btword_click. O membro solicitado da coleção não existe." e não gera o documento Word.

Faltou acrescentar alguma coisa no documento Matriz do Word onde tem os Indicadores ? Ou outra coisa ?

Esqueci de mencionar: O campo IDExpediente usado no Formulário é tipo: Número - tamanho: inteiro longo.

vileman
1º Utilizei TxtExpediente, por engano
2º a variável Infraccao assume os vários valores do mesmo IDExpediente
3º a utilização será:
ActiveDocument.Bookmarks("Campo21").Select
.Selection.Text = Infraccao
4º Tem apenas 1 campo "Campo21". Assim, na 1ª vez ele apenas conterá uma infracção.
Aqui poderá concatenar todas as infracções e passá-las para o campo:
Dim Rst As DAO.Recordset, Infraccao As String
Set Rst = CurrentDb.OpenRecordset("SELECT IDExpediente FROM T161_AutosInfracao LEFT JOIN T16_Expedientes ON T16_Expedientes.CodExpediente=T161_AutosInfracao.IDExpediente WHERE CodExpediente=" & IDExpediente)
Infraccao=""
Do While Not Rst.EOF
Infraccao = Infracção & ", " & Rst(0)
Rst.MoveNext
Loop
Set Rst = Nothing

.ActiveDocument.Bookmarks("Campo21").Select
.Selection.Text = mid(infraccao,2)

Alexandre,

Dessa vez funcionou, só falta um ajuste: a rotina transporta apenas a numeração do código do campo IDExpediente selecionado, por exemplo, selecionei o IDExpediente 17 que tem 03 Autos de Infração, então ele coloca no documento Word assim, na mesma linha no sentido horizontal: 17, 17, 17. Na tabela "T161_AutosInfracao" o campo que tem a numeração de cada Auto de Infracao é o "NumAutoNovo", tentei adaptar, mas não consegui.

Além disso, teria como colocar os Autos de Infração no sentido vertical, um abaixo do outro no documento Word gerado, por conta de que cada Auto de Infração tem um valor correspondente para cada registro no campo "ValMulta" da mesma tabela: "T161_AutosInfracao", que por sua vez é capturado pelo Campo22 no documento Word ?

Desculpe amigo, não quero abusar de sua boa vontade, mas é que esqueci de mencionar esse último campo, pois estava tentando fazer essa rotina por etapas e fiquei tão focado apenas no campo Autos de Infração e acabei esquecendo esse outro.

Boa tarde, vileman
Não entendi o 2º parágrafo, mas vamos ver se adiantamos:
Dim Rst As DAO.Recordset, Infraccao As String
Set Rst = CurrentDb.OpenRecordset("SELECT NumAutoNovo FROM T161_AutosInfracao LEFT JOIN T16_Expedientes ON T16_Expedientes.CodExpediente=T161_AutosInfracao.IDExpediente WHERE CodExpediente=" & IDExpediente)
Infraccao=""
Do While Not Rst.EOF
If Infraccao="" then Infraccao=Rst(0) Else Infraccao = Infracção & vbcr & Rst(0)
Rst.MoveNext
Loop
Set Rst = Nothing

.ActiveDocument.Bookmarks("Campo21").Select
.Selection.Text = infraccao

O que faltar, explique passo-a-passo

Boa noite, Alexandre

Substitui a rotina, mas após testar várias vezes com registros de IDExpediente diferentes, agora está transportando apenas o último registro de cada IDExpediente selecionado, ou seja, sempre o último registro dos Autos de Infracao correspondente ao IDExpediente escolhido. Como ilustracao do exemplo citado no tópico anterior: Selecionei o IDExpediente 17 que tem 03 Autos de Infração, e ele transporta apenas o último registro dos 3 Autos de Infracao existentes.

Quanto ao 2º parágrafo é o seguinte:

Quando transportar o campo "NumAutoNovo" gostaria também de transportar ao mesmo tempo outro campo da mesma tabela "T161_AutosInfracao", isto é, o campo "ValMulta" correspondente a cada Auto de Infracao, ou seja, todo Auto de Infracao tem um valor de multa em reais, e se possível que quando fossem esses campos transportados para o documento Word gerado que pudessem ficar um abaixo do outro no sentido vertical.
Ilustrando ficariam assim no Documento Word:

Nome Empresa ------ Nº Auto Infracao ------------ Valor Multa
A. F. Autos Peças --- 2011.000000151523-15 --- R$ 15.500,00
A. F. Autos Peças --- 2011.000000301523-12 --- R$ 10.580,00
A. F. Autos Peças --- 2012.000000151633-69 --- R$ 25.500,00

Mas, vamos por partes, o 2º parágrafo pode esperar um pouco, coloquei apenas para você ter uma visão maior do que pretendo e se for possível, ok?

Boa tarde, vileman
Descreva as tabelas, campos e relacionamentos

Bom dia, Alexandre,

São 3 tabelas envolvidas na consulta:

1) T15_Empresas
Campos: CodEmpresa (Autonumeracao) – RazaoSocial (Texto) – CNPJ_CPF (Texto), e outros afins

2) T16_Expedientes
Campos: CodExpediente (Autonumeracao) - NumArquimedes (Texto) - IDEmpresa (Número) - DataEntrada (DataHora), e outros afins

3) T161_AutosInfracao
Campo: CodAutoInfracao (Autonumeracao) – IDExpediente (Número) - NumAutoNovo (Texto) – ValMulta (Unidade Monetária), e outros afins

No Formulário "F13_Oficios" tem o campo "IDExpediente" que tem sua origem baseada em 1 consulta que por sua envolve as 3 Tabelas acima, relacionadas entre si da seguinte forma:

1) Tabela “T15_Empresas” está com Relacionamento de associação 1 para 1 com o campo “IDEmpresa” da Tabela “T16_Expedientes” (1 Expediente tem sempre 1 Empresa associada ao mesmo): Mostra o campo “RazaoSocial”;

2) Tabela "T16_Expedientes" está com Relacionamento 1 para muitos do seu campo "CodExpediente" para a Tabela "T161_AutosInfracao" com o campo "IDExpediente" (1 Expediente pode ter vários Autos de Infracao). Mostra os campos: “NumAutoNovo”, “ValMulta” e “NumArquimedes;

3) Tabela "T16_Expedientes" está com Relacionamento 1 para 1 do seu campo "IDEmpresa", para a Tabela "T15_Empresas" com o campo "CodEmpresa" (1 Expediente só pode ter 1 Empresa):

Modo SQL da consulta acima:

SELECT T16_Expedientes.CodExpediente AS Cód, T15_Empresas.RazaoSocial, T161_AutosInfracao.NumAutoNovo, T161_AutosInfracao.ValMulta, T16_Expedientes.NumArquimedes AS [Nº Arquimedes]
FROM (T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa) LEFT JOIN T161_AutosInfracao ON T16_Expedientes.CodExpediente = T161_AutosInfracao.IDExpediente
ORDER BY T16_Expedientes.CodExpediente, T15_Empresas.RazaoSocial;

Resumo: Então no campo "IDExpediente" do Formulário em questão seleciono dessa consulta o Expediente correspondente à empresa que interessa ao Ofício que vai ser gerado, que nesse caso pode ter vários Autos de Infraçao e seus Valores de Multa de uma mesma Empresa, registros esses que quero que sejam transferidos para o documento word que será gerado, ou seja, todos os registros com a numeração dos Autos de infracao e seus correspondentes Valores de Multa de uma Empresa que chegou através de um Expediente.

No documento Word os Indicadores X Campos da consulta são:
Campo20 = RazaoSocial
Campo21 = NumAutoNovo
Campo22 = ValMulta
Campo23 = NumArquimedes

Conforme última mensagem minha, ilustrando ficariam assim no Documento Word:
Nome Empresa ------ Nº Auto Infracao ------------ Valor Multa -----NºArquimedes
A. F. Autos Peças --- 2011.000000151523-15 --- R$ 15.500,00 --- 152532
A. F. Autos Peças --- 2011.000000301523-12 --- R$ 10.580,00 --- 152532
A. F. Autos Peças --- 2012.000000151633-69 --- R$ 25.500,00 --- 152532

Novamente, vileman
1º o relacionamento entre as tabelas T15_Empresas e T16_Expedientes parece-me desadequado. Cada empresa só pode ter um expediente? Se sim, porque não deixa tudo na tabela T15_Empresas?
2 º Vamos tentar assim, retire os campos Campo20, Campo21, Campo22 e Campo23. Substitua-os por CampoDescricaoMultas. É mais intuitivo
Retire o código de preenchimento dos campos eliminados e execute o seguinte para esta parte do documento:
Dim Rst As DAO.Recordset, Infraccao As String
Set Rst = CurrentDb.OpenRecordset("SELECT RazaoSocial, NumAutoNovo, Valmulta, NumArquimedes FROM (T15_Empresas LEFT JOIN T16_Expedientes ON T15_Empresas.CodEmpresa=T16_Expedientes.ID_Empresa) LEFT JOIN T161_AutosInfracao ON T16_Expedientes.CodExpediente=T161_AutosInfracao.IDExpediente WHERE CodExpediente=" & IDExpediente)
Infraccao=""
Do While Not Rst.EOF
If Infraccao="" then Infraccao=Rst(0) & " - " & Rst(1) & " - " & Rst(2) & " - " & Rst(3) Else Infraccao = Infracção & vbcr & Rst(0) & " - " & Rst(1) & " - " & Rst(2) & " - " & Rst(3)
Rst.MoveNext
Loop
Set Rst = Nothing

.ActiveDocument.Bookmarks("CampodescricaoMultas").Select
.Selection.Text = infraccao

Se não der, disponibilize a bd

Caro Alexandre,

O princípio do projeto do BD é o seguinte:
São recebidos vários tipos de expedientes, que por sua vez dependendo do tipo de expediente terá ou não uma Empresa vinculada com Autos de Infracao e Valores de multa, nesse caso 1 expediente tem ou não 1 Empresa, então só cadastro a empresa que tiver associada a algum Auto de Infracao. No caso em tela, estou usando o Formulário de Oficios para pegar apenas esses dados e enviar para uma Promotoria de Justiça que dará prosseguimento ao processo aberto, ou melhor, expediente, então porisso seleciono o expediente com 1 empresa e seus Autos de infracao, deu para entender? A principio, pensei em fazer tudo junto, mas como nem todo expediente terá 1 empresa vinculada, resolvi separar as tabelas. Vou fazer novamente os testes e informo o resultado, caso não funcione, disponibilizarei a BD como solicitado, ok?

Agora, que você falou nesses Relacinamentos de tabelas fiquei pensando, e se nesse Ofício o usuário quiser inserir mais de 1 expediente, naturalmente com empresas diferentes e cada uma com seus Autos de Infracao, como seria, mas esquece isso, não é o caso.

Olá vileman
Para tal possibilidade teria de arquitectar o máximo de possibilidades.
Se podem existir várias empresas no mesmo expediente, teria de ter o relacionamento Expedientes <-> Empresas (relação um-para-muitos)

Boa noite, Alexandre

Realmente seria algo bem trabalhoso, espero que não seja preciso, mas vamos ao que interessa:

1) Após testar sua última rotina deu a mensagem: "Erro: 3061 - Form_F13_Oficios - btword_click. Parâmetros insuficientes. Eram esperados 1."

2) Conforme o combinado estou anexando a BD para você.

Fico no aguardo e obrigado mais uma vez.

Bom dia, vileman
Havia erro no nome do campo, em vez de IDEmpresa estava ID_Empresa
Estava um nome de variável diferente para guardar dados após o primeiro registo.

Veja agora

Dim Rst As DAO.Recordset, Infraccao As String
Set Rst = CurrentDb.OpenRecordset("SELECT RazaoSocial, NumAutoNovo, Valmulta, NumArquimedes FROM (T15_Empresas LEFT JOIN T16_Expedientes ON T15_Empresas.CodEmpresa=T16_Expedientes.IDEmpresa) LEFT JOIN T161_AutosInfracao ON T16_Expedientes.CodExpediente=T161_AutosInfracao.IDExpediente WHERE CodExpediente=" & IDExpediente)
Infraccao = ""
Do While Not Rst.EOF
If Infraccao = "" Then Infraccao = Rst(0) & " - " & Rst(1) & " - " & Rst(2) & " - " & Rst(3) Else Infraccao = Infraccao & vbCr & Rst(0) & " - " & Rst(1) & " - " & Rst(2) & " - " & Rst(3)
Rst.MoveNext
Loop
Set Rst = Nothing
.ActiveDocument.Bookmarks("CampodescricaoMultas").Select
.Selection.Text = Infraccao

Caro Alexandre,

Ficou perfeito e funcionou tudo bem, só me resta agradecer muito a você pela força, muitissimo obrigado.

Um abraço e muita Paz.