Bloquear data anteriro e posterior no campo data do forms

Amigos boa noite!
Como posso bloquear uma data anterior e posterior no campo data no formulário.

Desde já Grato!

Acredito que vc queira bloquear tendo como referencia a data atual do sistema ou mesmo uma data de emissão.

Sendo assim tenha essa rotina que uso no evento AntesDeAtualizar em uma caixa de texto DE_MV( Data de Emissão do Movimento).

Acredito que sirva exemplo podendo ser alterada de acordo com sua necessidade:

Abraços

Código:

Private Sub DE_MV_BeforeUpdate(Cancel As Integer)

Dim Atual As Date
Atual = Now()

lin = Chr$(13) & Chr$(10)

'strUserName = basMachineName.fOSMachineName()

If IsNull(Me.DE_MV) Then
       
    basMsg.CritMsg "" & strUserName & " :" & lin _
        & lin & "Informe a Data de Emissão."
        DoCmd.CancelEvent
        Exit Sub
       
End If

If Not IsDate(Me.DE_MV) Then

    basMsg.CritMsg "Data inválida, digite novamente!"
        DoCmd.CancelEvent
        Exit Sub

End If


If CDate(Me.DE_MV) > CDate(Atual) Then
   
basMsg.CritMsg "" & strUserName & " :" & lin _
        & lin & "A Data de Emissão não pode ser maior que a Data do Sistema." & lin _
        & lin & "Por favor, verifique as datas de Emissão e do Sistema."
        DoCmd.CancelEvent
        Exit Sub
End If

End Sub

Isso mesmo quero pegar a data do dia do sistema e bloquear solicitação no meu forms com data anterior e posterior ao dia. Ou seja, quero que todos lançamento no meu forms seja com data do dia.

Amigo, teria uma maneira mas simples, sou novo no access e devido isso não entendi seu exemplo.

me manda o nome caixa de texto, que altero por aqui


Cleverson

datavenda

Brother,


     Tá na mão, basta copiar e colar no evento AntesDeAtualizar, da cx de texto.

Código:

Private Sub datavenda_BeforeUpdate(Cancel As Integer)

Dim Atual As Date
Atual = Now()

Dim lin as String

If IsNull(Me.datavenda) Then
        
    MsgBox "Informe a Data de Venda.", vbCritical, "Data Nula"
        DoCmd.CancelEvent
        Exit Sub
        
End If

If Not IsDate(Me.datavenda) Then

    MsgBox "Data inválida, digite novamente!", vbCritical, "Data Inválida"
        DoCmd.CancelEvent
        Exit Sub

End If


If CDate(Me.datavenda) <> CDate(Atual) Then
    
    MsgBox "A Data de Venda é diferente da Data do Sistema!", vbCritical, "Data Inválida"
        DoCmd.CancelEvent
        Exit Sub

End If

End Sub

Bom dia amigo!

Rapaz não funcionou, não sei se expliquei direito oq eu quero. Eu tenho um forms de solicitação de estoque com o campo data/hora. Eu preciso amarra todas as solicitações com data do dia, impedindo que o usuário click no calendário e escolha uma data anterior ou posterior ao dia.

Posta essa parte do BD.

Abraços

Boa tarde,

Vou dar só um pitaito....

Porque que não bloqueia a sua caixa da data para não ser possivel alterar e na propriedade "dados de origem" do seu
campo data voçe nao coloca assim: =Format(Agora(),"dd-mm-yyyy")

Abraço....

Blz, toda ajuda é vendo vinda e gostei também da sua ideia. Valeu Mesmo.

Grato!

Boa tarde,

Estamos aqui para isso mesmo, ajudar e ser ajudado.
Continuação de um bom trabalho....

Ps: Não se esqueça de marcar tópico como [Resolvido].
Caso não sabe como veja minha assinatura.

Abraço...

Valeu pela a ajuda também cleverson_manaus.

Boa tarde

Roberto
E se o utilizador alterar a data do Windows ?

Abre a BD, e a data no formulário é a data do sistema " =Format(Agora(),"dd-mm-yyyy")" mas pode não ser a data de hoje..