dm700

Podrías emplear FOR EACH para explorar todas las pestañas de la colección y examinar ese campo. Por ejemplo dim ficha for each ficha in pestanas 'aquí iria el nombre del control de pestañas if ficha.cuadroDeTexto.Text="este" then msgbox "computar...

No se que resultados devuelve tu consulta pero al hacer If Cuenta![Cuenta] = Me![Cuenta] Estás comparando que sean iguales, pueden tener el mismo Texto, Nro o estar vacíos, pero si son iguales te pondrá la variable registro en True y el mensaje te lo...