[Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

Bom dia a todos.

Uso: Access 2003

Após buscas neste fórum, encontrei o seguinte link:
https://www.maximoaccess.com/t28564-resolvidoimportar-dados-de-uma-tabela-dando-sequencia-na-numeracao-dos-registros

Que seria o mais próximo do que desejo, e apesar de algumas tentativas para implementar mesmo porque também não atende ao que pretendo, pois é bem mais amplo:

1) Tenho um formulário ‘F06_CasosXInvestigados’ com o campo ‘IDOperacao’ que tem como origem de dados a tabela ‘T06_Investigados’; nesse campo no evento “Após atualizar” ele busca pelo campo IDOperacao o nome da Operação selecionada e atualiza os demais campos neste mesmo formulário: ‘DataEntrada’, ‘Demandante’, ‘OrgaoOrigem’ e ‘NomeOperacao’, respectivamente com os campos correspondentes da tabela ‘T13_Operacoes’. Até aqui tudo bem, consigo fazer.

Preciso que neste mesmo evento “Após atualizar”, do campo ‘IDOperacao’ além do indicado acima, faça o seguinte:
a) Perguntar se deseja importar os dados das Apreensões da Operação X, em sendo ‘Sim’:

• Fase I: No formulário ‘F134_OperacaoXApreensoesPF’  de onde os dados devem ser importados com origem de dados da tabela: ‘T134_OperacoesXApreensoes’ que tem o campo a ser importado: NomePessoa, que por sua vez tem o campo nesse mesmo formulário ‘IDPessoa’ com origem na tabela ‘T17_Pessoas’ que mostra o nome da pessoa selecionada pelo ID correspondente em uma  Caixa de Texto: NomePessoa; este campo seria importado para um novo registro no formulário ‘F06_CasosXInvestigados’ atualizando/importando para o campo ‘NomeInvestigado’ que tem como origem de dados a Tabela ‘T06_Investigados’;

• Fase II: Concomitantemente à Fase I: no formulário ‘F135_ApreensoesXMateriaisPF’ que é um subformulário do formulário acima ‘‘F134_OperacaoXApreensoesPF’ (Relacionamento Um-para-vários. Campo Mestre: CodApreensao. Campo Filho: IDCodApreensao), que tem como origem de Dados a tabela: ‘T135_MateriaisXApreensoesPF’. Sendo os seguintes campos a serem importados para novos registros: ‘MaterialApreendido’ e ‘Complemento’ para outro subformulário: ‘F061_Evidencias’ para os campos: ‘AparelhoDescricao’ e ‘Modelo’, respectivamente, que tem a tabela ‘T06_Evidencias’ como origem de dados.

Observações:
1. Na maioria das vezes, são vários tipos de materiais apreendidos por Pessoa, então a indexação das importações deverá ter como ponto de partida a Operação e  o Nome da Pessoa e assim gerar novos registros relacionados entre si, conforme detalhado acima;

2. A tabela ‘T134_OperacoesXApreensoes’ citada na Fase I está relacionada com a tabela ‘T13_Operacoes’ (Um-para-vários. CodOperacao x IDCodOperacao, respectivamente) que a princípio, entendo que não interfere na rotina desejada, que por sua vez tem o formulário ‘F13_Operacoes’ como base de toda rotina, ou seja, serve como ponto de partida para selecionar a Operação (IDOperacao) e em seguida a Pessoa envolvida a ser investigada que por sua vez teve os materiais apreendidos, conforme Fases I e II.

3. Todos os relacionamentos acima citados entre as tabelas envolvidas e formulários estão funcionando perfeitamente, apenas gostaria de acrescentar a importação de dados das apreensões de materiais para outro formulário, escolhendo a Operação e a Pessoa.

Espero tenha ficado claro, caso contrário tentarei explicar de outra forma. Caso necessário posso enviar arquivo com os formulários e tabelas da questão para melhor visualização e entendimento dos senhores.

Ola

Disponibilize o banco de dados somente com as respectivas tabelas envolvidas e os formulários.


Ate mais

Bom dia,

ok, vou preparar o arquivo para envio.

Até mais

Boa noite, Scandinavo

Segue o arquivo conforme o combinado.

Ola

fique no aguardo

Vamos tentar resolver isto por partes Fase I
veja se esta certo ai continuamos. (Mas já vou fazendo a segunda fase)

Criei uma consulta "csCodigoNomeInvestigado" para pegar o nome dos investigados para inserir na tabela "T06_Investigados"
e um codigo para fazer a adição nesta mesma tabela.

que esta no evento apos atualizar do campo ‘IDOperacao’ do formulário ‘F06_CasosXInvestigados’

ok, vou ver e depois posto o resultado.

Bom dia, Scandinavo

Aconteceu o seguinte na rotina a partir do evento ‘Após atualizar’ no campo ‘IDOperacao’:

1) Na tabela ‘T06_Investigados’ antes de atualizar pela sua rotina observei que haviam 11 registros: 10 que eu enviei e mais 1 criado por você, o último registro: CodInvestigado = 99. Esse registro estava com os seguintes dados:
CodInvestigado = 99; AnoAtual: 2019; DataEntrada: 13/08/2019; OrgaoOrigem: SDS/PE; NºDocumento: Oficio nº 099/2019; Demandante: Estevão (Secretaria); NomeInvestigado: NULO;  IDOperacao: 10; NomeOperacao:  GRALHA II

No formulário ‘F06_Investigados’ após atualizar para importar os nomes dos Investigados, aconteceu o seguinte:
a. Atualizou o último registro: CodInvestigado=99 para: CodInvestigado = 99; AnoAtual: 2019; DataEntrada: 15/08/2019; OrgaoOrigem: SDS/PE; NºDocumento: Oficio nº 099/2019; Demandante: Estevão (Secretaria); NomeInvestigado: NULO;  IDOperacao: 10; NomeOperacao:  GRALHA II. OS: Observe que mudou a data para 15/08/2019, quando antes era 13/08/2019 e manteve os demais campos inalterados. Deve ter feito isso por conta do campo 'IDOperacao' igual a 10, então atualizou esse último registro. Para testar se estava correto, exclui os 10 últimos registros e fiz a importação novamente pelo formulário e incluiu os 09 registros, isto é, até aqui está correto, mas tem as ocorrencias abaixo desses 09 registros, a saber:

b. Incluiu mais 09 registros, quando deveria ter importado apenas 07 Registros, a saber das seguintes Pessoas/Investigados:
1. Alvo 01: Código: 274 – Abelardo de Araújo Estevão
2. Alvo 02: Código: 23   – Adeilson Mauro Lira Mata Cavalcanti
3. Alvo 03: Código: 177 – Abzael Ferreira da Silva
4. Alvo 04: Código: 99   – Adriana Freitas Gomes
5. Alvo 05: Código: 236 – Alessandro Pedro da Silva
6. Alvo 06: Código: 59   – Adja Ária de Freitas Guerra
7. Alvo 07: Código: 168 – Adelmo Romero Veríssimo do Amaral

Então nesse caso, incluiu a mais 02 Registros de Pessoas/Investigados, que constam na tabela ‘T134_OperacaoXApreensoes’ mas que estão no campo ‘IDOperacao’ do Código 9, e não do Código 10, como foi o Código da Operação escolhida para a importação:
8. Código: 268 – Alexandre Mauro Lira Moura
9. Código: 285 – Alexandre Lira Cavalcanti

Observei também que na consulta de origem que você criou: ‘csCodigoNomeInvestigado’ é exatamente os 09 registros que mostra na tabela/formulário, porisso que quando da importação pegou essas 09 Pessoas, então acredito que seria necessário um ajuste nessa consulta, tentei fazer, mas o resultado foi o mesmo de 09 registros.

A ideia e a intenção feitas por você da rotina estão corretas, falta apenas esse ajuste.

Eu vi este erro da quantia de registros e já concertei . Agora no caso da edição da data o motivo foi que seu form abre no último registro e só e para teste va vai direto escolher o id operação
Executando o código
A fase 2 está quase concluída

Ola
fiz mais uma consulta para as evidencias "csEvidencias"

Observação

Abrindo o formulario F06_CasosXInvestigados indo para um novo registro e escolhendo um operação e adicionando os novos nomes
sempre vai criar um registro em branco no formulario.

e aquele seu codigo pedindo se deseja salvar antes de mudar de registros se optar por não salvar so vai desfaser os dados do registro atual
caso ja tenha importados os nomes não vai desfazer.

entao criei um form so para importação e com dois botões (mais fácil do que por um código em um só)

dica eu colocaria um campo sim/não na tabela T13_Operacoes para registrar se os dados daoperação ja foi importado evitando duplicidade.


Ver imagem em anexo

Olá,

Vou ver e depois posto os resultados.
Gostei da ideia de colocar um campo sim/não para evitar duplicidade, valeu de novo.

Boa noite, Scandinavo

Após testes aconteceu o seguinte:

1) A rotina de importação dos Nomes dos Investigados está funcionando corretamente no formulário F06_CasosXInvestigados após selecionar o campo 'IDOperacao', mas não está mostrando automaticamente os registros importados, apenas quando fecha e abre o formulário novamente aparecem os registros importados.
* coloquei o comando Me.Refresh nos eventos 'Após Atualizar' e 'Ao receber Foco' do formulário e dentro da rotina em questão, mas não funcionou.

2) Ao clicar no botão 'Inserir' aparece a mensagem:
"Erro em tempo de execução '3021'
Nenhum registro atual"
Ao Depurar: aponta em amarelo para a linha: rst.MoveFirst

* Para testar retirei/comentei essa linha e fez a importação correta das Evidencias, mas não tenho certeza que se pode fazer isso ou não ... aguardo sua orientação ...
OBS 1: peço que coloque o campo 'Modelo' no formulário 'F061_Evidencias' pois é um dos campos que vai atualizar com a importação das evidencias.
OBS 2: Também não mostra no SubFormulário 'F061_Evidencias' os registros importados quando da importaçao das Evidencias, ou seja, precisa fechar e abrir novamente o formulário principal.

PS: Conforme sua sugestão para incluir um campo Sim/Não na tabela T13_Operacoes para evitar duplicidade na importação dos dados não seria melhor na tabela T134_OperacaoXApreensoes?
     De qualquer forma como seria para inserir mais essa rotina ?

1_coloquei o comando Me.Refresh nos eventos 'Após Atualizar'
Também não mostra no SubFormulário 'F061_Evidencias'

Por isto sugeri fazer um form so para importação mas isto tambem funciona
      Me.Form.Requery
      DoCmd.GoToRecord , , acLast  'POSICIONA NO ÚLTIMO REGISTRO
      Me.CodInvestigado.SetFocus   'POSICIONA NO CAMPO: 'CodInvestigado'


2_Para testar retirei/comentei

esta linha tambem faz isto
Do While Not rst.EOF


3_ peço que coloque o campo 'Modelo' no formulário 'F061_Evidencias'

Ja esta incluido
rst2("Modelo") = rst!Complemento 'Adiciona os dados referente a evidencia

4_não seria melhor na tabela T134_OperacaoXApreensoes?

Não pois ai nesta tabela havera varios idOperacao iguais
enquanto que na tabela T13_Operacoes somente tera um unico codigo IdOperacao e é esta tabela que alimenta a cmbox


5_De qualquer forma como seria para inserir mais essa rotina ?

ver evento antes de atualizar
Obs Adicionei este novo campo a cmbox para verificação

Transformei os codigos em Funções e coloquei todos em um unico evento

'Pergunta se deseja importar

If MsgBox("Deseja importar os dados das Apreens?es da Opera??o. " & Me.IDOperacao & " ?", vbQuestion + vbYesNo, "Rotina para Importa??o") = vbNo Then

Exit Sub 'sai do codigo
Else
'chama a fun??o
Call ImportarNomes
Call ImportarEvidencias
Call MarcaImportado
End If

Me.Form.Requery
DoCmd.GoToRecord , , acLast 'POSICIONA NO ?LTIMO REGISTRO
Me.CodInvestigado.SetFocus 'POSICIONA NO CAMPO: 'CodInvestigado'

Boa tarde,

Vou verificar e informo depois, valeu!

Boa noite, Scandinavo

Aconteceu assim:

Testei no formulário 'F06_Investigados' e funcionou bem, inclusive atualiza os registros importados nos 2 formulários envolvidos como também não deixa importar se já tiver sido importado anteriormente por conta do campo 'Importado' está como [Sim] na tabela 'T13_Operacoes', mas como fica posicionado no último registro ao abrir então ele grava o IDOperacao selecionado nesse último registro - mesmo retirando esse comando de posicionar no último registro vai acontecer a mesma coisa ao abri no primeiro registro -, o que não estaria correto, porisso que agora entendi melhor sua sugestão de criar em um formulário a parte para a importação que seria o mais correto, então por conta disso inclui nesse formulário um botão de comando para chamar o 'frmImportacao', mas aconteceu o seguinte:

1. Mesmo o campo 'Importado' na tabela 'T13_Operacoes' estando marcado como [Sim] a rotina prossegue para a importação, sem bloquear esta ação.
* Coloquei no evento 'Antes de Atualizar' do formulário 'frmImportacao' a rotina que havia passado no post anterior, mas mesmo assim não funcionou.

2. Não atualiza os registros nos formulários 'F06_Investigados' e 'F061_Evidencias', precisa fechar e abrir novamente o formulário principal.

PS: Pedi para você colocar o campo 'Modelo' no formulário 'F061_Evidencias' para visualizar o campo correspondente importado, pois na rotina da importação você já o tinha incluído. Já testei e também está ok.

3. Na sua Função:
Function ImportarEvidencias() 'AUTORIA: Fórum MaximoAccess - Scandinavo 16/08/2019
onde adiciona novos dados, eu inclui os campos em negrito abaixo:

       'Adicionar os novos dados
       rst2.AddNew
       rst2("IDInvestigadoLAF") = rs!CodInvestigado       'Adiciona o codInvestigado para fazer a vinculação entre as duas tabelas T06_Investigados e a T061_Evidencias
       rst2("AparelhoDescricao") = rst!MaterialApreendido 'Adiciona os dados referente a evidencia
       rst2("Modelo") = rst!Complemento                   'Adiciona os dados referente a evidencia
       rst2("NumEvidencia") = Format(Left(DMax("[NumEvidencia]", "T061_Evidencias", "Right([NumEvidencia],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date) '18/08/2019: Comando inserido por mim
       rst2("DataEntrada") = DataAtual                          '18/08/2019: Comando inserido por mim
       rst2("PrazoAnalise") = 30                                    '19/08/2019: Comando inserido por mim
       rst2("DataPrazo") = DataEntrada + PrazoAnalise   '19/08/2019: Comando inserido por mim
       rst2("StatusLAF") = "Em Análise"

Então gostaria de sua ajuda mais uma vez no seguinte, pois tentei de várias formas, mas não funcionou apenas em 2 dos novos campos:
a. DataEntrada  => Fica como: Nulo           - para todos os registros das evidencias importadas
b. DataPrazo     => Fica como: 30/12/1899 - para todos os registros das evidencias importadas

* DataEntrada: seria igual a data do dia corrente, então já existe no formulário 'F061_Evidencias' um campo - como invisivel e fundo verde - DataAtual que captura a data do dia corrente
* DataPrazo   : seria a Data de Entrada + 30 corridos que é o valor padrão do campo 'PrazoAnalise' então a data correta seria: 18/09/2019, sendo a Data de Entrada = 19/08/2019 (hoje)

estamos terminando ...

1. Mesmo o campo 'Importado' na tabela 'T13_Operacoes' estando marcado como [Sim] a rotina prossegue para a importação, sem bloquear esta ação.
Nao basta so inserir o codigo era preciso alterar a estrutura da combo. (o campo "Importado" nao estava visivel para o codigo)


2. Não atualiza os registros nos formulários 'F06_Investigados' e 'F061_Evidencias', precisa fechar e abrir novamente o formulário principal.
simples pede para o codigo abrir um formulario e fechar o outro

DoCmd.OpenForm "frmImportacao", acNormal
DoCmd.Close acForm, "F06_CasosXInvestigados"

e depois faz o contrario

DoCmd.OpenForm "F06_CasosXInvestigados", acNormal
DoCmd.Close acForm, "frmImportacao"

3. Na sua Função:
DataPrazo   : seria a Data de Entrada + 30

calculos com datas nao são tão simples assim precisa informar o que voce deseja acrescentar se é dia mes ou ano

rst2("DataPrazo") = DateAdd("d", 30, Date) "d" para dias "m" para mes e "y" para ano


obs
rst2("NumEvidencia") = Format(Left(DMax("[NumEvidencia]", "T061_Evidencias", "Right([NumEvidencia],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date) '18/08/2019: Comando inserido por mim
precisa ter pelo menos um numero de evidencia na tabela se não da erro  DMax("[NumEvidencia]"

Scandinavo:

Ficou perfeito. Agradeço muitíssimo por tudo, pela paciência e pelos ensinamentos, pois aprendi muito com você.

Valeu mesmo. Forte abraço.

Muita Paz!

Valeu pelo retorno e boa sorte