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


2 participantes

    [Resolvido]Critérios preenchimento

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Critérios preenchimento Empty [Resolvido]Critérios preenchimento

    Mensagem  toyebom 16/2/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
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Critérios preenchimento Empty Re: [Resolvido]Critérios preenchimento

    Mensagem  Dilson 16/2/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
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Critérios preenchimento Empty Critérios preenchimento

    Mensagem  toyebom 16/2/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
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Critérios preenchimento Empty Re: [Resolvido]Critérios preenchimento

    Mensagem  Dilson 16/2/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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Critérios preenchimento Empty Critérios preenchimento

    Mensagem  toyebom 16/2/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???

    http://maximoaccess.forumeiros.com/t17512-pesquisa-entre-datas


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

    Conteúdo patrocinado


    [Resolvido]Critérios preenchimento Empty Re: [Resolvido]Critérios preenchimento

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:39