Ayuda con este codigo para formulario
Publicado por guillermo javier (25 intervenciones) el 23/03/2012 18:33:06
Hola a todos, dandome una ayuda por internet encontre el codifo que abajo muestro, por el cual creo un tipo de semaforo dentro de un informe.
pero el mismo cuando lo corro en el informe me da error
No me ayudarian por favor.
el ifnorme se llama informe diario
el campo con el dato Seguros_diario
el campo para el semaforo txtsemaforo
muchas gracias
If Me. Seguros_diario => 0 And Me. Seguros_diario =< 50 Then
Me.txtsemaforo.Backcolor = vbRed
ElseIf Me. Seguros_diario > 50 And Me. Seguros_diario =< 70 Then
Me.txtsemaforo.Backcolor = vbYellow
ElseIf Me. Seguros_diario > 70 And Me. Seguros_diario =< 100 Then
Me.txtsemaforo.Backcolor = vbGreen
Else
MsgBox "El puntuaje está fuera de rango"
End If
pero el mismo cuando lo corro en el informe me da error
No me ayudarian por favor.
el ifnorme se llama informe diario
el campo con el dato Seguros_diario
el campo para el semaforo txtsemaforo
muchas gracias
If Me. Seguros_diario => 0 And Me. Seguros_diario =< 50 Then
Me.txtsemaforo.Backcolor = vbRed
ElseIf Me. Seguros_diario > 50 And Me. Seguros_diario =< 70 Then
Me.txtsemaforo.Backcolor = vbYellow
ElseIf Me. Seguros_diario > 70 And Me. Seguros_diario =< 100 Then
Me.txtsemaforo.Backcolor = vbGreen
Else
MsgBox "El puntuaje está fuera de rango"
End If
Valora esta pregunta


0