MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Critérios preenchimento

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Critérios preenchimento

    Mensagem  toyebom em Dom 16 Fev 2014, 02:32

    assim funciona

    Private Sub CheckBox_AfterUpdate()
    If Me.CheckBox = True Then
    Me.TextBox = Date
    End If
    If Me.CheckBox = False Then
    Me.TextBox = ""
    End If
    End Sub

    Assim não

    Private Sub CheckBox_AfterUpdate()
    If Me.TextBox = "" And Me.CheckBox = True Then
    Me.TextBox = Date
    End If
    If Me.TextBox = Date And Me.CheckBox = False Then
    Me.TextBox = ""
    End If
    End Sub

    Onde errei???


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

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Critérios preenchimento

    Mensagem  Dilson em Dom 16 Fev 2014, 03:30

    Olá toyebom,

    Veja assim:

    If Me.TextBox.Value = "" Or Empty Or IsNull(Me.TextBox) And Me.CheckBox = True Then
    Me.TextBox = Date
    ElseIf Me.CheckBox = False And Me.TextBox.Value = Date Then
    Me.TextBox = ""
    End If


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Critérios preenchimento

    Mensagem  toyebom em Dom 16 Fev 2014, 14:53

    Não funciona dá erro

    Se não me expliquei bem peço desculpa

    na caixa de verificação como True coloca a data atual na caixa de texto caso este esteja vazia e estiver preenchida não faz nada
    na caixa de verificação como False limpa a caixa de texto se a data for a atual e se for outra também não faz nada

    o critério é que altere a data se for a de hoje se for de outro dia deixe a mesma ficar e se não houver data coloque a de hoje


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

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Critérios preenchimento

    Mensagem  Dilson em Dom 16 Fev 2014, 15:12

    O que postei está fazendo isso.

    Mude a data atual e veja que poderá marcar e desmarcar que a data não será alterada. Agora se for data atual obedecerá ao clique(inserindo ou limpando).

    Dá uma compactada na tua base se não estiver funcionando o que descrevi.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Critérios preenchimento

    Mensagem  toyebom em Dom 16 Fev 2014, 16:00

    Tens razão o problema era que tinha a textbox como texto e não como data, agora resulta o unico problema é que me apaga 1050 registos inseridos

    obrigado pela ajuda.

    E aqui podes ajudar???

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


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

      Data/hora atual: Dom 04 Dez 2016, 01:58