Fala pessoal em um text box do meu formulário quero que aceite apenas valores de data fiz dessa forma:
If Not IsDate(Me.MP1_PG1_DtDevolBX.Value) Or Len(Me.MP1_PG1_DtDevolBX.Value) <> 10 Then
MsgBox "Digite uma data de devolução de pasta válida no formato DD/MM/AAAA!", vbCritical
Application.ScreenUpdating = True
Exit Sub
End If
Até ae tudo bem, só que apenas a primeira condicional Not IsDate ele aceita valores de horário, por isso coloquei a segunda condicional para ter 10 caracteres (DD/MM/AAAA),só que ainda aceita valores como 14:52:0000. Tem alguma forma mais prática de aceitar só data em determinado formato como valor?
Outra coisa, alguém sabe porque datas antes de 1800 dá um erro de definição de variável? :S