Ola a todos;
Já algumas vezes eu tinha abordado aqui, como manipular a formatação condicional;
teste e retorne por favor;
Private Sub Comando7_Click()
MsgBox "Conta Selecionada " & vbCrLf & Conta & vbCrLf & "Não tem Saldo Para executar o Movimento..." & (Format(SomaDeVlr, "#,##0.00 €")) & "", vbExclamation, "Gestão Despesas"
On Error Resume Next
Me.Conta.FormatConditions(0).Delete
Me.Conta.FormatConditions.Add acExpression, , "IIf([Conta] = '" & Me.Conta & "', True, False)"
Me.Conta.FormatConditions(0).BackColor = vbRed
Me.Recalc
End Sub
- Anexos
- Assis_OLD.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (41 Kb) Baixado 24 vez(es)