Help With API Calendar

[thefox149]

I have downloaded and copied the relevant files into my dbase from

http://www.lebans.com/monthcalendar.htm

This works on normal forms but not when the subform is trying to get it to work it does not

I am not very familar with how class work but from what I do now you can call a control and use it. The error message I get (generated by the class module) is that "I must instantiate the class object before calling the function"

Intructions state

Option Compare Database
Option Explicit


' This declares the MonthCalendar Class
Private mc As clsMonthCal


Private Sub Form_Load()

' Create an instance of our Class
Set mc = New clsMonthCal
' Set the hWndForm Property
mc.hWndForm = Me.hWnd

End Sub


Private Sub Form_Unload(Cancel As Integer)

' This is required in case user Closes Form with the
' Calendar still open. It also handles when the
' user closes the application with the Calendar still open.

If Not mc Is Nothing Then
If mc.IsCalendar Then
Cancel = 1
Exit Sub
End If


Set mc = Nothing
End If

End Sub

Private Sub txtSelectDate_DblClick(Cancel As Integer)

Dim blRet As Boolean
Dim dtStart As Date, dtEnd As Date

dtStart = Nz(Me.txtSelectDate.Value, 0)
dtEnd = 0

blRet = ShowMonthCalendar(mc, dtStart, dtEnd)
If blRet = True Then
Me.txtSelectDate = dtStart
Else
' Add any message here if you want to
' inform the user that no date was selected
End If

End Sub

 

[mp9]

There is a non control-based calendar replacement (native Access only) that works well with subforms available from

http://www22.brinkster.com/accessory/forms/005.shtml

 

[formerTexan]

Try:

Private mc As New clsMonthCal

Instead of:

Private mc As clsMonthCal


Whether you are calling this class from a form or subform should be irrelevant. The only thing it is concerned about is the hWnd of the form it is called from (Me.hWnd)

Cheers,
Bill

 

[thefox149]

the new part sealed it thanks formerTexan