Cita:
Iniciado por JoseGMariani 
Hola ese mismo es el codigo! Muchas gracias avellaneda! pero ahora tengo un percanse.. bueno dos pero el primero me atormenta mas.. :S
le eh puesto el codigo y funciona a la perfeccion Gracias..
pero me di cuenta de algo.. que si no selecciono ningun iten y piso el boton.. me da error que le tengo q agregar al codigo para que cuando no seleccione ningun iten y pise le boton me salga un msj..
mas o menos tengo la idea del codigo en mi cabeza.. XD se que es algo con ''if'' o and y luego un msg ... cierto? es q noc mucho de VB y como veras estoy aprendiendo ya porlomenos le eh agarrado el camino! :) me puedes ayudar porfavor..
Muchas Gracias!!
y pues la segunda es un poco mas complicada pero menos importante.. jeje esa si no se puede solucionar con codigo yo vere como le doy la vuelta , bueno la cosa es que el programa trabaja con dos list, uan de las list es la q guarda el cod y la otra list es la q se le muestra al usuario.. entonces si yo pongo el cod que me diste, funciona a la perfeccion! pero al ponerle tambien la otra lista me da error odviamente por q no eh seleccionado ningun iten de la otra lista (la q almacena el codigo,''que esta invisible'') una de la soluciones es tener que poner la otra lista visible y pues tendria que seleccionar de las dos listas y pisar el boton.. :s pero si hay alguna manera de entrelazar las dos listas.. seria genial de todas maneras ya con poder solucionarme la primera duda, me conformo.. muchas GRACIAS! POR TU TIEMPO DE VERDAD GRACIAS.. ESPERO OTRA RESPUESTA!
Hola, lo que entendí es que en el List1 cargas el Código de usuario y en el List2, el nombre. Se supone que si lo estás cargando desde un recordset, la posición en cada list serán correspondientes, es decir, el primer item del List1 se corresponde con el primero del List2, y así todos.
Y al eliminar un item del List1, se debe eliminar también el correspondiente del List2 (nombre de usuario).
Si no se ha seleccionado un item del List1, mostramos un mensaje:
Código:
Private Sub cmdEliminar_Click()
On Error GoTo hErr
List2.ListIndex = List1.ListIndex
List1.RemoveItem List1.ListIndex
List2.RemoveItem List2.ListIndex
Exit Sub
hErr:
If Err.Number = 5 Then
MsgBox "Debe seleccionar in Item de la lista"
Else
MsgBox Err.Number & " - " & Err.Description
End If
End Sub
Feliz año nuevo!!