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

    [Resolvido] Alterar formatação de caixa de listagem, de acordo com o texto, quando atualiza

    Compartilhe

    bellaF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 35
    Registrado : 05/04/2017

    [Resolvido] Alterar formatação de caixa de listagem, de acordo com o texto, quando atualiza

    Mensagem  bellaF em Ter 18 Abr 2017, 14:03

    Bom dia, pessoal do fórum.
    Eu tenho um formulário com caixas de listagem que atualizam com referência à uma caixa de texto.
    Eu gostaria, de conforme ela atualiza, dependendo do que ta escrito mudar a formatação dela.
    Tentei usar o código a seguir e não deu certo, pois não está alterando. Alguém poderia me ajudar? Envio em anexo o BD também.
    Obrigada!

    Private Sub cxlTipoCliente_AfterUpdate()
      If Me.cxlTipoCliente.Text = "Prioridade" Then
        Me.cxlTipoCliente.BackColor = &HFF&
        Me.cxlTipoCliente.Font = Bold
        Me.cxlTipoCliente.ForeColor = &HFFFFFF
      End If
    End Sub

    OBS.: Testar formulário de recebimento, com pedido 1111111111.
    Anexos
    Controle de Pedidos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (153 Kb) Baixado 4 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido] Alterar formatação de caixa de listagem, de acordo com o texto, quando atualiza

    Mensagem  JPaulo em Ter 18 Abr 2017, 14:36

    Ola;

    Você tem listboxs a fazerem de caixas, o que não é uma boa opção, devido ás listas serem muito limitadas;

    Se ainda assim quiser continuar com as listas, só consegue deste jeito;

    Código:
    Private Sub txtPed_AfterUpdate()
    Dim db As Database
    Dim rs As Recordset
    Dim strSQL$
    strSQL = "SELECT tbl_inbound.Pedido, tbl_inbound.[Tipo Cliente]"
    strSQL = strSQL & " FROM tbl_inbound "
    strSQL = strSQL & " WHERE tbl_inbound.Pedido Like '" & [Forms]![fml_receber].[txtPed] & "*';"
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)

    If rs.RecordCount = 0 Then Exit Sub

        If rs![Tipo Cliente] = "Prioridade" Then
            Me.cxlTipoCliente.FontBold = True
            Me.cxlTipoCliente.ForeColor = vbRed
            Else
            Me.cxlTipoCliente.FontBold = False
            Me.cxlTipoCliente.ForeColor = vbBlack
        End If
    rs.Close: Set rs = Nothing
    db.Close
    Me.Repaint
    End Sub

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    bellaF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 35
    Registrado : 05/04/2017

    Re: [Resolvido] Alterar formatação de caixa de listagem, de acordo com o texto, quando atualiza

    Mensagem  bellaF em Ter 18 Abr 2017, 15:07

    Obrigada, JPaulo e Silvio.
    Não sabia que não funcionava com a caixa de listagem.
    JPaulo, o código que você enviou funcionou corretamente! Muito obrigada pela ajuda!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido] Alterar formatação de caixa de listagem, de acordo com o texto, quando atualiza

    Mensagem  JPaulo em Ter 18 Abr 2017, 15:26

    Obrigada pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Seg 20 Nov 2017, 17:20