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

    Regras de Validação com DATAS usando Dlookup

    Compartilhe

    BITSILVA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 30/08/2010

    Regras de Validação com DATAS usando Dlookup

    Mensagem  BITSILVA em Sab 06 Ago 2016, 02:16

    Amigos e amigas do fórum,

    Tenho um formulário de controle de horas e desejo que ao preencher o Form não entre datas duplicas e datas mais antigas do que já está cadastrado para aquele mês.

    Tentei de várias maneiras, segue o código sugerido mas com erros para minha situação:

    Private Sub Data_BeforeUpdate(Cancel As Integer)
       Dim VerData As Date

       'busca na tabela tbPonto a data correspondente
       VerData = Nz(DLookup("Data", "tbUser", "Data = " & Me.Data.Value), 0)

       'verifica se a data digitada é igual ou inferior à data que se encontra cadastrada
       If Me.Data.Value <= Me.Data.Value Then
           MsgBox "Data digitada deve ser maior que a Data anterior!", vbCritical, "Controle de Horas"
           Cancel = True
       End If
       
    End Sub


    Agradeço a ajuda e atenção de todos!
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 878
    Registrado : 23/09/2011

    Re: Regras de Validação com DATAS usando Dlookup

    Mensagem  cleverson_manaus em Sab 06 Ago 2016, 02:37

    Tente esse código, altera os nomes dos campos :
    Código:

    Private Sub ValidCapsSub_AfterUpdate()

    Dim Atual As Date
    Atual = Now()


        If CDate(ValidCapsSub) <= CDate(Atual) Then
         
              MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
              DoCmd.CancelEvent
              Exit Sub

          End If

    End Sub

    Abraços


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

      Data/hora atual: Qui 24 Maio 2018, 13:04