Validar para ver se a data de termino é maior que a data de inicio.

se for alertar o usuario

 

 

abraços,

Obrigado.

if cdate(data_termino) > cdate(data_inicio) then msgbox("A data de Término é maior que a Data de Inicio")

 

Se estiver utilizando o um maskedit, pode validá-lo assim:

 

If Me.txtDataInicial.Mask = "" Or Me.txtDataFinal.Mask = "" Then
    MsgBox "Favor informar o período para impressão do relatório!!", vbInformation, "Atenção"
    Me.txtDataInicial.SetFocus
    Exit Sub
End If

'-------------------------------------------------------------------
If Not IsDate(Me.txtDataInicial.FormattedText) Or Not IsDate(Me.txtDataFinal.FormattedText) Then
    MsgBox "Favor informar uma data válida para impressão do relatório!!", vbInformation, "Atenção"
    Me.txtDataInicial.SetFocus
    Exit Sub
End If

'------------------------------------------------------------------------

If CDate(Me.txtDataInicial.FormattedText) > CDate(Me.txtDataFinal.FormattedText) Then
    MsgBox "Data inicial maior que data final!", vbInformation, "Atenção!!"
    Me.txtDataInicial.SetFocus
    Exit Sub
End If