Duplicidad de registros

Aretradeser · el 26 de marzo

Buenas noches,

Como vereis, entre otros, utilizo dos UserForm: uno, para la entrada de datos (UserForm1); y, el otro, (UserForm2), para modificarlos. El problema me surge en la modificación de registros (utilizando el UserForm2); ya que, cuando el registro a modificar se encuentra duplicado, aunque con fechas distintas (supongamos uno con fecha de 2013 y el otro del 2014), todos sus registros se duplican. En cambio, si el registro es único, se modifica sin problema.

Ejemplo:

En la Hoja "INICIO", ejecutamos “Modificación de Informes”, en el formulario que se abre, ejecutamos “Modificación de Datos”, y en en el ComboBox “Número de Registro”, desplegamos y elegimos el “4”. Inmediatamente, en el ListBox, aparecen los registros asociados a este número, en este caso dos; uno, con fecha, 10/01/2013; y, otro, con fecha, 01/02/2014, ambos, con sus correspondientes registros.

Seleccionamos el registro de fecha 01/02/2014, entonces se cargan los distintos campos de este registro en sus correspondientes TextBox y Combos, al objeto de poder modificar cualquiera de ellos.

Elijamos, por ejemplo, modificar el campo "Tipo de Documento", cambiemos el Documento 5 por cualquier otro, despleguemos este ComboBox y seleccionemos, por ejemplo, el Documento 8 (podríamos modificar cualquier otro campo) y ejecutamos “Modificación de Datos”. Teóricamente, en el registro núm. 4, de fecha 01/02/2014, únicamente debió modificarse el Documento 5 por el Documento 8, quedando el resto de los campos como estaban. Pues aquí viene el problema, en vez de haber modificado este dato concreto, Lo que ha hecho es lo siguiente:

Nos dirigimos a la hoja “DATOS”, y comprobamos que han desaparecido todos los campos correspondientes al Num. de Registro "4", de fecha 10/01/2013; y el Núm. de Registro "4", el correspondiente al 01/02/2014, se ha duplicado, uno con Documento 5 y el otro con Documento 8.

En cambio, si elegimos un núm. de registro que no se encuentre duplicado, se modifica normalmente. Incomprensible, al menos para mí.

Por más vueltas que le he dado al código de este formulario, no doy con la solución a este problema. Agradecería, sinceramente, cualquier aportación que contribuya a su resolución.

Muchísimas gracias.

Como el archivo pesa bastante y no lo puedo subir al foro, os dejo este enlace para su descarga:

https://www.dropbox.com/s/vhhbyicluw8mx3w/InformesPrueba.xls

Nota para abrir el archivo InformesPrueba.xls:

USUARIO: Usuario 1

CONNTRASEÑA: Clave 1

Para abrir editor Visual Basic

Contraseña: 123