[Resolvido]campo com cor conforme nota 0 a 10

bom dia amigos do forum estou aqui dinovo tenho um formulario precizo coloca cor num campo conforme nota 0 a 10 não to consiguindo preçizo ajuda obrigado

bom dia amigo Luiz, fiz um simples exemplo que você pode adaptar ao que precisa tente ai , aguardo retorno !
abraço Nogaro

no seu form cria um campo com o nome campo_nota e testa!!!


Private Sub campo_nota_BeforeUpdate(Cancel As Integer)
If Me.campo_nota.Value = 1 Then
Me.campo_nota.BackColor = 5243047
End If

If Me.campo_nota.Value = 2 Then
Me.campo_nota.BackColor = 16776960
End If
If Me.campo_nota.Value = 3 Then
Me.campo_nota.BackColor = 16711680
End If
If Me.campo_nota.Value = 4 Then
Me.campo_nota.BackColor = 3881966
End If

If Me.campo_nota.Value = 10 Then
Me.campo_nota.BackColor = 7637829
End If

End Sub



segue tabela de cores https://www.maximoaccess.com/t21-cores-rgb-no-vba-do-ms-access

Aproveitando a questão do amigo Luíz Pilões e sem querer desviar o seu assunto gostava que me pudessem ajudar a resolver a questão da cor de campos, mas ao invés de números gostava que definisse a cor consoante a palavra que escolhesse numa caixa de combinação.
Tenho uma caixa de combinação com as palavras Pendente e Concluído e que queria que ao selecionar a Pendente ficasse a vermelho e bloqueasse o assunto concluído e quando clicasse Concluído ficasse com o texto a verde e bloqueasse o texto pendente.
Mando em anexo BD exemplo.

Código:

https://drive.google.com/open?id=0B9JbAjgrR6yDQUw5TENhelJ5TEk

pcnet,

no evento apos atualizar

If Me.seucampo = "pendente" Then
Me.seucampo.BackColor = vbRed
Me.seucampo.Locked = True
End If
If Me.seucampo = "concluido" Then
Me.seucampo.BackColor = vbGreen
Me.seucampo.Locked = True
End If

Mas vale lembrar que ao bloquear o campo, vc nao conseguira alterar o conteudo. Entao seria interessante que fosse disponibilizado  uma maneira para que se possa alterar a informacao "pendente" para "concluido" quanto a registro for encerrado.

obrigado a todos consegui resolver adapitando o exemplo du nogaro obrigado

Boa tarde amigo tauron,

Obrigado pela sua disponibilidade em ajudar-me.
Consegui executar o código que me disponibilizou e realmente a função de bloquear já não permite executar mais esse comando.
A intenção seria ao escolher pendente ele bloquesse não esse comando mas sim o assunto relacionado "AssuntoPendente" ou "AssuntoConcluído", para não dar azos a enganos no preenchimento dos campos.

Segue em anexo ficheiro
campo com cor

boa noite amigo Luiz, fico feliz por ter ajudado em seu aplicativo, e obrigado a todos que participaram em ajudar o amigo Luiz !

O Fórum agradece o retorno
bons estudos !

abraço Nogaro !

Olá amigo Nogaro513,
Podia dar-me uma ajuda a resolver a minha questão?
Obrigado

boa tarde amigo ferreira, abra outro Tópico e detalhe bem sua necessidade que com certeza ajudaremos a resolver, abraço Nogaro !

Ok, peço desculpa!
Muito obrigado

Olá a todos,
Carlos Nogaro, bem visto , assim os tópicos ficam menos confusos para os colegas do fórum.
Pcnet, com certeza terá ajuda, não seja este o MaximoAccess
Abraço a todos.

Olá ahteixeira!
Mais uma vez peço desculpa por ter entrado no tópico do amigo Luiz Pilões para tentar solucionar uma dúvida minha.
Não foi com intenção de prejudicar ninguém.
Agradeço também a ajudo do amigo tauron.
Cumprimentos a todos e obrigado pela ajuda que nos dão.