nibelungo respondió:
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 =...