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 : 369
    Registrado : 17/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 Set 07, 2021 5:35 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 8 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 : 2032
    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 Ter Set 07, 2021 8:13 pm

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    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 : 369
    Registrado : 17/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 Ter Set 07, 2021 8:20 pm

    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 : 2032
    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 Ter Set 07, 2021 8:48 pm

    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 Ter Set 07, 2021 9:14 pm, editado 1 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    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 : 369
    Registrado : 17/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 Ter Set 07, 2021 9:13 pm

    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 : 2032
    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 Ter Set 07, 2021 9:14 pm

    Obg pelo retorno.
    Sucesso


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [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  Conteúdo patrocinado


      Data/hora atual: Dom Maio 22, 2022 6:30 pm