[Resolvido]Filtrar registro de subformulário (formulário simples), através de duplo click na listbox.

Boa noite Senhores!

Estou tentando fazer seleção de um registro em um subformulário através de duplo click no listbox e não estou conseguindo.
Uso em meu formulário um sub com modo padrão de formulário simples.
Não sei se a informação ajuda, mas meu sub tem chave primária.

Alguém poderia me ajudar? O único tópico que encontrei não consegui compreender.

Agradeço a ajuda desde já

Bom dia Damasceno, sempre me salvando. hehe

Desculpe a minha ignorância em não conseguir entender o código, pois não estou conseguindo entender onde o listbox entra.

Tentei fazer criando um procedimento público no subformulário como explicado, e no duplo click do listbox faço a chamada, mas me enrolei e estou cheio de dúvidas como por exemplo na chamada em como fazer com que ao clicar no listbox ele abra o referido registro do subformulario.

Nota: essa seleção será sempre com o formulário pai já posicionado, pois o listbox refere-se somente aos registros do subformulário.




Formulário Pai: FormVendasTeste
Chave primária = codvenda Autonumeração (txtcodigo)


Sub: DetalheVendaTeste
Chave primaria = codvendadet Autonumeração
Codmov número (campo que faz relacionamento com o formulário pai)


ListBox: lstamostra



Agradeço desde já

Bom dia Leandro,

Essa rotina se refere ao mesmo sistema da sua mensagem anterior?

Se possível, compartilhe uma copia para analise e solução.

Att,
FIM

Bom dia Alexandre, é uma cópia barata daquele sim.
Durante a espera de algum amigo para me ajudar naquele outro que você fez, eu iniciei algo do meu jeito.
Mas sou curioso e resolvi dar sequência na minha cópia barata também, pois assim vou agregando um pouco mais de conhecimento.

Nesse de agora que vou postar assim que chegar no escritório, meu foco final é ao selecionar a linha da listbox, eu possa apagar o registro da total desse item.
Eu espero o mesmo resultado do que o botão remover item da aplicação que você me ajudou fim de semana.


já já posto ele.

Obrigado por enquanto.

Alexandre, segue o link do arquivo.


https://www.dropbox.com/s/3suwhasckzwjiw1/Aprender%20botao%20remover.accdb?dl=0

Obrigado a todos!

Acabei resolvendo da seguinte forma:

Private Sub cmdRemov_Click()
Dim x As Variant
Dim y As String
For Each x In Me!lstamostra.ItemsSelected
CurrentDb.Execute "DELETE * FROM tabdetvendasteste WHERE ean = " & Me!lstamostra.Column(0, x) & ";"


Next

MsgBox "Concluido", vbInformation, "Aviso"
Me!lstamostra.Requery



End Sub