Procedure Assistance Requested - Dates

I would like some assistance on writing a procedure.

I have a StartDate and an EndDate. If the EndDate is less than the
StartDate then I need to undo the input in the EndDate, let the user
know that the date is incorrect, and have the user put in the correct
date.

Thanks in advance.

Kenny G

Private Sub ToDate_BeforeUpdate(Cancel As Integer)

Dim Date1 As Date, Date2 As Date
Date1 = Format$(FromDate, "mmm\/dd\/yyyy")
Date2 = Format$(ToDate, "mmm\/dd\/yyyy")

If DateDiff("d", Date1, Date2) < 0 Then
MsgBox "From date is after To Date by " & DateDiff("d", Date1,
Date2) & " days", vbCritical
Cancel = True
Else
MsgBox "To date is after From Date by " & DateDiff("d", Date1,
Date2) & " days", vbInformation
End If
End Sub

You need a similar thing before Update of thr FromDate

The formatting rubbish seems to get over the problem with we(The Brits)
having a less illogical date format than the Americans.
Also lots of unneccessary stuff in the message box, but it will allow you to
check the arithmetic

Phil


"Kenny G" <kg_321@hotmail.com> wrote in message
news:810d01a6.0312041203.5c960b5a@posting.google.c om...[color=blue]
> I would like some assistance on writing a procedure.
>
> I have a StartDate and an EndDate. If the EndDate is less than the
> StartDate then I need to undo the input in the EndDate, let the user
> know that the date is incorrect, and have the user put in the correct
> date.
>
> Thanks in advance.
>
> Kenny G[/color]

Phil,

That worked out just fine. I appreciate your help. I did notice the
differences in dates on SQL server with the ways different countries
write their dates.

Thanks again, Kenny G

"Phil Stanton" <discussion@stantonfamily.co.uk> wrote in message news:<3fcfada1$0$99607$65c69314@mercury.nildram.ne t>...[color=blue]
> Private Sub ToDate_BeforeUpdate(Cancel As Integer)
>
> Dim Date1 As Date, Date2 As Date
> Date1 = Format$(FromDate, "mmm\/dd\/yyyy")
> Date2 = Format$(ToDate, "mmm\/dd\/yyyy")
>
> If DateDiff("d", Date1, Date2) < 0 Then
> MsgBox "From date is after To Date by " & DateDiff("d", Date1,
> Date2) & " days", vbCritical
> Cancel = True
> Else
> MsgBox "To date is after From Date by " & DateDiff("d", Date1,
> Date2) & " days", vbInformation
> End If
> End Sub
>
> You need a similar thing before Update of thr FromDate
>
> The formatting rubbish seems to get over the problem with we(The Brits)
> having a less illogical date format than the Americans.
> Also lots of unneccessary stuff in the message box, but it will allow you to
> check the arithmetic
>
> Phil
>
>
> "Kenny G" <kg_321@hotmail.com> wrote in message
> news:810d01a6.0312041203.5c960b5a@posting.google.c om...[color=green]
> > I would like some assistance on writing a procedure.
> >
> > I have a StartDate and an EndDate. If the EndDate is less than the
> > StartDate then I need to undo the input in the EndDate, let the user
> > know that the date is incorrect, and have the user put in the correct
> > date.
> >
> > Thanks in advance.
> >
> > Kenny G[/color][/color]