[Resolvido]Filtro por presentes

vivas
cá estou de novo com mais um pedido de ajuda
tenho um form com uma pesquisa por numeros, pretendia que essa pesquisa fosse feitas só pelos presentes,
uma vez que na tabela tenho históricos e presentes do mesmo numero.
exemplo:
1-1234-presente
1-4321-histórico
1-2345-histórico
1-3456-histórico
quando seleccionar o numero 1 so aparecer o numero
1-1234-presente

espero que entendam
aguardo apoio

mirsofy

Mais pode começar usando o assistente pra resolver isso.


Clica em Design e depois clica em caixa de combinação, agora escolhe a sua opção desejado e é só prosseguir com a criação da caixa onde você vai selecionar os registros desejados.

Tenta ai.

vivas amigo
estou usando este código

=============================================

Private Sub cboPesquisa_AfterUpdate()
Dim rs As Recordset

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nº] = " & Me!cboPesquisa.Column(0) & ""

If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
Me.cboPesquisa = ""
Exit Sub
End If
rs.Close
End Sub

=================================

que está a trabalhar muito bem
o que eu queria era que não me mostra-se os que estão históricos, só apresenta-se os presentes
obrigado pela dica

mirsofy

Private Sub cboPesquisa_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[SEU CAMPO ID] = " & Str(Nz(Me![cboPesquisa], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


Tenta ai.

Você deve ter um campo como chave primária na tabela ok, é SEU CAMPO ID.

vivas
assunto resolvido
depois de ler a tua ideia
verifiquei melhor e adicionei um critério na origem de registo e fez-se luz
já não aparecem os históricos
obrigado pela paciência

mirsofy

Obrigado pelo retorno.


Sds,

Kakay