Date Value

Question

Hi everybody,

 

I have this:

 

[code]

 

If IsDate(datMachineInstallationDate.Value) AndAlso IsDate(datMachineInstallationEndDate.Value) Then

If datMachineInstallationDate.Value > datMachineInstallationEndDate.Value Then

.Message = getText(wForm, "VB_EINDDATUMFOUT", "De einddatum van de installatie moet groter zijn dan de installatiedatum.", Me.Page.ToString)

.SetFocus = "datMachineInstallationEndDate"

End If

End If

[/code] 

 

But if there is only one datefield filled in then also the message:  .Message = getText(wForm, "VB_EINDDATUMFOUT", "De einddatum van de installatie moet groter zijn dan de installatiedatum.", Me.Page.ToString)

 

is showing. But Only if both dates are filled in then the message has to be shown. 

 

Thank you.

 

Niels