mensaje error " no hay ningun registro activo"

matamala
09 de Noviembre del 2003
hola a todos.
aver si me podeis ayudar con esto:
realizo una busqueda con esta sentencia de SQL.
Data1.RecordSource = "select * from poblaciones where ( POBLACION like '" & tbbuscar.Text & " ')"
Data1.Refresh
Data1.Recordset.MoveLast
Label1.Caption = "La cántidad de Poblaciones halladas es: " & Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
tbbuscar.SetFocus.
bien no hay problemas funciona el grid me muestra los datos buscados. El problema es si no existe nigun resultado.
que me da el error no hay ningun registro activo, por la sentencia de movelast. movefirst.
como hago para que evite el move si no hay resultados.

gracias de antemano.

Baltasar
09 de Noviembre del 2003
Hola
te falta preguntar si el recordset está vacio, antes de hacer MOVELAST
debes hacer lo siguiente:

Data1.RecordSource = "select * from poblaciones where ( POBLACION like '" & tbbuscar.Text & " ')"
Data1.Refresh
if not data1.eof then
Data1.Recordset.MoveLast
Label1.Caption = "La cántidad de Poblaciones halladas es: " & Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
tbbuscar.SetFocus.
endif

Saludos