[Resolvido]combo box numa consulta

Boa noite a todos ! Preciso de um help !criei um frm com uma combo box para buscar cliente na Tabela clientes ,dai a questão!
qual o comando num botão para pegar o nome desta combo no frm e abrir a consulta nome ,obrigado !!meu problema aqui é que eu tenho uma consulta nome cliente ,porem é necessário eu digitar exatamente o nome como está na tabela, dai necessidade da combo!obrigado

não compreendi muito bem mas deve ser isto: tens um campo memo e queres localizar texto no mesmo, é isso?

SE for, então cria um botão, uma caixa de texto e uma memo e adapta:

Private Sub cmdEncontrar_Click()
On Error Resume Next
If IsNull(Me!CampoMemo) Or IsNull(Me!txtProcura) Then Exit Sub
Dim strSelecao As Integer
strSelecao = Len(Me!txtProcura)
If strPosicao = 0 Then strPosicao = 1
strPosicao = InStr(strPosicao, Me!CampoMemo, Me!txtProcura)
If strPosicao > 0 Then
Me!CampoMemo.SetFocus
Me!CampoMemo.SelStart = strPosicao - 1
Me!CampoMemo.SelLength = strSelecao
strPosicao = strPosicao + 1
Else
MsgBox "Não foram encontradas mais palavras com " & "'" & Me!txtProcura & "'" & "", vbExclamation, "Erro"
strPosicao = 1
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark '
rs.MoveNext
If rs.EOF Then
If MsgBox("Procura terminada." & vbCrLf & "", vbDefaultButton2 + vbYesNo + vbQuestion, "Erro") = vbYes Then
rs.MoveFirst
Me.Bookmark = rs.Bookmark
Me!txtProcura = Null
Me!txtProcura.SetFocus
strContagem = 0
Else
End If
Else
Me.Bookmark = rs.Bookmark
End If
End If
Set rs = Nothing
End Sub

-------------
Créditos: JPaulo

http://maximoaccess.forumeiros.com/t2693-procura-texto-em-campo-memo?highlight=procurar+em+memo

Retificando !Cabe aqui seu conselho?
Preciso criar uma consulta nome ,onde eu digite o nome do cliente numa combo box e ao digitar as iniciais dos nomes a combo me mostre a relação de homonimos na combo em relação as letras que vou digitando teria como fazer isso num frm ,pois a consulta nome me pede o nime do cliente ,sem essa visualização dos nomes na combo ao digitar do teclado,obrigado!!!

tenta o link que te dei antes tem um exemplo

http://maximoaccess.forumeiros.com/t2693-procura-texto-em-campo-memo?highlight=procurar+em+memo

E eu dei uma olha seria ,mais pra isso :
criei um frm com uma combo box para buscar cliente na Tabela clientes ,dai a questão!
qual o comando num botão para pegar o nome desta combo no frm e abrir a consulta nome ,obrigado !!meu problema aqui é que eu tenho uma consulta nome cliente ,porem é necessário eu digitar exatamente o nome como está na tabela, dai necessidade da combo!obrigado

ok envia um exemplo para melhor compreenção

Entretanto ve este tópico talvez seja isto

http://maximoaccess.forumeiros.com/t2530-resolvidoproblemas-com-combo-box-em-consulta

Meus agradecimentos ,vou dar uma olhada!!

Ainda não é isso ,se puder ver meu exemplo ,inclusive eu criei um frm como o nome Formulário1,eu preciso que ao clicar no botão deste frm ele busque o cliente na tabela clientes,como todo o histórico de vendas para este cliente,como eu faço isso?.Obrigado

Ainda ,to quebrando a cabeça aqui!Se puder me dar uma luz!

Olá Kadhu,

Vê se isso resolve.

Qualquer dúvida é só falar.

Nivaldo.

Não é bem o que preciso!Eu preciso que ao clicar no botão do frm, buscar cliente, ele busque o cliente na tabela clientes,com todo o histórico de vendas para este cliente.

Boa tarde, kadhu
Se pretende executar a consulta que tem na bd, coloque este código

On Error GoTo TrataErro
If IsNull(cbocliente) Or cbocliente = "" Then Exit Sub

CriaTabela:
CurrentDb.Execute "SELECT Venda.Idvenda, Venda.DataServico, Venda.códigoCliente, Venda.Nome, Venda.ValorT, Venda.Fpgto, subvenda.Idservico, subvenda.idcliente, subvenda.descricao, subvenda.valors INTO Consulta FROM Venda LEFT JOIN subvenda ON Venda.[Idvenda] = subvenda.[idcliente] WHERE Venda.Nome='" & cbocliente & "';"
Exit Sub
TrataErro:
If Err.Number = 3010 Then
CurrentDb.Execute "DROP TABLE Consulta;"
GoTo CriaTabela
Else
MsgBox Err.Number & vbCr & Err.Description
End If

Onde eu coloco este cod ?seria no botão buscar cliente ,ou na combo cliente ?no evento ?obrigado
Eu coloquei dentro da combo nada aconteceu e no botão tbm nada !isso no frm!

Caro Kadhu,

Se você prestar atenção é exatamente isso que o exemplo faz. ó que eu não coloquei o botão.
O que você que acontece no evento Após Atualizar da combo Clientes.

Más se você quer isso clicando no botão basta você transferir o código que está no evento Após Atualizar da combo para o evento Ao Clicar do botão

Deve resolver

Nivaldo.

Caro Nivaldo!obrigado ,Falta de atenção mesmo!,estava colocando um nome que não existia na tabela venda, obrigado ai e desculpe amolação,maravilha!!
Meus agradecimentos

Apenas ,um detalhe, cliquei em resolvido,mas o sub me mostra o ValorT,como eu faço para me mostrar a venda detalhada,como aparece na tabela clientes ao clicar no sinal de +,(ou melhor colocar esse sinal de mais no sub ao exibir os resultados),Criei uma campo não acoplado no rodapé do frm e ,apliquei a formuila ,mas pq essa formuila ,não consegue somar o campo ValorT (Soma: (ValorT)),obrigado ?

Cliquei em resolvido ,por equívoco,devo criar um novo tópico,sobre a ultima pergunta?obrigado

Bom dia Kadhu,

Ao que me parece o subformulário já está com todos os detalhes da Venda. Do jeito que você falou precisaria ter uma tabela Detalhes da Venda. Más aí teria que reformular o seu projeto.

Quanto ao valor total você pode colocar essa soma no rodapé do próprio subformulário, colocando:

=Soma([ValorT])

Nivaldo.

Bom dia Nivaldo .Voce poderia me ajudar ou me dizer como eu poderia conseguir isso ?Ainda não tenho muito conhecimento de como fazer isso na consulta ,eu tenho uma tabela clientes e uma Venda ,relacionadas .fico no aguardo.obrigado

Boa noite Kadhu,

Me diga qual é realmente a sua dúvida/necessidade. Detalhe bem o que precisa e se estiver dentro de meus limites, tenha certeza que vou lhe ajudar.

Nivaldo.

Boa noite ,Nivaldo ,é como eu disse no inicio..Eu preciso que ao clicar no botão do frm, 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 ao exibir os resultados!voiu ver se consigo mandar uma imagem pelo forum do que quero! Umas consulta para me mostrar como o exemplo da imagem em anexo .
O exemplo que vc fez ta bacana ,porém ,só precisava deste incremento da seta que aparece na tabela clientes ,para mostrar a venda detalahada .obrigado

Bom dia Kadhu,

O incremento que você falou (colocar a " + " como fica na tabela) infelizmente está além dos meus conhecimentos. Até já tentei e fiz alguma coisa más não ficou legal.
Más acredito que com o conhecimento de muitos daqui você consiga o que pretende.

Se você pensar em outra alternativa é só falar que a gente ver o que pode fazer.

Nivaldo.

Obrigado Nivaldo ,vou abrir um tópico!!agradeço toda a atenção!

Obrigado Kadhu,

O fórum agradece pelo retorno.

Nivaldo.