Splitting Database

  • Thread starter Konchetta via AccessMonster.com
  • Start date
K

Konchetta via AccessMonster.com

I have completed the process for splitting my database with the assistance of
this forum. But I realized that my code to post an appointment to the Outlook
Calendar was no longer working. It gave me the message: "Compile Error: User-
defined type not defined" and highlighted "Dim outobj As Outlook.Application.
" of the code. So I looked at my references and realized that all were not
transferred over to the new databases so I began to add the ones I had in the
actual database. But now when I add the following reference - Microsoft DAO 3.
6 Object Library, it gives me the following error: "Name Conflicts with
existing module, project or object library." I am clueless as to why now
this reference will not take.

This is my code

Private Sub AddAppt_Click()
On Error GoTo AddAppt_Err
' Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
' Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment already added to Microsoft Outlook"
Exit Sub
' Add a new appointment.
Else
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)

With outappt
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!LHFAOfficer
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = _
Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!Reminderminutes
.ReminderSet = True
End If
.Save
End With
End If
' Release the Outlook object variable.
Set outobj = Nothing
' Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlook = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added to Outlook!"
Exit Sub
AddAppt_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub
 
K

Konchetta via AccessMonster.com

And the Reference "Microsoft Calendar Control 2007 is NOT available. Where
did it goooo?
 
K

Konchetta via AccessMonster.com

I found the Microsoft Calendar Control 2007 reference
And the Reference "Microsoft Calendar Control 2007 is NOT available. Where
did it goooo?
I have completed the process for splitting my database with the assistance of
this forum. But I realized that my code to post an appointment to the Outlook
[quoted text clipped - 49 lines]
Exit Sub
End Sub
 
K

Konchetta via AccessMonster.com

Figured it out with the help of other posts. Especially Mr. Steele again!!
Thanks!!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top