MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

    Walter
    Walter
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 18/04/2011

    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário Empty [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

    Mensagem  Walter Ter 07 Set 2021, 10:05 pm

    Boa tarde, amigos.
    Uma questão simples que, por um motivo não decifrei, não consegui resolver.
    No Banco de Dados em anexo estou tentando implantar um recurso bem simples:

    Gostaria que o controle txt_IdentifVeiculo mudasse sua cor de fundo (backcolor) para VERMELHO, se a caixa de texto (DataSaida) está preenchida e a outra (DataRetorno) está VAZIA. Ou seja quando o veiculo ainda não retornou da viagem.
    Tentei usar esse código abaixo mas ele não funcionou. Coloquei no evento NO ATUAL e no APÓS ATUALIZAR no Formulario Principal. Poderiam ver se há erro no código ou como fazer para funcionar, por favor?


    Código:

    Select Case Forms!Fml_Veiculo!SubFml_Viagem!DataRetorno
       Case Is = ""
           Select Case Forms!Fml_Veiculo!SubFml_Viagem!DataSaida
               Case Is <> 0
           Me.txt_IdentifVeiculo.BackColor = vbRed
           End Select
       Case Is = ""
           Select Case Forms!Fml_Veiculo!SubFml_Viagem!DataSaida
               Case Is = ""
           Me.txt_IdentifVeiculo.BackColor = vbBlue
           End Select
    End Select



    Obrigado.
    Anexos
    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário AttachmentControle da Frota.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 5 vez(es)


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 75%

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

    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário Empty Re: [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

    Mensagem  crysostomo Qua 08 Set 2021, 12:43 am

    Boa tarde . Você pode colocar esse campo no condicional, na própria pagina ele vai identificar se precisar verificar outro formulário.


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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 18/04/2011

    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário Empty Re: [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

    Mensagem  Walter Qua 08 Set 2021, 12:50 am

    Obrigado pela atenção, Crysostomo.

    Voce poderia explicar melhor como fazer isso?
    Não entendi bem...


    Se a sua sugestão é usar o If Then eu tentei agora:

    If Forms!Fml_Veiculo!SubFml_Viagem!DataRetorno = "" And Forms!Fml_Veiculo!SubFml_Viagem!DataSaida <> 0 Then
    Me.txt_IdentifVeiculo.BackColor = vbRed
    Else
    Me.txt_IdentifVeiculo.BackColor = vbBlue
    End If

    Mas não funcionou...


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 75%

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

    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário Empty Re: [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

    Mensagem  crysostomo Qua 08 Set 2021, 1:18 am

    cheguei agora deu uma olhada.
    Voce não precisa colocar a condição para dois campos se você só quer o retorno do carro.


    So acrescenta o seguinte codigo
    Código:

    Private Sub Cbo_Veiculo_AfterUpdate()
        DoCmd.ApplyFilter , "CodigoVeiculo=" & Me!Cbo_Veiculo.Column(0)
        Me.txt_IdentifVeiculo = Me.Cbo_Veiculo.Column(1)
        Me.SubFml_Viagem.SetFocus
        Me.Btao_NovaViagem.SetFocus
        Me!Cbo_Veiculo = Null
    ===ESSE '===
    If IsNull(Me!SubFml_Viagem!DataRetorno) Then
        Me.txt_IdentifVeiculo.BackColor = vbRed
    Else
          Me.txt_IdentifVeiculo.BackColor = vbBlue
    End If
    End Sub


    Última edição por crysostomo em Qua 08 Set 2021, 1:44 am, editado 1 vez(es)


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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 18/04/2011

    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário Empty Re: [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

    Mensagem  Walter Qua 08 Set 2021, 1:43 am

    Perfeito, meu amigo!

    Funcionou direitinho.

    Muito obrigado pela sua atenção e disposição.

    Um grande abraço.


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 75%

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

    [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário Empty Re: [Resolvido]Mudar a cor do fundo de uma caixa de texto baseado em outro controle no subformulário

    Mensagem  crysostomo Qua 08 Set 2021, 1:44 am

    Obg pelo retorno.
    Sucesso


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

      Data/hora atual: Dom 17 Out 2021, 3:02 am