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


4 participantes

    [Resolvido]Status ativo mudar na data final do contrato

    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Status ativo mudar na data final do contrato Empty [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Nill.GO 3/8/2018, 00:20

    Boa noite

    Tenho o campo "ativo" (sim ou não)

    Gostaria que mudasse automático, quando atingir a data final.
    Tentei fazer mas não consegui implementar corretamente

    ............... codigo ...............
    If Me.txtDataFimContrato = Now() Then
    cxSelecaoAtivo = True
    Else
    cxSelecaoAtivo = False

    Exemplo:
    Início Contrato
    [01/01/2018]

    Fim Contrato
    [30/12/2018]

    [x]Ativo
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  livio.sfranca 3/8/2018, 14:31

    Bom dia Nilton,

    Tente trocando o "= Now()" por ">=Date"
    Coloquei o sinal de maior (>) na condição pois se a data for anterior a hoje, a validação também funcionaria.

    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Nill.GO 4/8/2018, 13:02

    Bom dia amigo,

    Agradeço pela resposta.

    Coloquei o código no "evento ao receber o foco" do campo txtDataFimContrato,
    mas não aconteceu nada, não entendi o que falta para ser executado.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Alvaro Teixeira 4/8/2018, 17:18

    Olá a todos,

    Nilton, tente assim no evento do form "No atual"
    Código:
    Private Sub Form_Current()
        If Me.txtDataFimContrato >= Date Then
            cxSelecaoAtivo = True
        Else
            cxSelecaoAtivo = False
        End If
    End Sub

    Abraço a todos
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Nill.GO 4/8/2018, 19:11

    Funcionou, porém deu erro em registro que está com o campo txtDataFimContrato vazio.
    E no campo que está com a mesma data do dia, abre a tela "Você não pode ir para o registro especificado".
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  tauron 4/8/2018, 20:54

    Tente:

    if me.txtDataFimContrato = "" then
    cxSelecaoAtivo = True
    else
    cxSelecaoAtivo = False
    end if
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Alvaro Teixeira 4/8/2018, 21:40

    Olá, teste assim:
    Código:
    Private Sub Form_Current()
    If  len(me.txtDataFimContrato &"")>0 then
        IF Me.txtDataFimContrato > Date then
            cxSelecaoAtivo = True
        Else
            cxSelecaoAtivo = False
        End If
    End IF
    End Sub

    Abraço a todos


    Última edição por ahteixeira em 6/8/2018, 00:16, editado 2 vez(es) (Motivo da edição : Retificar erro no codigo)
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Nill.GO 4/8/2018, 21:57

    Irei analisar assim que chegar em casa.
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Nill.GO 5/8/2018, 17:01

    Aqui envio a cópia do projeto.

    Neste código também não aceitou, existe um erro.

    Private Sub Form_Current()
    If  len(me.txtDataFimContrato &"")>0 then
       IF Me.txtDataFimContrato > Date and    ' Acusa "erro de sintaxe" nesta linha
           cxSelecaoAtivo = True
       Else
           cxSelecaoAtivo = False
       End If
    End IF
    End Sub
    Anexos
    [Resolvido]Status ativo mudar na data final do contrato AttachmentdbCliente.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 17 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Alvaro Teixeira 5/8/2018, 18:59

    Olá, foi pelo celular e agora é igual.
    Retire o AND e teste.

    Abraço
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  tauron 5/8/2018, 20:52

    Troque o and por then
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Nill.GO 5/8/2018, 22:55

    Valeu amigo,
    Funcionando perfeitamente.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Alvaro Teixeira 6/8/2018, 00:15

    Olá a todos,

    Tauron, obrigado é o que dá às vezes através do celular Shocked

    Abraço a todos
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  tauron 6/8/2018, 19:11

    Não há o porque, estamos todos uns pelo outros
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Alvaro Teixeira 7/8/2018, 10:14

    cheers

    Conteúdo patrocinado


    [Resolvido]Status ativo mudar na data final do contrato Empty Re: [Resolvido]Status ativo mudar na data final do contrato

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:30