Cursor em Pesquisa No DataGrid

[Lucas Lima VB 0]

Tenho um DataGrid em que realiso 3 consultas:

 

A primeira pesquiso um Codigo da revista na primeira coluna(CodigoRevista)

digito em um textbox, e ele encontra normalmente

 

A segunda, pesquiso a Edição da revistas (pois são varios codigos iguais, porem com edições diferente)

na segunda coluna (EdiçãoRevista)

essa pesquisa é a partir do registro que esta selecionado da pesquisa anterior

digito em um texbox, e ele encontra normalmente

 

A Terçeira, pesquiso um codigo de banca (Pois são varias edições

distribuidas em bancas diferentes), essa pesquisa é realizada

apartir do registro que esta selecionado da pesquisa anterior

digito em um text box, e acontece normalmente

 

 

Porem, se eu digito um valor na em um dos textbox, e troco esse valor

desconfigura todas as pesquisas anteriores

o cursor não volta pra pesquisa anterior

 

Isso tem Solução?

 

Ai Vai Meu Codigo:

 

 

 

'Primeira Pesquisa
Private Sub TxtCodigoRevistaEncalheRevistas_Change()
BancoRevistasOperações.Recordset.MoveFirst
BancoRevistasOperações.Recordset.Find "CodigoRevista LIKE '" & TxtCodigoRevistaEncalheRevistas & "'"

If TxtCodigoRevistaEncalheRevistas.Text = "" Then
BancoRevistasOperações.Recordset.MovePrevious

If BancoRevistasOperações.Recordset.BOF Then
BancoRevistasOperações.Recordset.MoveFirst

If BancoRevistasOperações.Recordset.EOF Then
Conexao.rsRevistasOperações.MoveLast

If (DGRevistasOperações.SelBookmarks.Count <> 0) Then
DGRevistasOperações.SelBookmarks.Remove 0

End If
End If
End If
End If

End Sub




'Segunda Pesquisa
Private Sub TxtEdiçãoRevistaEncalheRevistas_Change()
BancoRevistasOperações.Recordset.Find "EdiçãoRevista LIKE '" & TxtEdiçãoRevistaEncalheRevistas & "'"

If TxtEdiçãoRevistaEncalheRevistas.Text = "" Then
BancoRevistasOperações.Recordset.MovePrevious

If BancoRevistasOperações.Recordset.BOF Then
BancoRevistasOperações.Recordset.MoveFirst

If BancoRevistasOperações.Recordset.EOF Then
BancoRevistasOperações.Recordset.MoveLast

If (DGRevistasOperações.SelBookmarks.Count <> 0) Then
DGRevistasOperações.SelBookmarks.Remove 0

End If
End If
End If
End If

End Sub



'Terceira Pesquisa
Private Sub TxtCodigoBancaEncalheRevistas_Change()
BancoRevistasOperações.Recordset.Find "CodigoBanca LIKE '" & TxtCodigoBancaEncalheRevistas & "'"

If TxtCodigoBancaEncalheRevistas.Text = "" Then
BancoRevistasOperações.Recordset.MovePrevious

If BancoRevistasOperações.Recordset.BOF Then
BancoRevistasOperações.Recordset.MoveFirst

If BancoRevistasOperações.Recordset.EOF Then
BancoRevistasOperações.Recordset.MoveLast

If (DGRevistasOperações.SelBookmarks.Count <> 0) Then
DGRevistasOperações.SelBookmarks.Remove 0

End If
End If
End If
End If

End Sub

 

 

Desde ja Meu Muito Obrigado!

[Claudio Neto 3]

Porem, se eu digito um valor na em um dos textbox, e troco esse valor

desconfigura todas as pesquisas anteriores

o cursor não volta pra pesquisa anterior

Não entendi o que quis dizer.

[Lucas Lima VB 0]

Não entendi o que quis dizer.

 

 

Vamos Supor...

 

Digitei o numero 20 no primeiro textbox... na coluna 1 ( que é onde ele procura) o cursor vai para o registro 20

digitei o 5 no segundo textbox... na coluna 2, apartir do 20 da pesquisa anterior, ele encontra o valor 5

digitei o 3 no terceiro textbox..a partir do 20 da coluna 1, do 5 da coluna 2, ele encontra o 3 da coluna 3

mesmo se tiver um valor 3, no segundo registro, ele respeita as primeiras pesquisa

 

porem se eu apago esse valor 3 da 3ª pesquisa, do 3º text box...

ele desconfigura todas as outras pesquisa, é como se eu começasse de novo

ele vai para o ultimo registro da tabela

 

é isso