[Resolvido]Abrir resgistro em Controle de lista em Guia

Pessoal estou fazendo uma tela com uma lista de registro e queria que ao dar dois cliques em um determinado registro ele me levasse ara a guia ao lado com os dados do mesmo.

Nao sei se fui muito claro entao estou postando o anexo para exemplo.

Obs: extraia o Zip no Drive C:

Boa tarde,

No evento dbl_click da Lst_proprietario coloque o seguinte:

Código:

   Dim strSql As String
    
    strSql = "tbl_proprietario.Cod_proprietario = " & Me.Lst_proprietario.Column(0)
    
    Me.Filter = strSql
    Me.FilterOn = True
        
    Me.GuiaCadproprietario.SetFocus

Na fonte de dados do formulário, retire todas as referências à Tbl_propriedade, deixe apenas às Tbl_proprietario. Se você deixar os dois, caso o proprietário não tenha nenhuma propriedade cadastrada, ao invés de mostrar os dados do proprietário, pedirá para cadastrar um novo proprietário. Isso acontece pois, neste caso, não há nenhum registro de propriedades para este proprietário. Então todas as referências a esta tabela, devem estar na Lst_propriedade. E quando você precisar desses dados, você pega nessa lista.

Abraço.

Boa noite!

Amigo, a cláusula de junção das tabelas deve ser LEFT JOIN e não INNER JOIN.

Os dados do segundo proprietário não aparecem porque ele não tem propriedades. Quando você usa INNER na origem de dados do seu formulário, ele só vai considerar os proprietários que têm propriedades cadastradas.

Eu fiz alguns ajustes para você entender melhor o que estou falando. Também apresento uma solução em VBA e uma com Macro, que é o que você utiliza.

Bom aprendizado!

Boa noite meus amigos. agradeço pela ajuda que me deram.

Aqui o exemplo que o John me passou está funcionando OK.



So tenho uma duvida sobre as junções que voce me falou John, poderia me explicar melhor essas alterações que fez no formulário?
Voce apenas precisou mexer no FOrm ou no banco tambem?

Obs: a Unica alteração que achei foi em FONTE DE REGISTRO, voce colocou a opção 2 da propriedade da JUNÇÃO.

fiz isso no meu Formulario de exemplo mas ainda não tive o mesmo resultado que o seu.

Tem algo que eu tenha deixado passar?

Obrigado a todos pela ajude.

Funcionou perfeitamente