MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Formatação condicional no access com com três campos

    avatar
    Ricardo Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/08/2017

    Formatação condicional no access com com três campos Empty Formatação condicional no access com com três campos

    Mensagem  Ricardo Oliveira em 1/6/2019, 21:39

    Boa tarde pessoal,

    É minha primeira postagem neste grupo, e preciso de ajuda para solucionar meu problema.

    tenho um BD com vários campos, onde preciso mostrar o status do registro á medida que flego os campos:

    SEPARADO, CONFERIDO E EXPEDIDO. estou usando este código, mas só muda a cor para apenas duas condições, falta a terceira.

    If Me.Conferido.Value = não Then
    If Me.Separado.Value = sim Then
       Me.Data.BackColor = vbWhite
       Me.Data.ForeColor = vbBlack
    Else
       Me.Data.BackColor = vbYellow
       Me.Data.ForeColor = vbBlack

    End If
    End If

    Alguém pode me ajudar?
    grato.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 23/01/2018

    Formatação condicional no access com com três campos Empty Re: Formatação condicional no access com com três campos

    Mensagem  crysostomo em 6/6/2019, 19:38

    Bom tarde colega, no caso eu colocaria  o condicional ..
    mas, pelo caso segue anexo:


    Código:
    Private Sub Combinação9_Click()
      
    If Me.mudarDeCor.Value = "sim" Then
       Me.data.BackColor = vbGreen
       Me.data.ForeColor = vbBlack

    ElseIf Me.mudarDeCor.Value = "não" Then
       Me.data.BackColor = vbRed
       Me.data.ForeColor = vbBlack

    Else
       Me.data.BackColor = vbYellow
       Me.data.ForeColor = vbBlack
    End If

    End Sub
    Anexos
    Formatação condicional no access com com três campos AttachmentMudarCor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 5 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 21/9/2019, 16:54