[Resolvido]combo box numa consulta relacionada

Bom dia a todos !Eu preciso que ao clicar no botão do frm ou na combo, buscar cliente, ele busque o cliente na tabela clientes,com todo o histórico de vendas para este cliente;
mostrar a venda detalhada,como aparece na tabela clientes ao clicar no sinal de +,se tem como esse sinal +,ficar habilitado na consulta para que eu ao clicar neste sinal em uma determinada venda ,expanda o sinal e me mostre detalhadamente,(ou melhor colocar esse sinal de mais no sub dentro do frm ,ao exibir os resultados!Umas consulta para me mostrar como o exemplo da imagem em anexo .
Eu precisava deste incremento da seta que aparece na tabela clientes ,para mostrar a venda detalahada .obrigado

Boas!

Você pode criar duas caixas de listagem, na primeira os clientes, na segunda as vendas.

Ao selecionar um cliente a segunda é atualizada com as vendas, o que acha?

Voce pode me dar uma exemplo ,por favor!obrigado

Desculpe o design, cara, me falta hábito no access 2007!


http://www.4shared.com/file/hKuwrsVl/ComboCaixaDeListagem.html

Ok ,vou dar uma olhada!, o design é o de menos,vou tentar adaptar as minha necessidades! Meus agradecimentos!

Boa noite se exemplo é bacana ,porem ele não mosttra os detalhes da venda ,pois tenho uma tab subvenda e o exemplo só mostra o valor bruto como eu faço para mostra os detalhes da venda obrigado!!

Se as tabelas estiverem relacionadas e devem estar, é só acrescentar os campos da subtabela à consulta que alimenta i caixa de listagem e alterar as propriedades das colunas, número, largura e quantidade de colunas.

Você também pode criar outra caixa de listagem e colocar nelas os detalhes da venda.

Não deu pra fazer algo mais elaborado pois eu não tenho conhecimento da sua realidade.

Vou ver o que consigo aqui .obrigado

Oi Kadhu, se puder posta seu banco ou só as tabelas que precisa nessa necessidade.

Aí eu poderei te ajudar a contento.

Até mais.

Obrigado !!! Vou postar

Bom dia ,Consegui adaptar ,porém gostaria de dar este incremento como na imagem em anexo .obrigado

Olá Kadhu,

Olha meu caro, eu não sei se é possível criar o que você quer numa combobox no access, não estou dizendo que é impossível, ainda mais com o time desse fórum.

Mas para tentar te ajudar eu fiz umas modificações no form que eu crei ontém para você, ficou parecido com o que você e tem um total no rodapé, veja se serve.

Abraço


http://www.4shared.com/zip/OXEofQQi/KMARIN1.html

Muito obrigado Leandro ,por dedicar seu tempo comigo,porém não vi muita diferença em relação ao BD que postei por ultimo!!mesmo assim fico agradecido!!!!(não sei se foi isso que entendeu! ).Na verdade eu preciso do resultado não numa combobox! e sim no campo não acoplado abaixo da combobox,asssim como no exemplo ,porém ele ainda não mostra a venda detalhada .Meus agradecimentos

Bom dia,

Desculpe meu caro, mas não consegui entender o que você quer.

Sua necessidade não é filtrar pelo vendedor?

Bom dia ,Leandro,Sim é pelo Vendedor ,porém mostrar as vendas em detalhes!como mostra a imagem em anexo!!!!Colocar o nome numa combobox e o outro campo pegar esse nome que esta na combo e mostrar todas as vendas referentes a esse nome e detalhar as vendas ,como naquele sinal de mais que tem na tabela clientes! e na imagem em anexo !Entende?por isso postei a imagem .obrigado

Boa tarde, Kadhu
Vá procurando no fórum, pois existem muitas dúvidas já resolvidas
Nomeie os controlos da melhor forma.
Utilize este código:

Private Sub CxcNomeCliente_AfterUpdate()
If IsNull(CxcNomeCliente) Or CxcNomeCliente = "" Then
ListaVendas.RowSource = ""
Else
ListaVendas.RowSource = "SELECT * FROM Venda WHERE CódigoCliente=" & CxcNomeCliente
End If
End Sub

ok ,vou pesquisar Obrigado !!Alexandre a minha necessidade na consulta é possivel de se conseguir ,ou vc acha inviável no access?

Não percebi. A sua necessidade na consulta? qual necessidade?

A minha necessidade é exibir os detalhes da venda !

Meu exemplo estava sem a tebela subvenda ,desculpe ja corrigi,eu preciso que o frmpesquisa mostre os resultados como indicado na imagem em anexo detalhes da venda.isso é possivel no frmpesquisa?

Então era por isso que eu não conseguia te atender e entender, faltava uma tabela.

è estranho pq a tabela estava la e relacionada ,porem os detalhes não apareciam!!!ai postei esta ultima corrigida ,demorei pra ver tbm ,me desculpe,mas e agora ,consegue ver o que preciso ?

Não conheço consulta que devolva como a imagem

Alexandre ,Não quero que devolva como imagem e sim que mostre a venda detalhada,apenas isso pois o frm mostra a venda sem detalhes !a imagem foi apenas para exemplificar o que necessito!não disse que queria que a consulta me devolvesse a imagem!mas obrigado !!acho que o que preciso o access não deve fazer ,mas de qq forma obrigado

Kadhu,
Ao referir-me à imagem, referia-me a mostrar tal qual a imagem: clicar no + e aparecer os registos relacionados da outra tabela.
Para ter os registos correspondentes na tabela venda e subvenda, coloque
Private Sub CxcNomeCliente_AfterUpdate()
If IsNull(CxcNomeCliente) Or CxcNomeCliente = "" Then
ListaVendas.RowSource = ""
Else
ListaVendas.RowSource = "SELECT * FROM Venda LEFT JOIN SubVenda ON Venda.IDVenda=SubVenda.IDCliente WHERE CódigoCliente=" & CxcNomeCliente
End If
End Sub

Alexandre ,fiz as alterações e os detalhes continuam não aparecendo veja se esta correto !e o valorT some

Private Sub Combinação2_AfterUpdate()
If IsNull(Combinação2) Or Combinação2 = "" Then
Me.Lista6.RowSource = ""
Else
Me.Lista6.RowSource = "SELECT * FROM Venda LEFT JOIN SubVenda ON Venda.IDVenda=SubVenda.IDCliente WHERE CódigoCliente=" & Combinação2
End If
End Sub

Ja esse a coluna ValorT,fica vizível ,mas ambos não mostrarm os detalhes

Private Sub Combinação2_AfterUpdate()
Me.Texto10 = Me.Combinação2.Column(1)
Me.Lista6.Requery
Me.Lista6.SetFocus
Me.Texto8 = DSum("[ValorT]", "Venda", "[códigoCliente]=[Texto10]")
End Sub

Crie uma nova consulta, em modo SQL, e cole este código
SELECT * FROM Venda LEFT JOIN SubVenda ON Venda.IDVenda=SubVenda.IDCliente WHERE CódigoCliente=22
Substitua o 22 por outro nº de cliente e veja se é isso que quer que mostre na caixa de listagem

Mesmo assim ,a consulta ,não mostra os detalhes de cada venda ela mostra o valor bruto .A Coluna Cujo nome é ValorT,entende?Detalhes nada ainda !!

Penso que a caixa de listagem deveria vir com uma coluna ,para expandir o idvenda e me mostrar o detalhe de cada venda .!

Boa tarde, Kadhu
Em que tabela estão os detalhes da venda? Que campos se relacionam entre a tabela venda e a outra tabela?

Bom dia !Alexandre
Os detalhes da venda estão na tabela subvenda ,e os campos que estão na tabela subvenda são;
-Idservico,idcliente,descricao,valors .Qualquer outro detalhe pode perguntar.obrigado

Kadhu,
Perguntei-lhe qual tabela e os campos que se relacionavam (não os campos que existem na tabela).
As perguntas forma feitas porque os dados não me pareciam consistentes: A figura que apresenta tem o CódigoCliente=40 , este cliente tem as IdVenda 182 (com IdServico 19) e 330 (com Idservico 10,11,6 e 22). Nas tabelas que enviou, estes dados não correspondem.
Indique, pelos dados que enviou, o que pretende que apareça ou, em alternativa, disponibilize a bd com dados a baterem certo com a imagem.

humn! Acho que é poque,eu exclui algumas vendas da tabela Vendas,pra poder ficar no tamanho !Alexandre ,como eu disse a imagem é apenas um exemplo do que necessito ,eu preciso que qd eu buscar um cliente no form pesquisa, apareça todos os serviços realizados deste cliente,vou tentar mandar uma nova imagem
Habilitar o sinal de mais que tem nas tabelas como na imagem para eu poder ver os detalhes do cliente da venda e do serviço,para eu clicar no sinal de + e ele abrir e expandir para exibir os detalhes !!!!

Kadhu
Vamos lá. Antes, tinha dito que não dava para fazer como na imagem. Você disse que a imagem era apenas ilustrativa. Agora, está a dizer que quer como na imagem.
Só tem duas possibilidades:
1 - ter uma caixa de listagem que lhe mostrará as vendas e detalhes das vendas corrspondentes
2 - ter uma árvore (treeview) para listar as vendas, aparecendo um +, que premindo, mostra os detalhes

Exato !!uma luz!!!Está difícil de me fazer entender!!!!Grande Alexandre!
Na verdade é exatamente o que estou tentando dizer desde o início,tanto faz a 1ª ou a 2ª opção de voce me deu ,desde que me mostre os detalhes!Isso é possivel ?pois da forma que está,o frm não mostra os detalhes !!

Acho que a 2ª opção me caberá melhor,você pode me ajudar a fazer isso ?obrigado

Disponibilize bd com dados coerentes para se trabalhar.

Por favor ,veja se está coerente!

Kadhu,
Não é possível andar. veja "à mão" o que tem nas tabelas
O campo IdVenda da tabela Venda está relacionado com o campo IdServico da tabela subvenda. certo?
veja que registo se podem relacionar.
Lamento estar a perder meu tempo. Ou manda de uma vez ou ficará só.

Mandar de uma vez ,ficar só?Se acha que está perdendo seu tempo eu agradeço até aqui então!Eu removi as consultas os frms e os relatórios,os dados desnecessários.Vc necessita do BD completo?,
não compreendo o sua queixa!
Se o fórum serve pra tirar nossas dúvidas ,é o que estou fazendo desde o início
eu apenas removi os dados desnecessário para o funconamento do BD,Lamento e não quiz tomar seu valioso tempo assim como o meu tbm é valioso.Meus agradecimentos

Na bd que enviou, não encontro nenhum registo que relacione entre a tabela venda e a tabela detvenda.
Estarei errado?

Vou enviar o BD Completo,pode ser 2007 ou 2003?

Actualmente, também tenho 2007, mas se puder ser em 2003 é mais generalizado

Ele está exatamente como estou usando aqui!Se houver divergências ou incoerências no BD,aponte para mim por favor !Pois ele está exatamente como eu venho usando há algum tempo .Obrigado

Quais campos se relacionam entre as tabelas venda e a subvenda?

veja se é isto que pretende
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 DESC;"
End If
Me.Lista0.SetFocus
Me.Texto8 = DSum("[ValorT]", "Venda", "[códigoCliente]=[Texto10]")
End Sub

Onde está o asterisco, coloque os nomes dos campos que pretende que a consulta devolva
Acrescente colunas na lista0 conforme precisa

Os campos que se relacioanam das tabelas são:da tabelasClientes (CódigoCliente);com a tabvenda (idvenda);como a tab subvenda (idservico),estou a tentar aqui,estou marcando passo.

repara que, nas relações, não é esse relacionamento que está definido!
Mas, se é, coloca
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.idservico WHERE CódigoCliente = " & Combinação2 & " ORDER BY Idvenda DESC;"
End If
Me.Lista0.SetFocus
Me.Texto8 = DSum("[ValorT]", "Venda", "[códigoCliente]=[Texto10]")
End Sub

Sim ja reparei isso ,Esse Cód ,não está funcionando o que vc me aconselha a fazer então seguir o que está nas relações ? Esta sequência que lhe passei ,foi o que me exibiu as tabelas,(eu abri a tabela venda e cliquei no sinal de +,confundindo-o com o campo id,sequencialmente das outras tabelas tbm ,logo não é o sinal de +por isso a confusão entre os campos relacionados)nas relações eu vejo que está diferente ,como eu corrigi ,ou o que seria correto ?
Corrigir as relações, mudar o Cod ?

Bom dia, Kadhu
Só você sabe qual o campo que relaciona com a outra tabela