ActiveX Control calendar (datepicker)

[aakann]

I am in the process of developing an appointment database system for the hospital. The idea is to insert a calendar into my form and link each date to the database field. In other words, if a user clicks on the 1st of December, then the appointments for that date should be populated into the fields and display the appointments for the 1st of December. If the user clicks on the 2nd of December, then the appointment of December 2nd should display the patients that have appointments on December 2nd. I inserted an ActiveX control (datepicker) but I am having a trouble coding the calendar using VB. Would you please assist me in completing this task.

[pbaldy]

I personally wouldn't use an ActiveX control unless I had to. I've used form based solutions like this with success:

http://allenbrowne.com/ser-51.html

[aakann]

Could you please post the codes you used and directions?

Thanks for your help,

Alpha

[pbaldy]

I don't actually use that particular one. The site I got the one I use from has since closed down. Allen seems to have provided pretty good directions for use though. Have you tried it?

[aakann]

Yes, I tried it. You see, what I would like to do is to click on a date then the appointments for that specific will be display in the form. Allen's calendar does not link the date into field and there is an error on its VB codes.

Thanks

[pbaldy]

What's the error? I just downloaded his file, followed the directions for importing it into an Access 2000 database. It worked exactly as it should, putting the selected date into the specified text box. You would have to tweak his code a little to get appointments to display, but the date part should work correctly.

[aakann]

Could you help me in tweaking the codes to get the appointments to display if I click on a date. If I change the date on a calendar, then the appointments for that date should display and if there is no appointments for that date, then the fields should be blank.

[pbaldy]

Depends on how you've got it set up, and there are numerous ways to do it. Presuming it's a form or subform based on a query that uses that textbox in its criteria, one way would be to add this to the code behind the OK button on his calendar:

Private Sub cmdOk_Click()
  On Error Resume Next
  'Purpose:   Transfer the result back to the calling text box (if there is one), and close.

  If Me.cmdOk.Enabled Then
    If gtxtCalTarget = Me.txtDate Then
      'do nothing
    Else
      gtxtCalTarget = Me.txtDate
      Forms!YourFormName.Requery
    End If
  End If
  gtxtCalTarget.SetFocus
  DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

[aakann]

Here is the error I am getting (bEnabled = (gtxtCalTarget.Enabled) And (Not gtxtCalTarget.Locked). I tried several times linking the calendar dates to the database fields but until now no success.

Thanks

[pbaldy]

How are you calling the calendar? It's expecting the name of a textbox, not the name of a database field.

[aakann]

Could I e-mail you the database? I inserted a textbox and tried to call it but it is just not happening. Thanks

[pbaldy]

You should be able to post it here, after compacting and zipping.

[aakann]

I was not able to attach the database, because I do not see the attachment option. I did a test DB where I imported the allen's callendar, then I inserted a textbox called textbox11. Now how do I code texbox11 to keep the date based on the day I select on the calendar?

Thanks

[pbaldy]

You have to go into Post Reply or Go Advanced to see the Manage Attachments button.

The name of the textbox is the first argument when calling the calendar:

=CalendarFor([textbox11], "Select the sale date")

[aakann]

I followed the instruction you have given me and its partially did I wanted. The textbox is showing the date I am selecting from the calendar. However, I would to retain one day in the calendar and if I select on another date I would like to have a blank textbox.

Thanks