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]Critérios preenchimento

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 869
    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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1695
    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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 869
    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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1695
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 869
    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: Ter 26 Set 2017, 10:16