Calender on form

I have a button on a form that opens a calender. But the date on the calender does not change. In other words, it does not display the current date, month and year. Below are my codes

Private Sub Cal_Click()
    Forms("frmReject").[Date Released].Value = Cal.Value
    Cal.Value = Date
    DoCmd.Close
End Sub

Private Sub Cal_Click()
    DoCmd.OpenForm "calender"
    Close
End Sub


Thanks for the help

fuad2Asked:
Who is Participating?
 
ComTechConnect With a Mentor Commented:
This question will be placed in PAQ and points refunded.

Best regards,
ComTech
Community Support
Administrator @ EE
0
 
wilmetCommented:
If your using the Microsoft Activex Control acxCalendar try setting the following property in the OnLoad event of your Form "calendar"

Private Sub Form_Load
0
 
wilmetCommented:
If your using the Microsoft Activex Control acxCalendar try setting the following property in the OnLoad event of your Form "calendar"

Private Sub Form_Load
0
Cloud Class® Course: Python 3 Fundamentals

This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.

 
wilmetCommented:
Sorry about the duplicate comments...

If your using the Microsoft Activex Control acxCalendar try setting the following property in the OnLoad event of your Form "calendar"

Private Sub Form_Load
   me.acxCalendar.Value = Date
End Sub


Bill
0
 
fuad2Author Commented:
Hi Bill

Yes I am using Microsoft Activex Control. When I added the property on the Onload event, I got error message, "Compiler error, can't find project or library"

thanks

Fuad2
0
 
wilmetCommented:
Fuad2

Make sure that you have a reference set for MIcrosoft Calendar Control 9.0

While viewing the module code for your "calendar" form Select the "Tools' menu item, select "References', then scroll the list and select the checkbox next to "Microsoft Calendar Control 9.0'

Bill
0
 
YoinkCommented:
You may have to register your calendar control.  
Locate mscal.ocx on your hardrive.  (Mine lives in:  C:\WINNT\system32)

Then, from a module, click <Tools><Active X Controls>.  Next, click register, and scroll to the location of mscal.ocx.

Also, use the code Bill posted.

HTH,

JK
0
 
YoinkCommented:
You were too fast for me, Bill!
0
 
fouchevCommented:
Hallo there,



I use the following


Private Sub Form_Load()

     YourCalenderName = now()

End Sub

This will hightlight the current date as per your PC system time.

Cheers


Fouche
0
 
fuad2Author Commented:
I checked the Reference and the system does not have Microsoft Calendar control 9.0, only 8.0

Thanks

Fuad
0
 
wilmetCommented:
Checking 8.0 should do the trick.  

Calendar Control 8.0 is installed by Access 97 (Access Ver 8.0).

Calendar Control 9.0 is installed by Access 2000 (Access Ver 9.0)

Have you been able to pass the value of the control back to your original form (frmReject)?

Bill
0
 
fuad2Author Commented:
Hi Bill

We are using Access 97. If you don't mind I will email you the zip file.

Fuad
0
 
nico5038Commented:

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:
 - PAQ'd and pts refunded
Please leave any comments here within the
next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER !

Nic;o)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.