Caros colegas, não encontrei no Buscar uma solução, por isso pergunto por que este VBA coloca todas os registros e não só o que tem 83 como conred?
Será que é porque é um Formulário Contínuo?
Ou estou utlizando o evento errado?
Private Sub CodConta2_Enter()
conred = RGB(255, 204, 204)
conblue = RGB(204, 255, 255)
conyellow = RGB(255, 255, 204)
If Me.CodConta2 = 83 Then
Me!CodConta2.BackColor = conred
Else
If Me.CodConta2 = 84 Then
Me.CodConta2.BackColor = conblue
End If
End If
End Sub
Agradeço desde já.
At
MPS
Será que é porque é um Formulário Contínuo?
Ou estou utlizando o evento errado?
Private Sub CodConta2_Enter()
conred = RGB(255, 204, 204)
conblue = RGB(204, 255, 255)
conyellow = RGB(255, 255, 204)
If Me.CodConta2 = 83 Then
Me!CodConta2.BackColor = conred
Else
If Me.CodConta2 = 84 Then
Me.CodConta2.BackColor = conblue
End If
End If
End Sub
Agradeço desde já.
At
MPS