[AccessD] Using Calender Pop-up (Date-selector) from ADH

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.  ( dwutka at marlow.com <mailto:dwutka at marlow.com>
).  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.
 
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).
 
Anyhow, just give a holler if you want a copy of that or not.
 
Drew

-----Original Message-----
From: Backroads Data [mailto:backroad at idir.net]
Sent: Tuesday, July 15, 2003 9:23 AM
To: AccessD
Subject: [AccessD] Using Calender Pop-up (Date-selector) from ADH


Hi all -
 
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.  
 
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.
 
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.

Private Sub dateStart_DblClick(Cancel As Integer)
 
    Dim dateNew As Variant
    
        Let dateNew = adhDoCalendar(Me.dateStart)    'get user's selected
date
        
        If IsNull(dateNew) Then         'user cancelled calendar form
            Exit Sub
        Else
            Me.dateStart = CDate(dateNew)
        End If

End Sub

Best Regards,
 
Julie Schwalm
Backroads Data
www.backroadsdata.com <http://www.backroadsdata.com> 
785-594-6807

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030715/d148da4b/attachment-0001.html>