button voor afspraak op acces formulier

[gregortman]

Beste mensen,

ik had een tijdje een button die een afspraak formulier opende van outlook
deze werkte met de volgende code

Dim appOutlook As Outlook.Application
Dim appointment As Outlook.AppointmentItem

Sub NieuweAfspraak()

Set appOutlook = New Outlook.Application
Set appointment = appOutlook.CreateItem(olAppointmentItem)
appointment.Display

Set appOutlook = Nothing
Set appointment = Nothing


End Sub

dit heeft een tijd goed gewerkt totdat ik op de button drukte en de volgende fout melding kreeg: compileerfout: een door de gebruiker gedefinieerde gegevenstype is niet gedefinieerd

ik heb een module waar ik het volgende heb:

Option Compare Database

Dim appOutlook As Outlook.Application
Dim Contact As Outlook.ContactItem
Dim mail As Outlook.MailItem
Dim appointment As Outlook.AppointmentItem


Sub NieuweAfspraak()

Set appOutlook = New Outlook.Application
Set appointment = appOutlook.CreateItem(olAppointmentItem)
appointment.Display

Set appOutlook = Nothing
Set appointment = Nothing


End Sub
Sub nieuwbericht()

Set appOutlook = New Outlook.Application
Set mail = appOutlook.CreateItem(olMailItem)
mail.Display

Set appOutlook = Nothing
Set mail = Nothing


End Sub

Sub nieuwecontact()

Set appOutlook = New Outlook.Application
Set Contact = appOutlook.CreateItem(olContactItem)
Contact.Display

Set appOutlook = Nothing
Set Contact = Nothing

End Sub

wie weet wat het probleem zou kunnen zijn

bij voorbaat dank

G.Tempelman

 

[OctaFish]

Heb je al geprobeerd om de db te compileren vanuit het VBA scherm? (<Foutopsporing>, <db Compileren>) Dan geeft accces wel aan waar een fout zit.
Het kan zijn, dat er een bibliotheek ontbreekt. <Extra>, <Verwijzingen>

 

[gregortman]

button outlook

Na wat ploeteren gisteren ben ik er zelf uitgekomen

Oplossing was dat de declaratie in private sub stond, deze heb ik gewijzigd naar public sub

en er ontbrak inderdaad een verwijzing naar MSOUTL.OLB

Ik heb de verwijzing gemaakt en het werkte weer als vanouds