Convidad 7/10/2011, 20:48
A questão original é a seguinte:
Tenho um campo texto que exibe mensagens que vão mudando no timer.
Queria variar tambem a cor da fonte, então pensei em alternar quando o código do registro fosse par/impar:
cod / 2 = é inteiro então cor tal
cod / 2 = não inteiro então cor tal
Mas fiz de outro jeito:
Dim varCod As Integer, varT As Integer
varC = 1
Form.TimerInterval = 3000
Private Sub Form_Timer()
On Error GoTo Trato
Me.Texto = DLookup("Mensagem", "tblMensagens", "Código=" & varCod)
varT = DLookup("Tempo", "tblMensagens", "Código=" & varCod)
If varCod < DMax("Código", "tblMensagens") Then
varCod = varCod + 1
ElseIf varCod = DMax("Código", "tblMensagens") Then
varCod = 1
End If
Form.TimerInterval = varT * 1000
'aqui a solução encontada:
Static X As Boolean
If Not X Then
Me.Texto.ForeColor = 8388608 'azul.
Else
Me.Texto.ForeColor = 8421504 'cinza.
End If
X = Not X 'Alterna o estado.
Exit Sub
Trato:
Info Err.Description
End Sub
Valeu!