Como faco para uma consulta SQL me retornar o seguinte:

Em uma oficina ha carros para reparo. Cada carro tem um codigo (cliente).

O cliente solicitou X servicos e foram trocadas YY  números de peças.

 

Preciso de uma SQL q ao clicar no txt do numero do cliente (ou cmd) seja retornada todas as peças montadas no veículo do cliente.

 

No DB tenho : Codigo do veículo

                    Peças montadas

                    Data de montagem

 

Valeu

Voce deve ter um arquivo com as pecas e o veiculo alem do cliente.

Seria algo assim.

 

Select * from cliente, peca, veiculo where

cliente.cod_cliente = " & txt_cod_cliente.text & " and cliente.cod_cliente = veiculo.cod_cliente and veiculo.cod_veiculo = peca.cod_veiculo

 

Nao sei como voce esta relacionando o arquivo de cliente com o de peca. Coloque pelo menos as chaves dos arquivos para ter uma ideia.

Axo q nesse form tem q  ter campos para todos esse arquivos para que na hora de fazer a consulta vc possa fazela pelo codigo por exemplo do cliente e voltar todos esse dados junto com eles separados dos de + registros de clientes com suas respectivas peças montadas, eu uso pra consulta o option é assim minha consulta. Esero q seja isso

 

No botao Consultar

 

With rsNomedoSeuRecordset
If option1.Value = True Then .Filter = "Codigo Like " & TxtPesquisar 'Codigo
If option2.Value = True Then .Filter = "Nome Like '" & TxtPesquisar & "*'" 'nome

If option3.Value = True Then .Filter = PegaValor(TxtPesquisar) 'valor
MsgBox .RecordCount & " registro(s) encontrado(s)!", vbInformation
End With

 

Colocar num botao para retirar a consulta

'retira o filtro da pesquisa
rsnomedoseurecorset.Filter = 0
rsnomedoseurecorset.Requery

 

E se na sua consulta conter valor essa expressao vc coloca num modulo

 

Public Function PegaValor(valor As String) As String
'Corresponde ao Filtro para fazer consultas ao campo Valor
Dim i As Integer
Dim v1, v2 As String

valor = VBA.Trim(valor)

For i = Len(valor) To 1 Step -1
If VBA.Mid(valor, i, 1) <> " " Then
v1 = VBA.Mid(valor, i, 1) & v1
Else
v2 = v1
v1 = ""
End If
Next i

If v2 = "" Then v2 = v1
If CCur(v1) > CCur(v2) Then
PegaValor = "Valor >= " & Replace(CCur(v2), ",", ".") & " and Valor <= " & Replace(CCur(v1), ",", ".")
Else
PegaValor = "Valor >= " & Replace(CCur(v1), ",", ".") & " and Valor <= " & Replace(CCur(v2), ",", ".")

End If
End Function