[Resolvido]formatar cores

olá estou usando um codigo que quando o aluno tira nota acima  de 6 ele é aprovado, e se for abaixo de 6 ele é reprovado , só que agora que quando aparecer o aprovado fique com a cor azul, e se reprovado com a cor vermelho, alguem ai pode me ajudar,  eu já procurei mais nao achei , o código que estou usando é este aki , desde ja fico agradecido

Dim AuxPort1 As Currency
AuxPort1 = (Port1)
If Port1 >= 6 Then
txtPort1 = "APROVADO"
Else
txtPort1 = "REPROVADO"
End If



aproveitando como faço pra quando digitar uma nota de zero até 5,9 ficar em vermelho , e acima de 6 ficar em azul?

Sou novo no Access mas acho que você pode fazer assim:

Código:

   Dim AuxPort1 As Single
    AuxPort1 = CSng(Port1)
    If AuxPort1 >= 6 Then
        txtPort1 = "APROVADO"
        txtPort1.ForeColor = vbBlue
    Else
        txtPort1 = "REPROVADO"
        txtPort1.ForeColor = vbRed
    End If


Precisa verificar o tipo de Port1.
No caso considerei que é texto (string) assim converti para single para poder fazer a comparação numericamente.
Veja que defini AuxPort1 como single.

oi, valeu vou testar , muito obrigado

show de bola , deu certo, vcs são os melhores ,

só faltou agora
pra quando digitar uma nota de zero até 5,9 ficar em vermelho , e acima de 6 ficar em azul?

Não entendi muito bem sua dúvida.

Você diz trocar a cor do próprio número digitado?

Poderia ser mais claro?

oi, desculpe acho que não soube explicar , deixa eu ver , é mais ou mens assim , eu digitando normalmente , por exemplo se eu digitar a nota de 0 até 5,9 ela ficar da cor vermelha, e se eu digitar de 6 até 10 da cor azul , tem como fazer isso ?

Bom dia Carlos.

Bom, se entendi bem, creio que seja simplesmente fazer assim:

Código:

    Dim cPort1 As Currency
    cPort1 = CCur(Port1)
    If cPort1 < 6 Then
        Port1.ForeColor = vbRed
        txtPort1.ForeColor = vbRed
        txtPort1 = "REPROVADO"
    Else
        Port1.ForeColor = vbBlue
        txtPort1.ForeColor = vbBlue
        txtPort1 = "APROVADO"
    End If


Mudando um pouco de assunto, o tipo da variável auxiliar cPort1 pode ser Currency também, como voce havia feito e eu coloquei no presente código.

Espero que seja do jeito que você deseja.

Abraço.

oi, a palavra aprovado e reprovado ficou show de bola , está mudando decor beleza, só que agora estou com outro problema , quando clico em salvar , ele salva mais quando saio do formulario que entro outra vez , é como se eu nao estivesse salvo, ele volta e fica da cor preta, tem como me ajudar nisso ?

Bom dia, apenas um pitaquinho...

Coloque a rotina ( código ) que te foi passado no evento ao carregar e no atual do teu formulário.

ok, vou testar,

valeu , deu certo , eu nao sei se devo abrir outro topico ou falar aki mesmo, se estiver errando vc me corrige,

é que no meu botão excluir do formulario cadastrar usuario, ele nao está excluindo o usuario, sabe me dizer o porque ?

Duas coisas....

1- nova duvida...novo tópico.

2- não se esquecer de dar o tópico por resolvido.

Abraços.

ok, eu vou colocar novo tópico , e gostaria que vc respondesse, vc foi muito atencioso, muitissimo obrigado