Visual Basic - Validar registro Null

Porfavor necesito poder validar cuando elimino el ultimo registro de mi base de datos
porque al eliminar el ultimo registro desde visual basic, se me cae el programa.

Osea, voy eliminado cada registro de mi base de datos....uno por uno y todo bien, pero cuando ya me queda un solo registro y lo elimino ahí se me cae. Como lo hago?

Porfavor espero me ayuden. Gracias

CODIGO QUE USAS PARA ELIMINAR LOS REGISTROS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Este es el código que estoy usando:

Private Sub Eliminar_Click()
Dim n As Integer
n = MsgBox("Esta Seguro que desea eliminar el registro?", vbYesNo, "Confirme Eliminacion")
If n = vbYes Then
rs.Delete
End If

rs.MovePrevious
rs.MoveNext
refrescar

End Sub

Yo puedo ir avanzando por cada registro y verlos en los textbox y cuando pincho en eliminar me ejecuta el codigo que puse arriba

si pones rs.movenext y estas en el ultimo, se caera porque no hay nada

y que tendria que poner entonces en el codigo para solucionar mi problema?

hacer una validacion, creo que el recordcount te devuelve el total de registros del recordset no?

entonces seria:

if rs.recordcount > 0 then rs.movenext

Gracias Romasa.

Te puedo hacer una consulta?....me puedes dar alguna otra forma de eliminar mis registros uno por uno y que no tenga problemas cuando elimine el ultimo registro de mi base de datos??

Te lo agradezco

Yo modificaba mis tablas con instrucciones SQL

Para esto debes capturar el ID del registro que vas a eliminar ( su clave primaria )
luego ejecutas la instruccion:

dim cad as string
cad = "DELETE FROM TABLA WHERE CODIGO = ' " & me.txtCodigo.text & "'"
cn.execute (cad) ' cn => objeto connection

Y asi lo hacia yo cuando usaba el 6.0

Pero como tu ya lo tienes avanzado, mejor valida para que no de MOVENEXT en caso no haya mas registros.

Romasa sabes....no me resulta

asi tengo el codigo:

Private Sub Eliminar_Click()
Dim n As Integer
n = MsgBox("Esta Seguro que desea eliminar el registro?", vbYesNo, "Confirme Eliminacion")
If n = vbYes Then
rs.Delete
End If

rs.MovePrevious
rs.MoveNext
refrescar

End Sub

no se donde poner la instruccion que me mandaste del RecordCount, si me pudieras escribir el código con el RecordCount incluido te lo agradeceria.

Private Sub Eliminar_Click()
Dim n As Integer
n = MsgBox("Esta Seguro que desea eliminar el registro?", vbYesNo, "Confirme Eliminacion")
If n = vbYes Then
rs.Delete
End If

if rs.recordcount > 0 then
rs.MovePrevious
rs.MoveNext
refrescar
end if
End Sub

Gracias por responder.
Ahora me elimina los registros super bien, incluso el ultimo pero para este ultimo al borrarlo quedo sin registros en mi tabla (obviamente era lo que queria) pero al iniciar el programa no me deja porque dice que no hay ningun registro en la base de datos.

Como valido eso para que mi programa se ejecute a pesar de no tener registros?

Me has ayudado muchisimo y quisiera pedirte esto ultimo porfa.

Ya logré validarlo, ahora solo necesito validar el valor del campo cuando es nulo
osea como no hay ningun registro todos los campos estan vacios, necesito validar cada campo como vacio.

porque al actualizar al inicio del formulario yo le asigno el valor del campo al textbox, ejemplo

Public Sub refrescar ()
Text1.text = rs!Nombre

y es ahí donde me muestra el error ya que el campo nombre está vacio y no contiene nada al igual que los demas.

Public Sub refrescar ()
Text1.text = iif(rs!Nombre Is DBNull,"",rs!Nombre)

Creo que de esa forma puedes validar lo que mencionas.

Me da error igual, me dice que se requiere un objeto

Por favor!!!
nos te neis aburrados!

este rumasa se cree el dios de la porgramacion y nunca da su brazo a torcer