Access - Calendar Control

•

What is DaniWeb IT Discussion Community?

You're currently browsing the MS Access and FileMaker Pro section within the Web Development category of DaniWeb, a massive community of 373,496 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,878 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our MS Access and FileMaker Pro advertiser:

Thread Tools Display Modes

Views: 4141 | Replies: 0

•

Join Date: Apr 2007

Posts: 5

Reputation: James890 is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

James890

Offline

Newbie Poster

Access - Calendar Control

Apr 13th, 2007

I'm wanting to use a calendar to select dates in Access 2003 and want it to pop up when a date field is clicked on. So I will want the same calendar to pop up to be used to select a date, from many differenct date fields on the form.

I've used a variable ('originator') to pass the date field name.
But it isn't working. Could someone check my code please?

(dob is the field I want the date to go into and Calendar6 is the name of the calendar I'm using.) Here's my code:

Help with Code Tags

(Toggle Plain Text)

Option Compare Database
Option Explicit
Dim originator As ComboBox
Private Sub dob_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set originator = dob
Calendar6.Visible = True
Calendar6.SetFocus
If Not IsNull(originator) Then
Calendar6.Value = originator.Value
Else
Calendar6.Value = Date
End If
End Sub
Private Sub Calendar6_Click()
originator.Value = Calendar6.Value
originator.SetFocus
Calendar6.Visible = False
Set originator = Nothing
End Sub