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]Formatação condicional em formulário contínuo

    Compartilhe

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 21/05/2015

    [Resolvido]Formatação condicional em formulário contínuo

    Mensagem  Rosalvo Risso em 9/6/2018, 02:22

    Boa noite a todos!

    Tenho um formulário contínuo e preciso bloquear alguns campos caso eles sejam menores ou iguais a "0".
    Resolvi optar pela formatação condicional já que achei que seria mais fácil. Mas não funcionou!!!!
    Usei esta expressão para bloquear os campos:

    SeImed([ValorNota]<="0";[Ativado]=Falso)

    Alguém pode me ajudar nesta questão?
    Obrigado!!
    avatar
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 08/09/2012

    Re: [Resolvido]Formatação condicional em formulário contínuo

    Mensagem  Maicon em 9/6/2018, 07:09

    SeImed([ValorNota]<=0;[Ativado];[Falso])

    Isto seria para que seja lançado o valor "Ativado" ou "Falso" No campo.


    Última edição por Maicon em 11/6/2018, 00:48, editado 2 vez(es) (Razão : Corrigir Sintaxe SeImed para servir para pesquisas pósteriores)


    .................................................................................
    "Uma pessoa que nunca cometeu um erro, nunca tentou nada novo."
    Albert Einstein

    Bons Estudos.

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 21/05/2015

    formatação condicional em formulário contínuo

    Mensagem  Rosalvo Risso em 9/6/2018, 11:57

    Bom dia Maicon!
    Obrigado pela atenção. Mas também não funciona sem as aspas.
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    formatação condicional em formulário contínuo

    Mensagem  toyebom em 10/6/2018, 02:01

    Os dados que forneces são um pouco vagos.
    Em formulário continuo tens de dar referência á linha (registo) caso contrário vai buscar todos.
    Tenta adaptar que deve dar

    Private Sub SEUCAMPO_GotFocus()
    Dim stDocName As String
    Dim stLinkCriteria As String
    If (Not IsNull(DLookup("ValorNota", "SUATABELA", _
             "ValorNota ='" & Me!ValorNota & "'"))) Then
             stDocName = "SEUFORM"
             stLinkCriteria = "[ValorNota]='" & Me![ValorNota] & "'"
           Me.ValorNota.Enabled = False
           Else
           End If
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 21/05/2015

    formatação condicional em formulário contínuo

    Mensagem  Rosalvo Risso em 10/6/2018, 12:54

    Bom dia toyebom!
    Agradeço por sua ajuda, mas não funcionou.
    Aqui está o db caso queira examinar. Obrigado!

    dropbox.com/s/vn6njxeccji42ry/Banco%20de%20dados%20Teste.accdb?dl=1

    Só para lembrar, o que eu necessito é que apenas os campos maior que "0" estejam habilitados e os iguais a "0" bloqueados.

    bacano
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 32
    Registrado : 08/12/2010

    Formatação condicional em formulário contínuo

    Mensagem  bacano em 10/6/2018, 20:18

    no campo ValorNota  ao receber o focu colocas isto

    Private Sub ValorNota_GotFocus()
    If Me.ValorNota <= 0 Then
           Me.ValorNota.Locked = True
           Me.ValorDetNF.SetFocus   ' envias o cursor para outro campo
    Else
           Me.ValorNota.Locked = False
    End If
    End Sub
    Anexos
    BancoTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 10 vez(es)

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 21/05/2015

    formatação condicional em formulário contínuo

    Mensagem  Rosalvo Risso em 11/6/2018, 00:55

    Muito obrigado pela atenção de todos.
    É isso aí Bacano.
    Valeu mesmo.

      Data/hora atual: 19/10/2018, 06:19