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


    [Resolvido]Formatação Condicional com base em código

    KleberSilva
    KleberSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 29/07/2011

    [Resolvido]Formatação Condicional com base em código Empty Formatação Condicional com base em código

    Mensagem  KleberSilva 27/3/2012, 19:18

    Mestres, Boa tarde.
    Gostaria que todos os campos do Form ficassem em uma determinada cor assim que o botão editar for pressionado.
    No botão Editar tenho o seguinte código:

    Private Sub Editar_Click()
    Me.AllowEdits = True
    Me.AllowDeletions = True
    End Sub


    Quando clico no botão Salvar os campos deverão voltar a cor inicial.
    No botão Salvar tenho o seguinte código:

    Private Sub Salvar_Click()
    Me.AllowEdits = False
    Me.AllowDeletions = False
    End Sub
    avatar
    Convidad
    Convidado


    [Resolvido]Formatação Condicional com base em código Empty Re: [Resolvido]Formatação Condicional com base em código

    Mensagem  Convidad 27/3/2012, 19:33


    Olá!
    Teste:


    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
    ctl.BackColor = 255 'código da cor
    End If
    Next
    KleberSilva
    KleberSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 29/07/2011

    [Resolvido]Formatação Condicional com base em código Empty Re: [Resolvido]Formatação Condicional com base em código

    Mensagem  KleberSilva 30/3/2012, 15:46

    Agora tenho que implementar uma condição para excutar este código.
    Tenho a seguinte situação:
    'O botão editar libera os campos para edição
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Quero que toda vez que o botão editar for pressionado ative o seguinte código
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
    ctl.BackColor = 255 'código da cor
    End If
    Next

    E ao sair da edição
    Me.AllowEdits = True
    Me.AllowDeletions = True
    Volte a cor normal.
    avatar
    Convidad
    Convidado


    [Resolvido]Formatação Condicional com base em código Empty Re: [Resolvido]Formatação Condicional com base em código

    Mensagem  Convidad 30/3/2012, 16:19


    Acho que você inverteu: Question

    Para editar ... AllowEdits = True
    Para travar ... AllowEdits = False

    Pelo que entendi, basta colocar o código todo junto nos eventos dos botões:


    Private Sub NomeBotãoEditar_Click()
    Me.AllowEdits = True
    Me.AllowDeletions = True
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
    ctl.BackColor = 999 'substitua pelo código da cor a ser aplicada
    End If
    Next
    End Sub

    Private Sub NomeBotãoTravar_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
    ctl.BackColor = 999 'substitua pelo código da cor a ser aplicada
    End If
    Next
    Me.AllowEdits = False
    Me.AllowDeletions = False
    End Sub

    KleberSilva
    KleberSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 29/07/2011

    [Resolvido]Formatação Condicional com base em código Empty Re: [Resolvido]Formatação Condicional com base em código

    Mensagem  KleberSilva 30/3/2012, 18:44

    Cara, você é um mestre mesmo. Só um porém, a formatação não está se aplicando às caixas de seleção.
    avatar
    Convidad
    Convidado


    [Resolvido]Formatação Condicional com base em código Empty Re: [Resolvido]Formatação Condicional com base em código

    Mensagem  Convidad 30/3/2012, 19:57


    No caso, está definido que a formatação será aplicada em controles do tipo caixa de texto: ControlType = acTextBox.
    Poderíamos acrescentar um ControlType = acCheckBox, mas este controle não tem a propriedade BackColor.
    KleberSilva
    KleberSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 29/07/2011

    [Resolvido]Formatação Condicional com base em código Empty Re: [Resolvido]Formatação Condicional com base em código

    Mensagem  KleberSilva 3/4/2012, 04:22

    Ok, vou tentar. De qualquer forma ficou muito bom.
    Obrigado pelo help.

    Conteúdo patrocinado


    [Resolvido]Formatação Condicional com base em código Empty Re: [Resolvido]Formatação Condicional com base em código

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 00:59