[Resolvido]Agenda Telefônico com origem de vários forms

Boa noite todos.
Nesse banco projeto chamado contatos.
Onde tem 5 tabelas de cadastro de diversos tipos profissionais diferentes (autor, réu, advogado e perito) e outra denominada vara.
Nela todos tem campos com nome, telefone 1 e 2 e email.
A ideia seria criar uma consulta que unisse todos esses dados para que pudesse ser utilizada no form pesquisa contatos.
Até tentei criar uma consulta baseada numa relação...mas empaquei.
Criei uma 6 tabela para receber esses dados.....
mas não deu.
abaixo o anexo com a idéia e as fontes originais.
Obrigado.

Amigo, ainda nao vi seu BD... Mas pra que a necessidade de todas estas tabelas com os mesmos campos? Que Tal Criar uma Unica Tabela chamda CadPessoas (nela vc coloca todos os dados pessoais, tais como, nome, rg, cpf, endereço, profissaoetc...) Nela vc lança os Advogados, os Reus, os Autores... todos nela...

O Detalhe esta em uma segunda Tabela chamada de Ligação (chamda tbEnvolvimento por exemplo) e nela vc ira dizer qual o relacionamento  Da pessoa XXXX Com o Processo yyyyyy. Nessa tabela so tera campos basicos como: CodPessoa, CodProcesso, Envolvimento.... Bem simples mesmo


Assim evita problemas futuros de recuperação dos dados para relatorios... Alem de ser bem mais pratico.

Veja aqui na Mensagem Nº08 que montei um exemplo pra alguem do Forum, pra um sistema Igual o que vc quer...

https://www.maximoaccess.com/t26138-resolvidovarios-autores-e-reus-associados-a-um-cadastro

Bom dia Fábio
Segui sua dica.
E quebrei bastante a cabeça ontem tentando entender a codificação.
Deram 2 problemas.
1) Nesse trecho

Private Sub btInserirPessoaOcorrencia_Click()
   If MsgBox("Incluir: " & Me.cxPessoa.Column(1) & " (" & Me.cxPessoa.Column(2) & ") Na Ocorrencia?", vbInformation + vbYesNo, " Incluir Pessoa !!!") = vbYes Then
  CurrentDb.Execute "INSERT INTO Tbl_PessoasXProcesso (IdPessoas,IdProcessoo) VALUES (" & Me.cxPessoa.Column(0) & ", '" & [Forms]![FrmCadastroPessoas]![IdProcesso] & "')"
   [Forms]![FrmProcesso].Recalc
   DoCmd.Close acForm, "frmPesquisaPessoa", acSaveYes
   Else
   MsgBox Me.cxPessoa.Column(1) & " Não Incluida (o)!!! ", vbInformation
   End If
End Sub

onde alega nao ter form FrmCadastroPessoas...que está lá.

Depois a combo envolvimento......
abre mas não permite que se escolha algo.


O que faço?

Meu amigo, caso opte por seguir a minha dica, poste seu BD para que possamos analisar...

Ok
Em anexo

Já implementei a agenda telefônica.
sua dica foi generosa.

Tinha alguns erros de edição amigo.

CurrentDb.Execute "INSERT INTO Tbl_PessoasXProcesso (IdPessoas,IdProcessoo) VALUES (" & Me.cxPessoa.Column(0) & ", '" & [Forms]! [FrmCadastroPessoas ]![IdProcesso] & "')"


Corrigido:
https://www.dropbox.com/s/5fecj4jhgo43zda/ControleProcesso-Corrigido.zip?dl=0

Sua sugestão foi muito boa.
Muito obrigado.
Abs

Bacana, atá a Próxima e Bons Estudos!

Fábio.
Desculpe retornar a esse assunto.
Como colocou a cor vermelho quando escolhe-se a opção réu?

A caixa de pesquisa do form pesquisa pessoa que vc ajeitou não ta funcionando.

O código é

Private Sub txtPesquisa_Change()
Dim strSql As String
   strSql = "SELECT IdPessoas, NomePessoas FROM Tbl_Pessoas WHERE " & _
   "strConv([NomePessoas], 2, 1042) like '*" & StrConv(Me!txtPesquisa.Text, 2, 1042)
   Me!cxPessoa.RowSource = strSql
End Sub


troco para qual?

Dim strSql As String

strSql = "SELECT IdPessoas, NomePessoas FROM Tbl_Pessoas WHERE " & _
"strConv([NomePessoas], 2, 1042) like '*" & StrConv(Me!txtPesquisa.Text, 2, 1042) & "'" ' Faltava Isso aqui amigo.
Me.cxPessoa.RowSource = strSql

A cor é Colocado através de Formatação Condicional. Veja la como esta feita, e replique-a para as demais cores.

Ok
Valeu
Abs