Hi, I am a learner and this forum has helped me started. I am using the
calendar form of Allen Browne and I want to include it in my codes but I
really dont know how to go about it. here are my codes;

Private Sub Date_DblClick(Cancel As Integer)
Dim prcd As Date
Dim CalendarFor As AcFormOpenDataMode ' should this be declared as a module ?
If Not IsNull(Me.Date) Then
prcd = Me.Date
DoCmd.GoToRecord , , acNewRec
Me.Date = prcd
Else
If IsNull(Me.Date) Then
DoCmd.OpenForm "CalendarFor", acNormal ' I dont know how to call a module
End If
End If
Exit_Date_DblClick:
Exit Sub
Err_Date_DblClick:
MsgBox Err.Description
Resume Exit_Date_DblClick
End Sub

Help!
Many thanks.

hi,

randria wrote:
> Hi, I am a learner and this forum has helped me started. I am using the
> calendar form of Allen Browne and I want to include it in my codes but I
> really dont know how to go about it. here are my codes;
Basically you need not code:

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

Otherwise try this:

Private Sub Date_DblClick(Cancel As Integer)

CalendarFor [Date], "Select the sale date"

End Sub

btw, you should really rename your field and/or control, because [Date]
is a reserved word and also a function in VBA.


mfG
--> stefan <--

Thank you Stefan, I will take your advice about renaming the controls and I
will try what you suggested.
Many thanks.

"Stefan Hoffmann" wrote:

> hi,
>
> randria wrote:
> > Hi, I am a learner and this forum has helped me started. I am using the
> > calendar form of Allen Browne and I want to include it in my codes but I
> > really dont know how to go about it. here are my codes;
> Basically you need not code:
>
> http://allenbrowne.com/ser-51.html
>
> Otherwise try this:
>
> Private Sub Date_DblClick(Cancel As Integer)
>
> CalendarFor [Date], "Select the sale date"
>
> End Sub
>
> btw, you should really rename your field and/or control, because [Date]
> is a reserved word and also a function in VBA.
>
>
> mfG
> --> stefan <--
>
>