One calendar instead of two?

[Sandy]

Hi,

Is it possible to use only one calendar rather than two as I have at the
moment?



Private Sub cmdCollected_Click()

ocxCalendarCollected.Visible = True



If Not IsNull(txtDateCollected) Then

ocxCalendarCollected.Value = txtDateCollected.Value

Else

ocxCalendarCollected = Date

End If

End Sub



Private Sub cmdReady_Click()

ocxCalendarReady.Visible = True



If Not IsNull(txtDateReady) Then

ocxCalendarReady.Value = txtDateReady.Value

Else

ocxCalendarReady = Date

End If



End Sub



Private Sub ocxCalendarCollected_Click()

txtDateCollected.Value = ocxCalendarCollected.Value

chkJobComplete.SetFocus

ocxCalendarCollected.Visible = False

cmdCollected.Visible = False

End Sub



Private Sub ocxCalendarReady_Click()

txtDateReady.Value = ocxCalendarReady.Value

chkJobComplete.SetFocus

ocxCalendarReady.Visible = False

cmdReady.Visible = False

End Sub



Thanks

Sandy

 

[Tom Wickerath]

I like using Access MVP Allen Browne's calendar form in my applications.
There are no nasty ActiveX problems similar to what you may have (or will, in
the future) experience using the built-in calendar control. You simply import
one form and one module into your database. You can then call this calendar
form from multiple forms and/or multiple fields for a single form.

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


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[Sandy]

Thanks Tom I'll have a look at that.

Sandy

I like using Access MVP Allen Browne's calendar form in my applications.
There are no nasty ActiveX problems similar to what you may have (or will,
in
the future) experience using the built-in calendar control. You simply
import
one form and one module into your database. You can then call this
calendar
form from multiple forms and/or multiple fields for a single form.

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


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[Tom Wickerath]

Hi Sandy,

If you'd like to see an example, check out this download that I have
available:
http://www.accessmvp.com/TWickerath/downloads/Chap08QBF.zip

I added Allen's calendar functionality for the "Purchased on or after" date,
and for two dates on the frmMovieTitles form.


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[.]

dans l'article (e-mail address removed), Tom
Wickerath à AOS168b AT comcast DOT net a écrit le 21/01/08 18:16 :