Início
omarciopoli 22/9/2014, 20:29Boa tarde, sou novo e estou estudando vba. Gostaria de comparar duas datas e caso a primeira seja maior que a ultima o cadastro emite uma mensagem. a data [Data_Entrada_Geo] não pode ser maior que [Data_Fim_Analise]. Alguém pode me ajudar?
3 participantes
Uma data não pode ser menor que a outra
omarciopoli- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 13
Registrado : 15/09/2014
toyebom- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012
Em vez do aviso porque não restringes???
Podes colocar no construtor e consulta do segundo campo tipo
Critério: >=[Forms]![seuformulário]![seucampo1]
Imagina que tens o formulário "frm", o campo data como "data1" e o campo que nºao pode ser inferior como "data2", nesse caso colocas >=[Forms]![frm]![data1]
assim quando colocas a data no primeiro campo no segundo só aparece datas iguais ou pesteriores.
Podes colocar no construtor e consulta do segundo campo tipo
Critério: >=[Forms]![seuformulário]![seucampo1]
Imagina que tens o formulário "frm", o campo data como "data1" e o campo que nºao pode ser inferior como "data2", nesse caso colocas >=[Forms]![frm]![data1]
assim quando colocas a data no primeiro campo no segundo só aparece datas iguais ou pesteriores.
.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
Kebao10- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 80
Registrado : 16/07/2011
Caso deseje só a mensagem mesmo.
- Código:
If Me.Data_Entrada_Geo > Me.Data_Fim_Analise Then
MsgBox "A data X deve ser menor que Y!!!", vbCritical, "Aviso"
End If