Access - Cuadros de lista similares como los asistentes.

 
Vista:

Cuadros de lista similares como los asistentes.

Publicado por Mauricio (1 intervención) el 07/01/2003 03:50:44
Hola
Alguien sabe o tiene una rutina para manejar dos cuadros de lista de forma similar a los de los asistentes para informes.
Exactamente necesito:
En un cuadro de lista colocar de una tabla de mi base de datos, a dos columnas( ID y Nombre) los registros de la misma, y a medida que voy seleccionando (con doble click, o con un boton ">") los registros seleccionados se pasan para el otro cuadro, tambien a dos columnas.. y viceversa para devolver algun registro que se haya pasado por equivocacion.
De antemano muchas gracias.
Mauricio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cuadros de lista similares como los asistentes.

Publicado por Diego García (25 intervenciones) el 08/01/2003 01:35:24
Mirate los OCX (ActiveX) DBGrid32.ocx y MsChart.Ocx, el siguiente código es de VB6 con Access 97 (dos tablas), te lo envio y miratelo a ver si te sirve (Creo que lo podrás adaptar facilmente para Access). Utiliza DAO 3.6 o 3.51
Son dos listas y pasas de una a otra o cliqueando o con un arrastrar y soltar

Private Sub DBList1_OLEDragDrop(Index As Integer, Data As MSDBCtls.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
Case 2: Label1(1).Caption = DBList1(1).Text
Data1(2).ReadOnly = False
Data1(2).Recordset.AddNew
Data1(2).Recordset!dato = Label1(1).Caption
Data1(2).Recordset.Update
Data1(2).ReadOnly = True
Data1(2).Refresh
Data1(1).ReadOnly = False
DBList1(2).Refresh
Case 1: Label1(2).Caption = DBList1(2).Text
Data1(1).ReadOnly = False
Data1(1).Recordset.AddNew
Data1(1).Recordset!dato = Label1(2).Caption
Data1(1).Recordset.Update
Data1(1).ReadOnly = True
Data1(1).Refresh
DBList1(1).Refresh
End Select

End Sub

RECIBE UN CORDIAL SALUDO,
Diego
P.D.: Te envio por correo el .Zip con el formulario y el código (VB6)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar