<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2726.2500" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV>
<DIV><STRONG>John,</STRONG></DIV>
<DIV><STRONG></STRONG> </DIV>
<DIV> The following course of action is suggested -</DIV>
<DIV> </DIV>
<DIV> (a) Input Mask property of the text box may be set as
-</DIV>
<DIV> 99-99-9999; ;
_</DIV>
<DIV> (b) The code given below may be used in the Enter
and BeforeUpdate events of the text box (named TxtDt). The latter is needed in
order to ensure compliance with mm-dd-yyyy. (Had we been able to adopt
00-00-0000; ; _ as the input mask straightaway, this validation would not
have been called for).</DIV>
<DIV> </DIV>
<DIV>Regards,</DIV>
<DIV><STRONG>A.D.Tejpal</STRONG></DIV>
<DIV><STRONG>--------------</STRONG></DIV>
<DIV>-------------</DIV>
<DIV><STRONG>Code Start</STRONG></DIV>
<DIV>-------------</DIV>
<DIV><STRONG>Private Sub TxtDt_Enter()</STRONG><BR> If
Len(TxtDt) > 0 Then<BR>
Else<BR> TxtDt = " - -"
& Year(Date)<BR> TxtDt.SelStart =
0<BR> TxtDt.SelLength =
0<BR> End If<BR><STRONG>End Sub</STRONG></DIV>
<DIV> </DIV>
<DIV><STRONG>Private Sub TxtDt_BeforeUpdate(Cancel As
Integer)<BR></STRONG> Dim TXT As String<BR>
<BR> ' Replace space in TXT variable with zero length
string<BR> TXT = Replace(TxtDt.Text, " ",
"")<BR> If Len(TXT) > 0 And Len(TXT) < 10
Then<BR> MsgBox "Date And Month
Parts " & _</DIV>
<DIV>
"Should be Two Digits Each" &
_<BR>
vbCrLf & "Year Part Should Be Four
Digits"<BR> Cancel =
1<BR> End If<BR><STRONG>End Sub</STRONG></DIV>
<DIV>
<DIV>-------------</DIV>
<DIV><STRONG>Code End</STRONG></DIV>
<DIV>-------------</DIV></DIV></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=jcolby@colbyconsulting.com
href="mailto:jcolby@colbyconsulting.com">John Colby</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">Access Developers discussion and
problem solving</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, October 06, 2003
21:00</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] Date data
entry</DIV>
<DIV><BR></DIV>>Would they accept the default set to =date()?<BR><BR>Where
logical I do that, however in these cases they are entering dates out<BR>in
the future or in the past.<BR><BR>John W. Colby<BR><A
href="http://www.colbyconsulting.com">www.colbyconsulting.com</A><BR><BR>-----Original
Message-----<BR>From: <A
href="mailto:accessd-bounces@databaseadvisors.com">accessd-bounces@databaseadvisors.com</A><BR>[mailto:accessd-bounces@databaseadvisors.com]On
Behalf Of Mitsules, Mark<BR>Sent: Monday, October 06, 2003 10:55 AM<BR>To:
'Access Developers discussion and problem solving'<BR>Subject: RE: [AccessD]
Date data entry<BR><BR><BR>Would they accept the default set to
=date()?<BR><BR><BR><BR>Mark<BR><BR><BR>-----Original Message-----<BR>From:
John Colby [mailto:jcolby@colbyconsulting.com]<BR>Sent: Monday, October 06,
2003 10:44 AM<BR>To: AccessD<BR>Subject: [AccessD] Date data
entry<BR><BR><BR>I have a specific client that LOVES the input masks for
dates. I don't<BR>understand this as I personally hate them,
but...<BR><BR>What they want is to have something like that but which "assumes
current<BR>year", i.e. all they have to enter is the ddmm and the rest (the
year) is<BR>filled in.<BR><BR>Does anyone do this? Know how to do
this?<BR><BR>John W. Colby<BR><A
href="http://www.colbyconsulting.com">www.colbyconsulting.com</A><BR></BLOCKQUOTE></BODY></HTML>