[Resolvido]Consulta de Dados

Boa noite,

Estou criando um formulário de cadastro de cliente,
Criei todos os campos text e caixa de texto...
Criei também uma Caixa de Listagem, que nela aparece a lista dos meu clientes cadastrados, assim que eu clico em algum registro desta caixa de listem, automaticamente abre o registro para edição.
Gostaria de saber como posso fazer para digitar o nome de algum registro em uma caixa de texto (que serviria como consulta) e quando clicar em um botao selecione o registro lá na caixa de listagem...
Como na imagem...

Grato!

Boas Eduardo, veja este modelo, nele tem o cadastro de clientes com list box e uma caixa texto onde se digita o nome do cliente e se filtra a lista.

http://maximoaccess.forumeiros.com/t2438-sistema-de-controle-de-contas-a-receber-com-calculo-de-parcelas-recebimento-total-ou-parcial-das-parcelas-pagamento-fracionado

Cumprimentos

Veja esse colega....
http://speedy.sh/uRyD5/ListBox-AbreForm.rar

Boa tarde Rarysohn, fiz algumas alterações, mas não está dando certo poderia da uma analizada.

So alterar a extensão para .RAR

Agradeço

Amigao esperarei que outro colega o veja, estou no momento em um tablet, portando sem o access...
Mas no exemplo que te enviei, na consulta que origina a list box tem o criterio que e a caixa texto onde se digita a informacao, olhe no evento vba para essa caixa texto e aplique no teu e tambem na consulta da list.



Cumprimentos

Boa noite, eu fiz, mas não esta dando certo...ainda estou aprendendo e por isso fiz algo errado.

Abraço

Envie novamente.. seu modelo esta dando erro. Renomeei para rar mas nao consegui abrir.

Cumprimentos

Segue link,
Forte abraço

skydrive.live.com/?cid=3d8454510b1d3231&id=3D8454510B1D3231%21226

Caro eduardo, para referencia a busca por registro deves especificar a chave primaria da tabela juntamente com a coluna 0 da listbox que é a primeira coluna


Private Sub Lista224_AfterUpdate()
' Localizar o registo que corresponde ao controlo.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Código] = " & Str(Nz(Me![Lista224], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ja na listBox em propriedades
Dados > Origem da linha

No campo Nome em critérios:

Como "*" & [Forms]![Cadastro de Clientes].[txtPesquisa] & "*"

O operador como (like em ingles) age de maneira a filtrar a lista com o que está sendo digitado no campo txtPesquisa (alterado por mim para este nome)


Link:
http://dl.dropbox.com/u/26441349/EduardoVidros.rar


Veja tambem este modelo disponibilizado pelo colega Norbs.. nele tem botoes e visualizador de em que registro se encontra....

http://maximoaccess.forumeiros.com/t5387-formulario-de-cadastro-com-listbox-de-pesquisa-dentro-e-fora-do-formulario


Bom estudo. Cumprimentos

Boa tarde, poderia por gentileza, me explicar o cod abaixo:


Set rs = Me.Recordset.Clone
rs.FindFirst "[Código] = " & Str(Nz(Me![Lista224], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


Eu ja entendi, que a estrutura da programação e:

Private Sub objeto_ação()
*gostaria de saber porque ()

Dim Variavel as Tipo de Variavel
*variavel é o que vai ou não ser manipulado

Comandos1
Comandos2...

if...than...

End Sub

Estou certo?

Quando vincula um formulario a uma tabela, este fomulario e carregado com os registros desta tabela

Set rs. .. seta o recordset (conjunto de registros) com os registros do firmulario, ou seja carrega o recordser com os registros que estao carregados no form.

Rs.FindFirst..... aqui ele vai procurar o registro cujo codigo seja igual ao registro selecionado na list em sua coluna 0

If not rs.EOF

EOF = end of file

Se nao chegou ao final so arquivo leva ao form o registro que foi encontrado no comando rs.FindFirst...


Procure no forum, temos diversos artigos sobre recordset's, variaveis, efim...


Cumprimentos

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Bom dia,
meu amigo to com um problema, com relação ao mesmo assunto, porem de outra forma, criei de uma forma diferente meu form, só que, não consigo escrever o nome no txtpesquisa.

não entendo pq, se puder de uma olhada.

Agradeço

https://skydrive.live.com/redir.aspx?cid=3d8454510b1d3231&resid=3D8454510B1D3231!242&parid=3D8454510B1D3231!121&authkey=!APoe2AhTGezXRaw
Abração

Bom dia, com relação ao que havia sido conversado antes, eu resolvi, se alguem quiser eu posso postar.

Mas agora, eu gostaria de saber como posso fazer esse mesmo sistema com caixa de texto, mas utilizando um sub-formulário do cadastro de clientes?
e que se eu se selecionar algum dado do sub-formulário, não seja possivel alterar, só se eu selecionar o dado e clicar em algum botão "alterar".

Grato.

Agradeço a todos