 
Hi,  
 
Thank you for your interest in my calendar tool created in Access 2.0. Since I'm so 
frustrated with the CALENDAR.OCX delivered by Microsoft, I made this effective tool to 
have a better look and speedier loading of any form containing calendar. 

Three files are included in the zip file:
BSCAL.MDA, the library database for calendar
BSCAL.TXT, this text file
CALTEST.MDB, the sample database on how to use the calendar

 
How it works 
 
The calendar tool is saved in the library database BSCAL.MDA and consists of the form 
"frmCalendar" and the modul "Calendar Functions". To use it, you simply register the 
BSCAL.MDA as library database in your .INI file, and import the form "frmCalendar" 
from BSCAL.MDA. You can not import the modul. 
 
The form "frmCalendar" contains 37 toggle buttons, one invisible text box and 8 label 
boxes. You can either link the frmCalendar as subform, or paste all controls of the 
frmCalendar into your own form. Of course you can change the properties such as size, 
color, font etc of these controls. But you should never change the name of all controls 
and the optional value of the toggle buttons. 
 
For you as database developer there are following functions and variables available to 
integrate this calendar into your own form: 
 
function Cal_GetCurrentDate(frmForm as form) as variant 
This function returns the currently selected date by user. The parameter frmForm 
points to the form where the calendar resides. If you integrate the calendar in a 
subform, the parameter must be: forms!MyMainForm!MySubForm.Form. 
 
sub Cal_NextMonth(frmForm as form) 
Calling this sub will result in turning calendar into next month. The day will remain 
unchanged. In case it is not possible, it will take the next closest day. 
 
sub Cal_PrevMonth(frmForm as form) 
Calling this sub will result in turning calendar into previous month. The day will remain 
unchanged. In case it is not possible, it will take the next closest day. 
 
sub Cal_NextYear(frmForm as form) 
Calling this sub will result in turning calendar into next year. You can limit the interval 
by setting the global variable Cal_intYearLimit. 
 
sub Cal_PrevYear(frmForm as form) 
Calling this sub will result in turning calendar into previous year. You can limit the 
interval by setting the global variable Cal_intYearLimit. 
 
integer variable Cal_intYearLimit  
 
Beside the functions and variable, you can change or add your own codes directly to 
the frmCalendar's event procedure, like Form_Load and DaySelected_AfterUpdate to 
set the form's appearance and to react to user's mouse click. 
 
 
Charge 
 
You can use this freely with no charge for your private database, or copy the calendar 
tool with this file to your friends. I hope it will be a little help for you. 
 
If you include it with the application you develop for commercial purpose, or you are an 
employed developer of an organisation, I would suggest, since it took me several days 
to put this together, that you pay a one time charge of DM15,-(USD10). This will make 
you feel better, and contribute to a friendlier atmosphere in the software business. 
Please send payment to : 
	Bing Sheng 
	Atzelbergweg 1 
	65779 Kelkheim 
	Germany 
 
 
License 
 
You may use this little tool however you please. 
