RE:Cambio de color en cuadro de lista
Gracias Felix
Pero lo que hace es ponerme todo el listbox del mismo color y lo que yo quiero es que solo me ponga de diferente color al alumno seleccionado
Te paso el código que utilizo para dar de baja a un alumno (por gentileza de Enrique)
Private Sub cmdDardeBaja_Click()
On Error GoTo NoHaySelec
Dim MensBajaUno As Integer
MensBajaUno = MsgBox("¿ Seguro que quiere dar de baja" & Chr(10) & _
"al alumno seleccionado ?", vbQuestion + vbOKCancel + vbDefaultButton2, "Solicitud de Baja")
If MensBajaUno = vbOK Then
Set BajaUno = CurrentDb.OpenRecordset("Select * From Alumno Where idAlumno=" & ccListadoAlumnos.Column(0), dbOpenDynaset)
BajaUno.Edit
BajaUno!alta = "NO"
BajaUno.Update
ccListadoAlumnos.Requery
ccListadoAlumnos = 0
MsgBox "El alumno " & BajaUno!Nombre & " " & BajaUno!Apellidos & Chr(10) & _
"ha sido dado de baja.", vbInformation, "Solicitud de Baja"
Else
ccListadoAlumnos = 0
MsgBox "Solicitud de baja cancelada.", vbInformation, "Solicitud de baja"
Exit Sub
End If
BajaTodos.Close: Set BajaTodos = Nothing
Exit Sub
NoHaySelec:
If Err.Number = 3075 Then
MsgBox "No ha seleccionado ningún alumno.", vbExclamation, "Error"
End If
End Sub
Un saludo
Jacinto