How to create Calendar Month View

[alhomam]

is it possible to create calendar month view in access forms

the same as in outlook

i found a website that provide the same idea but not free

http://www.aislebyaisle.com/access/calendartool.htm

if any ideas please help me
and it will be helpfulh and nice idea if it is implemented

thanks

 

[1DMF]

Is there a reason you don't use the OXC and embed Outlook into the form?

I use the same for selecting dates for reporting, by plugging into the ActiveX component...

OLE Class : Calendar
Class : MSCAL.Calendar.7

You can embed a whole host of ActiveX components in forms to then use in your application.

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[TheAceMan1]

How are ya alhomam . . .

In form design view, click the ActiveX toolbar button

. Select Calendar Control X.X, then click where you want to inserton the form . . .

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[pjd218]

I came up with a work around to create a command button that opens the Outlook caledar from a form.

Private Sub Command186_Click()
Dim mOutlookApp As Outlook.Application
Dim mNameSpace As Outlook.NameSpace
Set mOutlookApp = New Outlook.Application
Set mNameSpace = mOutlookApp.GetNamespace("MAPI")
mNameSpace.GetDefaultFolder(olFolderCalendar).Display
Set mNameSpace = Nothing
Set mOutlookApp = Nothing
End Sub

On another form, I have a command button that will open and insert an appointment into the outlook calendar and can easily be modified to indert a task, journal entry etc.

Private Sub Command218_Click()
On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Add a new appointment.

Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.Start = Me!ProjectListDateExpiration
.subject = Me!ProjectName & " Listing Expiration"
.Display

End With
'Release the AppointmentItem object variable.
Set objAppt = Nothing

'Release the object variables.
Set objOutlook = Nothing
Set objRecurPattern = Nothing
'Set the AddedToOutlook flag, save the record, display
'a message.

Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub

The Me!xxxx in the code references specific field in my form and plugs that field name into the calendar event.