Proximo Resultado - Acess

[Guest Oliveira]

Tenho no botão Buscar, o código abaixo:

Private Sub Command5_Click()

vAluno = TextBusca.Text

Data1.Recordset.FindFirst "Aluno Like '*" & vAluno & "*' "

End Sub

... Mais ele encontra sempre o primeiro resultado;

1º Como que eu poderia fazer para que quando apertasse o botão novamente aparecesse o registro mais próximo?

2º E como ordernar os registro do DBGRID?

Sei que é uma pergunta besta, mais eu ainda não sei.

[Graymalkin]

Tenho no botão Buscar, o código abaixo:

Private Sub Command5_Click()

vAluno = TextBusca.Text

Data1.Recordset.FindFirst "Aluno Like '*" & vAluno & "*' "

End Sub

... Mais ele encontra sempre o primeiro resultado;

Sim, note que "FindFirst" significa "Procure o primeiro" (find = procure; first = primeiro).

1º Como que eu poderia fazer para que quando apertasse o botão novamente aparecesse o registro mais próximo?

Utilizando FindNext (next = próximo).

2º E como ordernar os registro do DBGRID?

Eu costumo abrir a tabela ordenando por SQL (com a cláusula ORDER BY) e depois jogá-la para a grade.

Abraços,

Graymalkin

[Guest Oliveira]

Opa! Valeu já tá dando pra ter noção da coisa.

Obrigado.