¿Hace falta MoveLast+If para Do Until rs.EOF?

Hola. Me he liado y ahora mismo no soy capaz de continuar. Leyendo este hilo Como utilizar el bucle Do...Loop - Foro de Access y VBA - Página 1 (mvp-access.com) tenía entendido que no hacía falta pasar MoveLast a Do Until rs.EOF pero tengo problemas. Además, en algunos hilos he visto que indican pasar primero MoveLast y otro no..

Tengo un formulario padre independiente y dentro un subformulario dependiente de la tabla "tblBienes", vinculado por el campo Id. Si yo meto en el subformulario unos valores erróneos, al pulsar el botón guardar del formulario padre los valida y salta mensaje de error, pero si inmediatamente después, elimino el registro del subformulario (la tabla tblBienes se actualiza automáticamente pues es un subformulario con origen de registros, no obstante le paso un Requery) y vuelvo a pulsar el botón Guardar, me sigue saltando el mensaje de aviso, sigue considerando el registro, no sé de dónde. También me lo hace si antes pongo If rs.EOF=False

Me.Subformulario.Form.Requery

Ahora bien, si pongo antes rs.MoveLast, al eliminar el registro del subformulario ya no salta el error y

sí funciona pero relativamente porque si vuelvo a pulsar guardar, entonces me da error porque el conjunto de registros está vacío, así que no entiendo nada :(

Me.Subformulario.Form.Requery

¿Cómo realmente hay que recorrer un recordset y evaluar si tiene o no registros? Ya sé que esto está muy trillado, disculpad. Yo antes pasaba un MoveLast, ignoraba el error si no tenía registros y pasaba If rs.RecordCount>0 y luego ya finalmente el bucle si lo precisaba y así, sí funciona para todas las pruebas:

Tampoco me gusta utilizar On Error Resume Next porque creo que deshabilita los errores para todo el procedimiento, no solo para esa línea.

¿Qué es lo correcto, dónde estoy fallando, por qué si no paso el If a veces falla? Perdonad si el mensaje es algo confuso..

Muchas gracias

Saludos

Saludos,

Hola xavi, gracias por contestar. Me sigue sin funcionar bien del todo. Si yo elimino el registro del subformulario, el registro efectivamente se ha borrado de la tabla pero al pulsar guardar, me sigue leyendo como si tuviera registros, entra en el recordset (¿?) y me salta el msgbox de error, aunque el valor de Porcentaje sea cero porque no hay ningún registro. No entiendo nada.

Al final he metido esto, que ataca directamente a la tabla que estoy intentando leer los datos, ¿pero por qué no me sale con el recordset?

Otra cosa. ¿Not rs.EOF sería lo mismo que rs.RecordCount>0 pero sin la necesidad de pasar un MoveLast para que saque bien el conteo de registros?

Saludos,