X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
   Reply to this topicStart new topic
> Interfacing Access with Outlook Calendar    
post Nov 5 2004, 09:24 AM

UtterAccess VIP
Posts: 1,526
Joined: 11-January 04
From: Tampa, Florida

This is a stripped down version of an application I developed a couple of years ago for a customer who schedules events in Access to be displayed on their web site. The primary reason for sharing it here is the feature of interfacing the events in the Access Events table with Outlook appointments.
There is more information in the events than goes to Outlook but I did not strip it out. The core of the sample is the code behind the Add to Outlook and Remove from Outlook buttons. You can go into Form Design , right click on the button and select Build Event … to jump into the code in the General module.
I hope this serves as a decent sample for folks who would like to interface between Access and the Outlook Calendar.
Attached File(s)
Attached File  Calendar_Sample.zip ( 79.88K )Number of downloads: 2071
Go to the top of the page
post Sep 5 2013, 10:26 AM

Posts: 20
Joined: 30-August 13

Update Success!
found that even though the correct record was showing on the form, the code was always looking at the first record in the table, and not the record that corresponded to the one showing on the form. I removed the following code from the modify section:
Dim db As Database
Dim appts_RST As Recordset
Set db = CurrentDb
Set appts_RST = db.OpenRecordset("tblAppointments", dbOpenDynaset)
Do While (Not appts_RST.EOF)
    If (appts_RST![AppointmentID] = Forms![frmAppointments]![AppointmentID]) Then
        Exit Do
    End If

Oreplaced that code with the following statement:
DoCmd.GoToRecord acDataForm, "frmAppointments", acGoTo

I then changed the If statement to look at the unique EntryID instead of the Subject:
If InStr(outappt.EntryID, Forms![frmAppointments]![EntryID]) Then

It now will modify an existing Outlook entry! Works like a charm!
Go to the top of the page

Custom Search
RSSSearch   Top   Lo-Fi    19th October 2018 - 02:59 AM