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 : 373
    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 7/9/2021, 17:35

    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 12 vez(es)


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    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 7/9/2021, 20:13

    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 : 373
    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 7/9/2021, 20:20

    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    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 7/9/2021, 20:48

    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 7/9/2021, 21:14, 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 : 373
    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 7/9/2021, 21:13

    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    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 7/9/2021, 21:14

    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: 25/4/2024, 02:55