
CAMBIAR COLOR DE FONDO A UN TEXBOX
Publicado por Jorgefl (18 intervenciones) el 06/05/2020 00:50:57
En un campo de texto con tipo de “Datos Moneda”, deseo que al momento de perder el foco, si la cantidad es mayor a la que comúnmente se captura me cambie el fondo del campo a color amarillo.
Al poner el código sale un cuadro de mensaje que dice: Error de compilación: No se ha definido Sub o Function, enviándome el error en esta línea MsBox "VERIFIQUE CANTIDAD", vbYesNo, "ATENCIÓN"
Por favor ayuda, de antemano gracias.
Al poner el código sale un cuadro de mensaje que dice: Error de compilación: No se ha definido Sub o Function, enviándome el error en esta línea MsBox "VERIFIQUE CANTIDAD", vbYesNo, "ATENCIÓN"
Por favor ayuda, de antemano gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CANTIDAD_LostFocus()
Dim Cant_Mayor As Long
Dim Yellow As Long
Cant_Mayor = (CANTIDAD * 5)
Yellow = RGB(255, 255, 0)
If CANTIDAD >= Cant_Mayor Then
MsBox "VERIFIQUE CANTIDAD", vbYesNo, "ATENCIÓN"
MsgBox = vbYes
Me.CANTIDAD.BackColor = Yellow
Else
MsgBox = vbNo
CANTIDAD.SetFocus
End If
End Sub
Valora esta pregunta


0