[Resolvido]combo box numa consulta relacionada

Bom dia ,Alexandre Voce é o Professor e eu sou o aluno
Os campos relacionados entre as tab venda e subvenda são :da tabela venda (idvenda)como o (idcliente)da tab subvenda conform as relações

Novamente, Kadhu
Então, será
Private Sub Combinação2_AfterUpdate()
Me.Texto10 = Me.Combinação2.Column(1)
If IsNull(Combinação2) Or Combinação2 = "" Then
Me.Lista0.RowSource = ""
Else
Me.Lista0.RowSource = "SELECT * FROM Venda LEFT JOIN SubVenda ON venda.idvenda=subvenda.idcliente WHERE CódigoCliente = " & Combinação2 & " ORDER BY Idvenda,IDCliente DESC;"
End If
Me.Lista0.SetFocus
Me.Texto8 = DSum("[ValorT]", "Venda", "[códigoCliente]=[Texto10]")
End Sub

precisa substituir o asterisco pelos campos e ordem de visualização que pretende e, também, acrescentar colunas na caixa de listagem

Obrigado ,Vou tentar resolver aqui!

boa noite Alexandre ,vc poderia ,me dar uma exemplo ,pois estou quebrando a cabeça aqui e ainda não ficou como eu queria !,como encaixar o que vc disse (precisa substituir o asterisco pelos campos e ordem de visualização que pretende e, também, acrescentar colunas na caixa de listagem).
Fiz assim ,mas fica confuso!
Na Origem da linha ficou assim
SELECT Venda.Idvenda, Venda.DataServico, Venda.códigoCliente, subvenda.Idservico, subvenda.idcliente, subvenda.descricao, subvenda.valors FROM Venda INNER JOIN subvenda ON Venda.Idvenda = subvenda.idcliente WHERE (((Venda.códigoCliente)=[Formulários]![BuscarCliente]![Combinação2])) ORDER BY Venda.DataServico DESC;.
Porém o cod está VBA está como vc postou ,acrescentado com os campos

Private Sub Combinação2_AfterUpdate()
Me.Texto10 = Me.Combinação2.Column(1)
If IsNull(Combinação2) Or Combinação2 = "" Then
Me.Lista0.RowSource = "DataServico,Idservico,descricao,valors"
Else
Me.Lista0.RowSource = "SELECT Idvenda,DataServico,ValorT,Idservico,descricao,valors FROM Venda LEFT JOIN SubVenda ON venda.idvenda=subvenda.idcliente WHERE CódigoCliente = " & Combinação2 & " ORDER BY Idvenda,IDCliente DESC;"
End If
Me.Lista0.SetFocus
Me.Texto8 = DSum("[ValorT]", "Venda", "[códigoCliente]=[Texto10]")
End Sub
Há uma inconstância na origem da linha e no Cod VBA?
Minha dúvida é :Se eu usar este cód que vc me postou ,eu preciso dos dados da origem da linha ou o cód substitui a origem da linha ?preciso de ajuda!obrigado

kadhu,
Já resolveu? dê retorno

Boa noite Alexandre ,não consegui resolver essa questão!

Resolvido ,obrigado!!!

Se resolveu, informe como, para que possa ajudar outros colegas com a mesma dúvida ou parecida.

Voce quer que eu poste o exemplo ou explique como ?

Para que os colegas agilizem, se for descritivo melhor

No frm buscar cliente na combobox:
SELECT Clientes.Nome, Clientes.CódigoCliente FROM Clientes ORDER BY Clientes.Nome;

no evento da combobox apos atualizar :
Private Sub Combinação2_AfterUpdate()
Me.Texto10 = Me.Combinação2.Column(1)
Me.Lista0.Requery
Me.Lista0.SetFocus
Me.Texto8 = DSum("[ValorT]", "Venda", "[códigoCliente]=[Texto10]")
End Sub


e na caixa não acoplada do frm
descrição :

SELECT Venda.Idvenda, Venda.DataServico, Venda.códigoCliente, Venda.ValorT FROM Venda WHERE (((Venda.códigoCliente)=[Formulários]![FormBuscarCliente]![Combinação2])) ORDER BY Venda.DataServico DESC;

Obrigado, Kadhu
A divulgação da solução ajuda a quem precisar mais tarde.

Eu que agradeço,e peço desculpas pelo trabalho que lhe dei!