[Resolvido]Relacionamentos e Atualização

Mais uma vez recorro à ajuda de vocês em dificuldades que não consigo transpô-las após pesquisa exaustiva no fórum.
Em anexo, deixo meu projeto para que me ajudem a resolver três questões simples, mas que sozinho ainda não consegui resolvê-las.
Criei um formulário com os dados pessoais das pessoas (frmDadosPessoais).
Em seguida mais dois formulários (frmPeculiardades e frmEventos) onde terei que inserir em um as peculiaridades (cicatriz, deformidades, etc) e no outro os eventos em que esteja envolvido (BO, Processo, IP, etc)
Esses dois formulários foram inseridos como uma espécie de subformulário no formulário dos dados pessoais.
Dificuldades
1 - Relacionamento – Acho que não consegui relacionar as tabelas direito, pois os dados inseridos nos dois formulários não permanecem referenciados em seus respectivos registros, ou seja, ao incluir registros nestes formulários, eles aparecerem para todos os registros do formulário dados pessoais e não somente para o registro dele mesmo.
2 – Ao salvar os registros nos formulários frmPeculiaridades e frmEventos, ambos como Pop-up, não é atualizado automaticamente nas suas caixas de listagem do frmDadosPessoais. Para atualizar ou eu aperto f5 ou fecho e abro em seguida. Gostaria que fosse atualizado assim que salvasse.
3 – Gostaria que ao apertar o botão Cancelar, as alterações fossem desfeitas tanto nos dados do formulário Dados Pessoais, quanto nos outros dois. Eu inseri um comando Undo, mas ele funciona individualmente.
4 - No relatório gerado com o formulário frmDados, não consegui incluir os campos dos fromulários frmPeculiaridades e frmEventos.

Olá Veríssimo.

Vamos  do início, para que entenda.

Primeiro terá que criar as tabelas.
Nelas é que ficarão gravadas as informações ou dados.
Precisão então, definir como serão esses dados:
Começamos com a tabela tblDados.
Nela temos as informações unica de cada individuo.
Agora a tabela tblPeculiaridades.
Veja que nessa tabela tem as características do individuo,
Portanto, não há necessidade de outra tabela, já que serão dados único
para cada individuo e são apenas 3 dados que poderão
ficar juntos na primeira tabela.
A terceira tabela, tblEventos, são os delitos de cada indivíduo.
Como cada indivíduo pode cometer mais de um delito,
teremos uma relação da tblDados com essa Tabela (tblEventos]
de 1 registro na primeira tabela,para muitos da segunda.
E essa duas tabelas estão relacionadas através do Cod_Individuo.
Veja como ficou as tabelas e sua relação na imagem abaixo.
Fico aguardando que faça uma análise do que mudei e se concorda,
para prosseguirmos.

[ ]'s


obs.: os 3 últimos campos da tblDados são da tblPeculiaridades, que deletei

Noob, as Peculiaridades têm que estar em outra tabela, pois cada pessoa pode possuir muitas(tais como várias tautagens, várias deformidades, etc).
Então, com relação aos Relacionamentos, eu criei dois relacionamentos um para muitos, pois cada registro na tblDados, poderá ter vários registros nas tabelas tblPeculiaridades e tblEventos.
Porém, os registros nos formulários destas últimas tabelas não ficam referenciados a eles, sendo que os mesmos aparecem para todos os registros da tblDados.
Ao clicar em salvar as alterações nos frmEventos e frmPeculiaridades, aparece uma mensagem:

Erro em tempo de execução:'3201':
Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na tablea tblDados.

Em seguida, aponta em seguida para o depurador com o código:
Private Sub btnSalvarPec_Click()
Me.Requery
Form_frmPeculiaridades.Requery
Form_frmPeculiaridades.Recalc
End Sub

Bem, você é quem sabe

Relacionamentos se faz através do código, no teu caso o código da tblDados, a qual chamei de  cod_Individuo.

Esse  campo, cod_individuo, deve estar nas 3 tabelas,  sendo chave primaria e numeração automática,

apenas na tblDados, nas outras duas, deve ser número - inteiro longo. sem chave primária,pois

o relacionamento cuida disso. E não precisa mais de nenhum outro código.

Os formulários:

Faça um formulário Principal com 3 abas,

Na primeira aba, os campos da tblDados.

Para a segunda e terceira aba, utilize os frmPeculariedades e frmEventos,

como subformulário, arrastando cada um para a segunda e terceira aba respectivamente.

Feito isso, clique no retângulo de cada subformulário (não no formulário) por vez, e nas propriedades

Vincular campos mestre e vincular campos filho digite: cod_Individuo

Fazendo isso em cada subform, sempre que adicionar um registro na tblDados(formulario Principal) irá
quando entrar em um dos subforms, abrir um novo registros já exibindo o cod_Individuo.
Sempre que for adicionar um novo registro num dos dois subformulários,será  atrelado  ao registro que
estiver sendo exibido no formulário principal (primeira aba).

[ ]'s

Eu fiz os relacionamentos entre as tabelas, colocando o campo Código da tbDados relacionado com os campos Id_Dados_Peculiaridades e Id_Dados_Eventos, um-para-muitos, das respectivas tabelas, porém, ao clicar no comando Salvar das Peculiaridades e Eventos, apresenta a mensagme de erro:

Erro em tempo de execução:'3201':
Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na tabela tblDados.

Em seguida, aponta em seguida para o depurador com o código:
Private Sub btnSalvarPec_Click()
Me.Requery
Form_frmPeculiaridades.Requery
Form_frmPeculiaridades.Recalc
End Sub

Envie as tabelas, formulários e consulta caso haja,

para analise.

Os anexos, estão funcionando no site,  mas tem

que  comprimi-lo e  zip.

[ ]'s

O anexo está na primeira postagem do tópico.

Assim que puder eu vejo teu aplicativo.

Aguarde ...

Agradecido pela disposição.

Veríssimo

Sabe o que é Formulário principal e subformulário?

Não fez o que eu disse, dai não vai funcionar mesmo.

Onde clica para escolher os controles, escolha o controle guia,

crie 3 abas nele.

Em cada aba, irá colocar um subformulário,
siga as minhas instruções anteriores.

Em anexo, modelo realizado de acordo com aquilo que o Noobezinho  postou, porém, optei por não fazer em abas, mas a colocar os formulários frmPeculiaridades e frmEventos, dentro do frmDados.
Em seguida, coloquei duas caixas de listagem; uma para o frmPeculiaridades(listaPeculiaridades) e outra para o frmEventos(listaEventos), as quais listam os dados referentes aos respectivos formulários.
Minha dúvida que restou e que mesmo depois de muita pesquisa de exemplos ainda não resolvi, foi a de exibir nestas caixas de listagem, somente os dados referentes ao registro do frmDados atual.
Ou, seja, se abrir os três registros que inseri de exemplo, verão que ao mudar de registro no frmDados, nos formulários frmPeculiaridades e frmEventos aparecerão os dados referentes ao registro em questão do frmDados, porém, as caixas de listagem não mudam, ou seja, exibem todos os registros nelas inseridos, independentemente do registro da frmDados.
Ah! E também a não abrir o frmDados já exibindo os dados nos frmPeculiaridades e frmEventos, mas sim e suas caixas de listagem.
Como resolver isto?

Veríssimo

Onde estão as duas caixas de listagem, listaEventos e ListaPeculiaridades?

Nos frmEventos e frmPeculiaridades

Veríssimo

Taí

Acertei somente o form_Peculiaridades.

Deixei o outro pra você aprender fazendo.

[ ]'s

Ensinando a pescar, Noobezinho. Muito obrigado.
Verifiquei o que fez e implementei o seguinte na Origem da Linha do frmEventos:

SELECT tblEventos.Código_fk_tblDados, tblEventos.Ano, tblEventos.Data, tblEventos.Número, tblEventos.Tipo FROM tblEventos WHERE (((tblEventos.Código_fk_tblDados)=[Formulários]![frmDados]![Código])) ORDER BY tblEventos.Ano DESC , tblEventos.Data DESC , tblEventos.Número DESC;

Ok! Ele filtrou para um só. Porém, não altera de acordo com o registro selecionado.

Verifiquei onde podia, mas não consegui mudar isso.

O frm_Eventos tem Fonte de registro e deve ser:tblEventos

Essa consulta é para a origem da linha da listbox.

Me expressei mal, Noobezinho

A consulta eu inseri na caixa de listagem listaEventos.

Consegui agora:

Private Sub Form_Current()
Me.listaPeculiaridades.Requery
End Sub

Era o que faltava aqui!!!!

Muito obrigado pela ajuda!!!

Ótimo !

Valeu pelo retorno!

Boa sorte!

e Boas festas !