[Resolvido]filtro de nomes por letra numa formulario continuo

Caros amigos,

preciso de filtrar um formulario continuo por meio de cliques em botoes que contenha mas letras. Não estou conseguindo fazer o formulario exibir o campo texto com todos os registros da tabela que tenham a letra a como letra inicial, por exemplo.

ler a tabela por filtro ok. porém o form so mostra o ultimo registro ao inves de mostrar todos os registros. alguem pode me dar um help?

grato.

Você pode tentar algo assim: crie um campo texto no seu formulário de nome txtFiltro por exemplo. No clique no seu botão, coloque:

Me.txtFiltro = Me.NomeBotão.Caption
Me.NomeDoSuformulário.Requery

No critério do campo, na consulta, coloque:

Como Forms!NomeDoFormulário!txtFiltro & "*"

Perdão, eu entendi, porém na questão eu não fiz me entender. eu gostaria de um código em vba. pois form está todos em vba.

esse procedimento funciona com vba?

grato.

Poste o código todo do formulário para vermos se encaixa nele.

Caro colega,

O codigo seria esse:
Public Sub seleciona(x)
'ha um evento nos boteos que passa a caption "a","b" etc para dentro da sub..
Dim letra As String
Dim Limite As Integer

letra = x

Dim db As Database
Dim rsTable As Recordset

Set rsTable = CurrentDb.OpenRecordset("SELECT nome FROM cliente where nome like '" & letra & "*' order by nome")
Limite = (rsTable.RecordCount)

If (Limite) Then
With rsTable
'.MoveLast
' .MoveFirst
Do While Not .EOF
' strMessage = "NOME: " & !nome & vbCr & "(record " & (.AbsolutePosition + 1) & " of " & .RecordCount & ")"
Form_F6!nome = !nome 'nessa caixa de texto eu nao consigo fazer com que ele se multiplique de acordo com munero de registro conforme um form continuo, o loop le todo os resgistro porem so mostra o ultimo dentro da caixa

'If MsgBox(strMessage, vbOKCancel) = vbCancel _
'Then Exit Do
.MoveNext

Loop
.Close
End With
End If
End Sub

No aguardo....

Se é uma String começa logo mal, falta ae as aspas;

letra = "x"

Por outro lado estou a ver que está a utilizar palavras reservadas do Access como por exemplo, NOME.

colega,

O x está sem aspas pois é um parametro passado por um evento no botão e nome eu tinha inserido como caption da caixa de texto...

O código inicial que me enviou funcionou corretamente, mas não teria como fazer tudo com vba como se faz em PHP?

grato,

Pessoal,

tenho um formulario com o seguinte codigo no botao:

Private Sub A_Click()
x = Me.A.Caption
Call filtro(x)

End Sub

Quando clicar no botão vai chamar a função filtro com a passagem do parametro "x" ....Tenho um modulo que ele esa variavel e filtro de acordo com o label (rotulo) da variavel.....eu não estou conseguindo via vba fazer com que o formulario fique continuo de acordo com o numero de registro dentro da tabela....

Segue o codigo do modulo:

Public Function filtro(x)

Dim db As Database
Dim rsTable As Recordset

Set rsTable = CurrentDb.OpenRecordset("SELECT nome FROM cliente where nome like '" & x & "*' order by nome")
Limite = (rsTable.RecordCount)

With rsTable

If Not .EOF Then

Form_formX!txtNome = !nome

End If

End With


End Function

Algume consegue por vba me explicar como eu faço a caixa de texto do formulario se multiplicar numero de vezes que tenho de resgistro filtrado...?

Já obtive uma resposta por meio de filtro usando uma consulta, mas gostaria de obte-la por meio de vba... fazendo a consulta por meio de um recordset...

Grato,

Veja este exemplo do repositório.. nele a uma lsbox que se expande de acordo com o numero de registros..

http://maximoaccess.forumeiros.com/t3065-formulario-de-pesquisa-ao-estilo-google

Muito bom o código, mas ainda não é o que preciso... Na verdade eu queria duplicar a caixa de texto por meio de vba......
esse código mostra os dados numa mesma caixa de texto expandida.
eu até encontrei um exemplo que faz exatamente o que estou precisando porem esta com senha a parte de vba e não consigo ver o código fonte...

sabe como quebra-lá?
valeu!!

Bom dia Carioca

Nós não somos piratas informáticos e quebrar senhas é um acto de pirataria, além de falta de respeito para com o autor e viola as leis dos direitos intelectuais, etc.

O conselho: Contacte o autor do exemplo e explique-se a situação.

Amigo.. nesse caso creio que deva ser um form contínuo....

Aplique sua pesquisa em um subform.. e vincule este ao form..deve funcionar..
no evento de aplicar o valor no campo indentifique o endereço do subForm..
Forms!NomedoForm.NomeSubForm.Form!NomeDoCampo

caros colegas,

desculpe-me pelo o fato de "quebrar a senha", pois levanto a bandeira de compartilhamento de ideias como a desse site....a troca de informações dentro do mundo da informática nos leva ao crescimento...

acho que vou fazer vinculado a consulta....

conforme já fui orientado.....

valeu pela ajuda!