Hola. Me he liado y ahora mismo no soy capaz de continuar. Leyendo este hilo  http://www.mvp-access.com/foro/como-utilizar-el-bucle-doloop_topic86122.html" rel="nofollow - 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,

Lo que yo hago es asignar el recordset y, a continuación, mirar si está vacío:

Set rs = Me!Subformulario.Form.RecordsetClone

If rs.EOF Then

  ' Está vacío

Por otro lado, y como información, te cuento como recuperar el control de errores.

Lo habitual es tener una instrucción On Error al inicio del procedimiento que indique a que etiqueta del procedimiento se enviará el código cuando se produzca un error.

On Error GoTo ErrorHandler

Otra opción es la "patada a seguir"

On Error Resume Next

pero eso tiene el peligro que queda activo.

Para volver a "activar" que, de producirse un error, se pare el código, se utiliza

On Error GoTo 0

Lectura recomendada:  https://learn.microsoft.com/es-es/dotnet/visual-basic/language-reference/statements/on-error-statement" rel="nofollow - Instrucción On Error - Visual Basic | Microsoft Learn

Un saludo

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,

Hola, pueden cerrar el hilo plis, gracias.