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

    Regras de Validação com DATAS usando Dlookup

    avatar
    BITSILVA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Regras de Validação com DATAS usando Dlookup Empty Regras de Validação com DATAS usando Dlookup

    Mensagem  BITSILVA 6/8/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!
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus 6/8/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


    .................................................................................
    afro

    "É 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: 3/12/2022, 03:53