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]Ajuda com Formatação Condicional

    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 29/9/2018, 14:44

    Bom dia!

    tenho um formulário folha de dados onde eu gostaria de alterar a cor do campo valorproduto que contiver o menor valor
    como fazer isso?
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 1/10/2018, 05:39

    Veja o exemplo que deixo em anexo e tente adaptá-lo.

    A mágica está no evento ao abrir do formulário2. O código está comentado.
    Anexos
    [Resolvido]Ajuda com Formatação Condicional AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 10 vez(es)
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 1/10/2018, 13:09

    Amigo IvanJr

    Meus campos Tabela =TabProd campos Produto Preçocusto
    tentei adaptar com seguinte código, mas não funcionou


    Private Sub Form_Open(Cancel As Integer)

    Dim rs As DAO.Recordset
    Dim strprodutoAnterior As String

    'abre a tabela1 na memória com os campos categoria e checkbox se é menorvalor ordenado por categoria,
    'e, para produtos de mesma categoria, ordenado por valor
    Set rs = CurrentDb.OpenRecordset("select produto,menorvalor from Tabprod order by produto, preçocusto;")

    While Not rs.EOF 'fazendo loop em todos os registros

    'compara se eu estou mexendo já com outra categoria
    If rs!Produto <> strprodutoAnterior Then

    rs.Edit 'prepara pra edição
    rs!menorvalor = -1 'marca como o de menor valor
    rs.Update 'e salva a alteração
    strprodutoAnterior = rs!Produto 'e salva essa categoria como já trabalhada

    Else 'senão

    rs.Edit 'prepara pra edição
    rs!menorvalor = 0 'marca como não sendo o de menor valor
    rs.Update 'e salva a alteração

    End If

    rs.MoveNext 'move-se para o próximo registro

    Wend 'fim do loop

    'fecha a tabela1: e a descarrega da memória
    rs.Close: Set rs = Nothing


    End Sub
    com seguinte código

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 1/10/2018, 13:40

    Conferiu se o código chega a marcar algum registro do campo menor valor na tabela?

    Se estiver marcando então só falta aplicar a regra da formatação condicional: no modo design, clique com o botão direito controle "valor" do formulário folha de dados no exemplo que anexei e escolha a opção formatação condicional e veja como eu fiz. Aí então, faça o mesmo no seu aplicativo.

    Se não estiver marcando nada na tabela, então anexe aqui os objetos envolvidos no seu projeto para que possamos analisar e ver o que está acontecendo.
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 1/10/2018, 13:49

    corrigi o código ,mas ele pinta dos valores que estiverem marcados!
    o que gostaria de fazer é ao abrir o form pintar apenas aquele registro com menor valor entre todos.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 1/10/2018, 13:59

    então esse é o código

    Código:
    Private Sub Form_Open(Cancel As Integer)

    Dim rs As DAO.Recordset

    'usa o primeiro registro da tabela na memória ordenado por preçocusto
    Set rs = CurrentDb.OpenRecordset("select top 1 menorvalor from Tabprod order by preçocusto;")

    rs.Edit 'prepara pra edição
    rs!menorvalor = -1 'marca como o de menor valor
    rs.Update 'e salva a alteração

    'fecha a tabela1: e a descarrega da memória
    rs.Close: Set rs = Nothing


    End Sub
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 1/10/2018, 14:35

    top1 se refere a qual campo?
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 1/10/2018, 14:45

    A nenhum (observe que há um espaço "TOP 1"). Esta instrução apenas diz para o código que quero como resultado no recordset apenas o primeiro registro encontrado na tabela ordenado por preçocusto (que certamente é o de menor valor e é ele que será marcado). Faltou só um pequeno detalhe que adicionei agora no código.

    Código:
    Private Sub Form_Open(Cancel As Integer)

    Dim rs As DAO.Recordset

    'desmarcando todos os registros que tiver marcado como menor valor para uma nova avaliação que se seguirá
    Currentdb.Execute "update Tabprod set menorvalor = 0;"

    'usa o primeiro registro da tabela na memória ordenado por preçocusto
    Set rs = CurrentDb.OpenRecordset("select top 1 menorvalor from Tabprod order by preçocusto;")

    rs.Edit 'prepara pra edição
    rs!menorvalor = -1 'marca como o de menor valor
    rs.Update 'e salva a alteração

    'fecha a tabela1: e a descarrega da memória
    rs.Close: Set rs = Nothing


    End Sub
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 1/10/2018, 15:01

    me perdoe a inexistência ,mas continua a pintar todos
    anexei um exemplo se quiser dar uma olhada.
    Anexos
    [Resolvido]Ajuda com Formatação Condicional Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 7 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 1/10/2018, 15:56

    Aqui funcionou depois que exclui três registros cadastrados sem valor que não eram retornados no formulário de pesquisa.
    Anexos
    [Resolvido]Ajuda com Formatação Condicional Attachmentimg3.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 14 vez(es)
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 1/10/2018, 20:44

    Exclui os registros em branco ,mas aqui não funciona !
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 1/10/2018, 21:05

    Vou ficar devendo nessa particularidade.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 26/10/2018, 01:17

    Agravina, conseguiu resolver?
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 26/10/2018, 10:11

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 585
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  IvanJr. em 26/10/2018, 11:39

    Ok. Dá um resolvido neste tópico aqui. Very Happy
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  vieirasoft em 27/10/2018, 10:27

    Não devem esquecer o resolvido
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Agravina em 27/10/2018, 14:41

    Aqui para min aparece como resolvido!

    Conteúdo patrocinado

    [Resolvido]Ajuda com Formatação Condicional Empty Re: [Resolvido]Ajuda com Formatação Condicional

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 16:27