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:

 

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

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

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

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

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.MoveMin

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

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.MoveMin

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

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

End If
End If
End If
End If

End Sub[/code]

 

Desde ja Meu Muito Obrigado!