<!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.2600.0" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Drew, right now I use an Access app for scheduling, 
but also duplicate a task list in Outlook because I love the calendar layout. Do 
you think your MiniCalendar could reproduce that in my Access app? All I really 
want is to print tasks on the appropriate day and print out a "calendar" page. 
It's a nuisance to have to use both and I just haven't made the time to take a 
hand at doing it myself in Access. </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Susan H. </FONT></DIV>
<DIV><BR> </DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV><FONT face=Arial color=#0000ff size=2><SPAN class=969111120-15072003>I 
  have a form based calendar called the MiniCalendar.  The last complete 
  version was built in Access 97.  I used to have it on my website, but I 
  have yet to have any time to put it back on my new site.  If you want, I 
  can email you a copy off list.  (<A 
  href="mailto:dwutka@marlow.com">dwutka@marlow.com</A>).  It's free to 
  use, and distribute, though the 'word doc' instructions were written for 
  version 2 (latest version is 3), so it's a little off, but the MiniCalendar is 
  pretty easy to use.</SPAN></FONT></DIV>
  <DIV><FONT face=Arial color=#0000ff size=2><SPAN 
  class=969111120-15072003></SPAN></FONT> </DIV>
  <DIV><FONT face=Arial color=#0000ff size=2><SPAN class=969111120-15072003>I am 
  still working on Version 4, which is going to be for 2000 and up only (ran 
  into a few walls in 97 for features that I want 
  incorporated).</SPAN></FONT></DIV>
  <DIV><FONT face=Arial color=#0000ff size=2><SPAN 
  class=969111120-15072003></SPAN></FONT> </DIV>
  <DIV><FONT face=Arial color=#0000ff size=2><SPAN 
  class=969111120-15072003>Anyhow, just give a holler if you want a copy of that 
  or not.</SPAN></FONT></DIV>
  <DIV><FONT face=Arial color=#0000ff size=2><SPAN 
  class=969111120-15072003></SPAN></FONT> </DIV>
  <DIV><FONT face=Arial color=#0000ff size=2><SPAN 
  class=969111120-15072003>Drew</SPAN></FONT></DIV>
  <BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
    <DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma 
    size=2>-----Original Message-----<BR><B>From:</B> Backroads Data 
    [mailto:backroad@idir.net]<BR><B>Sent:</B> Tuesday, July 15, 2003 9:23 
    AM<BR><B>To:</B> AccessD<BR><B>Subject:</B> [AccessD] Using Calender Pop-up 
    (Date-selector) from ADH<BR><BR></FONT></DIV>
    <DIV>Hi all -</DIV>
    <DIV> </DIV>
    <DIV>In Access97, I've used the pop-up calender / date-selector from 
    Access97 Developer's Handbook (pp. 488-491) extensively throughout an 
    application.  I've had reports from various users that the calendar 
    will quit working intermittantly for a while, then start to work 
    again.  </DIV>
    <DIV> </DIV>
    <DIV>By "not working", they mean the calendar form appears, they can 
    navigate to any date, but when selecting a date the system fails 
    to update the date field (text box on the form) with the newly selected 
    date.  It will be in this state for a while, then will begin working 
    properly again.</DIV>
    <DIV> </DIV>
    <DIV>Below is the code I'm using to call the calendar and update the date 
    field.  Has anyone had any similar experience, or have any ideas what 
    might be happening?  TIA.</DIV>
    <DIV><BR>Private Sub dateStart_DblClick(Cancel As Integer)</DIV>
    <DIV> </DIV>
    <DIV>    Dim dateNew As 
    Variant<BR>    <BR>        
    Let dateNew = adhDoCalendar(Me.dateStart)    'get user's 
    selected date<BR>        
    <BR>        If IsNull(dateNew) 
    Then         'user cancelled 
    calendar 
    form<BR>            
    Exit Sub<BR>        
    Else<BR>            
    Me.dateStart = CDate(dateNew)<BR>        
    End If<BR></DIV>
    <DIV>End Sub<BR></DIV>
    <DIV>Best Regards,</DIV>
    <DIV> </DIV>
    <DIV>Julie Schwalm<BR>Backroads Data<BR><A 
    href="http://www.backroadsdata.com">www.backroadsdata.com</A><BR>785-594-6807</DIV></BLOCKQUOTE>
  <P>
  <HR>

  <P></P>_______________________________________________<BR>AccessD mailing 
  list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website: 
  http://www.databaseadvisors.com<BR></BLOCKQUOTE></BODY></HTML>