Do Loop for Error check

RB,

Thanks for the input but I have to say that I am not familiar at all with
the control you are talking about. If you could provide me with an example
I'd be very much appreciative.

Thanks!

"RB Smissaert" wrote:

> It will be simpler and quicker for the user if you used a dedicated date
> control.
> I use the MonthView control of MSComCtl2 and that works perfect.
>
> RBS
>
> "Stephen" <coder@directcarecorp.com.spamalot> wrote in message
> news:4EC1B541-FDD3-4009-8134-83B3766E98CB@microsoft.com...
> > Hi Folks,
> >
> > In my solution I'm asking for a user to input two parameters that are
> > strings that I am then passing to an SQL query. Everything works great but
> > I
> > don't think I am properly or efficiently checking that the parameters are
> > not
> > either blank or mis formatted. Any suggestions are always greatly
> > appreciated.
> >
> > ' Ask for Data Range Input
> > dtStartDate = InputBox("Enter a starting date for the report range.",
> > "Beginning Date Range", "XX/XX/XXXX")
> > dtEndDate = InputBox("Enter an end date for the report range.", "Ending
> > Date
> > Range.", "XX/XX/XXXX")
> >
> > ' Check to make sure there has been data entered for the report dates
> > Do While dtStartDate = ("XX/XX/XXXX")
> > dtStartDate = InputBox("You must enter a start date for the report
> > range.", "Beginning Date Range", "XX/XX/XXXX")
> > Loop
> > Do While dtStartDate = ("")
> > dtStartDate = InputBox("You must enter a start date for the report
> > range.", "Beginning Date Range", "XX/XX/XXXX")
> > Loop
> >
> > Do While dtEndDate = ("XX/XX/XXXX")
> > dtEndDate = InputBox("You must enter an end date for the report
> > range.",
> > "Ending Date Range", "XX/XX/XXXX")
> > Loop
> >
> > Do While dtEndDate = ("")
> > dtEndDate = InputBox("You must enter an end date for the report
> > range.",
> > "Ending Date Range", "XX/XX/XXXX")
> > Loop
> >
> > Thanks.
>
>

I haven't got a simple example available, but some Googling should find you
one. I can send you my code, but that is complex as it has a few extra
features added and you will have to pick the relevant bits out yourself.
I am sure if you ask in this group somebody will post a simple example.

RBS

"Stephen" <coder@directcarecorp.com.spamalot> wrote in message
news:CE34AF9D-12A3-4E40-9DDE-FCFA603F902F@microsoft.com...
> RB,
>
> Thanks for the input but I have to say that I am not familiar at all with
> the control you are talking about. If you could provide me with an
> example
> I'd be very much appreciative.
>
> Thanks!
>
> "RB Smissaert" wrote:
>
>> It will be simpler and quicker for the user if you used a dedicated date
>> control.
>> I use the MonthView control of MSComCtl2 and that works perfect.
>>
>> RBS
>>
>> "Stephen" <coder@directcarecorp.com.spamalot> wrote in message
>> news:4EC1B541-FDD3-4009-8134-83B3766E98CB@microsoft.com...
>> > Hi Folks,
>> >
>> > In my solution I'm asking for a user to input two parameters that are
>> > strings that I am then passing to an SQL query. Everything works great
>> > but
>> > I
>> > don't think I am properly or efficiently checking that the parameters
>> > are
>> > not
>> > either blank or mis formatted. Any suggestions are always greatly
>> > appreciated.
>> >
>> > ' Ask for Data Range Input
>> > dtStartDate = InputBox("Enter a starting date for the report range.",
>> > "Beginning Date Range", "XX/XX/XXXX")
>> > dtEndDate = InputBox("Enter an end date for the report range.", "Ending
>> > Date
>> > Range.", "XX/XX/XXXX")
>> >
>> > ' Check to make sure there has been data entered for the report dates
>> > Do While dtStartDate = ("XX/XX/XXXX")
>> > dtStartDate = InputBox("You must enter a start date for the report
>> > range.", "Beginning Date Range", "XX/XX/XXXX")
>> > Loop
>> > Do While dtStartDate = ("")
>> > dtStartDate = InputBox("You must enter a start date for the report
>> > range.", "Beginning Date Range", "XX/XX/XXXX")
>> > Loop
>> >
>> > Do While dtEndDate = ("XX/XX/XXXX")
>> > dtEndDate = InputBox("You must enter an end date for the report
>> > range.",
>> > "Ending Date Range", "XX/XX/XXXX")
>> > Loop
>> >
>> > Do While dtEndDate = ("")
>> > dtEndDate = InputBox("You must enter an end date for the report
>> > range.",
>> > "Ending Date Range", "XX/XX/XXXX")
>> > Loop
>> >
>> > Thanks.
>>
>>