Informática, pregunta formulada por QproHD, hace 2 meses

investigue y escriba el código para cambiar la propiedad backcolor de cualquier control como respuesta a ubicar el cursor del mouse sobre este control​

Respuestas a la pregunta

Contestado por xdholam
0

Respuesta:

Sub Form_Current()

Dim curAmntDue As Currency, lngBlack As Long

Dim lngRed As Long, lngYellow As Long, lngWhite As Long

If Not IsNull(Me!txtPastDue.Value) Then

curAmntDue = Me!txtPastDue.Value

Else

Exit Sub

End If

lngRed = RGB(255, 0, 0)

lngBlack = RGB(0, 0, 0)

lngYellow = RGB(255, 255, 0)

lngWhite = RGB(255, 255, 255)

If curAmntDue > 100 Then

Me!txtPastDue.BorderColor = lngRed

Me!txtPastDue.ForeColor = lngRed

Me!txtPastDue.BackColor = lngYellow

Else

Me!txtPastDue.BorderColor = lngBlack

Me!txtPastDue.ForeColor = lngBlack

Me!txtPastDue.BackColor = lngWhite

End If

End Sub

Explicación:

Creo que era este, no se si te sirve xd

Otras preguntas