UtterAccess.com
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    
 
   
LakeGator
post Nov 5 2004, 09:24 AM
Post#1


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: 2016
 
Go to the top of the page
 
clusker2
post Sep 5 2013, 10:26 AM
Post#2



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:
CODE
Dim db As Database
Dim appts_RST As Recordset
Set db = CurrentDb
Set appts_RST = db.OpenRecordset("tblAppointments", dbOpenDynaset)
            
appts_RST.MoveFirst
Do While (Not appts_RST.EOF)
            
    If (appts_RST![AppointmentID] = Forms![frmAppointments]![AppointmentID]) Then
                
        Exit Do
    End If
    appts_RST.MoveNext
Loop

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

I then changed the If statement to look at the unique EntryID instead of the Subject:
CODE
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    18th December 2017 - 12:13 AM