MS Access form collects data on internet

I have an online form that users fill out and upon submission the data
goes to an MS access database on our server.

One of the fields asks for the date a student needs to take an exam.
The students know they should only use the online form if they are
scheduling at least 2 weekdays ahead of time, however, the form
doesn't currently have a way to reject a submission that breaks the 2
day rule.

Can anyone help me with a query where the data in the date field is
compared to the current date and accepted or rejected based on the
'Must schedule at least 2 WEEKDAYS ahead of time' rule?

re: MS Access form collects data on internet

Mary,

Would you be better served in creating a Validation Rule for the date rather
than using a query to reject the date?

Request:
Could you give me the details of how to create an on-line form or where to look
for information on how to do it. Then I am particularly interested in the
details of how to get the data ito an Access database after it is submitted.

Thanks!

Tom


"Mary" <mo3ld@msn.com> wrote in message
news:cfcb70e4.0311031139.d8ac5ae@posting.google.co m...[color=blue]
> I have an online form that users fill out and upon submission the data
> goes to an MS access database on our server.
>
> One of the fields asks for the date a student needs to take an exam.
> The students know they should only use the online form if they are
> scheduling at least 2 weekdays ahead of time, however, the form
> doesn't currently have a way to reject a submission that breaks the 2
> day rule.
>
> Can anyone help me with a query where the data in the date field is
> compared to the current date and accepted or rejected based on the
> 'Must schedule at least 2 WEEKDAYS ahead of time' rule?[/color]

re: MS Access form collects data on internet

something you could try in your connect to Access ASP would be:

<%
...
d = Request.Form("Datefld")
If WeekDay(Date) = 6 Then 'Friday
If d > DateAdd("d", 4, Date) Then 'greater than Monday
Response.Write("Date entered is past the 2 day limit!")
Else
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\Students.mdb")
End If
End If
If WeekDay(Date)>= 2 Or WeekDay(Date)<=4 Then
If d > DateAdd("d",2,Date) Then
Response.Write("Date entered is past the 2 day limit!")
Else
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\Students.mdb")
End If
End If
...
%>

This isn't real sophisticated, but it is just to give you some ideas -
using If Then with Date Functions, if the submitter meets the criteria,
you write the data, if not, don't write the data.

Rich

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

re: MS Access form collects data on internet

mo3ld@msn.com (Mary) wrote in message news:<cfcb70e4.0311031139.d8ac5ae@posting.google.c om>...[color=blue]
> I have an online form that users fill out and upon submission the data
> goes to an MS access database on our server.
>
> One of the fields asks for the date a student needs to take an exam.
> The students know they should only use the online form if they are
> scheduling at least 2 weekdays ahead of time, however, the form
> doesn't currently have a way to reject a submission that breaks the 2
> day rule.
>
> Can anyone help me with a query where the data in the date field is
> compared to the current date and accepted or rejected based on the
> 'Must schedule at least 2 WEEKDAYS ahead of time' rule?[/color]

there's a weekday math function available at www.mvps.org/access

only problem is that you're going to have to rewrite that in VBScript
if you want it to work on your web page, because if you were doing it
on a form, you'd do it in the BeforeInsert event of the form, and
since you're talking directly to teh database engine, you wouldn't
have that event to help you. You'd have to modify the code for your
Submit button to do the checking for you and if it failed reject the
insertion... Something like


Sub cmdSubmit()
If WeekdayDiff(dtScheduleDate,dtCutoffDate)<2 Then
Response.Write("Sorry, need to workdays lead time!")
Else
'write the record to the database...
End if
End Sub