Cambiar Backcolor en campo de formulario
Tengo una base de datos sencilla, y los datos los meto por medio de un formulario. Me gustaría que uno de los campos cambiara el color de fondo, si se cumple que otro de los campos del mismo formulario, contiene datos, es decir que no está vacío.
1 Respuesta
Respuesta de nibelungo
1
Esto a ver que tal:
Private Sub Texto2_BeforeUpdate(Cancel As Integer)
Dim lngRojo As Long, lngBlanco As Long
lngRojo = RGB(255, 0, 0)
lngBlanco = RGB(255, 255, 255)
If Not Me.Texto2 = "" Then
Me.texto1.BackColor = lngRojo
Else
Me.texto1.BackColor = lngBlanco
End If
End Sub
Texto1 es el campo que cambia de color, mientras que texto2 es el campo donde se mira si hay texto o no.
Saludos,
***********
Mensaje independiente
Busco empleo como programador de Access
[email protected]
*************
Private Sub Texto2_BeforeUpdate(Cancel As Integer)
Dim lngRojo As Long, lngBlanco As Long
lngRojo = RGB(255, 0, 0)
lngBlanco = RGB(255, 255, 255)
If Not Me.Texto2 = "" Then
Me.texto1.BackColor = lngRojo
Else
Me.texto1.BackColor = lngBlanco
End If
End Sub
Texto1 es el campo que cambia de color, mientras que texto2 es el campo donde se mira si hay texto o no.
Saludos,
***********
Mensaje independiente
Busco empleo como programador de Access
[email protected]
*************
