TITULO: Función MoveList
DESCRIPCION: Esta función te permitirá traspasar filas entre dos cuadros de lista cuya propiedad Tipo de Origen de la Fila este establecido a “Lista de Valores”. El código está, creo que suficientemente comentado.
EXPLICACION:
Este función fue creada para el ejemplo Buscador que también figura en esta página. Como pense que podría ser util por si misma, la he extraido de allí para ponerla a disposición de cualquiera que quiera utilizarla. La idea mover filas entre cuadros de lista cuya propiedad “Tipo de Origen de la Fila” esté establecida a “Lista de Valores”, es decir, las filas no proceden de ninguna consulta ni tabla, esto complica la situación, pues no podemos recurrir a filtrar las consultas o tablas origen de las filas, ya que no disponemos mas que de una cadena de valores separados por ‘;’.
La función trabaja con tres parámetros:
- frm: definido como Form, para este parámetro habrá que pasar cualquir expresión que identifique válidamente del formulario que contiene los cuadros de lista. Por ejemplo Me, o Forms!NombreFormulario …
- listaOrigen y listaDestino: definidos como string (texto), hay que pasar (encerrados entre comillas) los nombres del cuadro de lista de origen y de destino respectivamente,
Una llamada válida a la función sería: Call MoveList(Me, “ListaA”, “ListaB”), así estariamos indicando que :
- Los cuadros de lista se encuentra en el formulario actual (Me)
- Queremos mover una o varias filas desde el cuadro de lista llamado ListaA al cuadro de lista llamado ListaB.
Puedes aplicar la función a un evento del propio cuadro de lista (por ejemplo click o doble click) o a un evento click de un boto creado expresamente para ello.
Espero que sea de utilidad
Marciano, diciembre de 2005