foute datum in outlook na import uit access

Status
Niet open voor verdere reacties.
Dan zul je eerst de code moeten laten zien die je gebruikt; het kan zijn dat je exportdatum niet de goede opmaak heeft.
 
code

ik maak gebruik van onderstaande code

Private Sub cmdAddAppt___Click()
On Error GoTo Add_Err

DoCmd.RunCommand acCmdSaveRecord

If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
Else
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!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt

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

Set objRecurPattern = .GetRecurrencePattern

With objRecurPattern
.RecurrenceType = olRecursWeekly
.Interval = 1

.PatternStartDate = #7/9/2003#
.PatternEndDate = #7/23/2003#
End With

.Save
.Close (olSave)
End With
Set objAppt = Nothing
End If


Set objOutlook = Nothing


Me!AddedToOutlook = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"

Exit Sub

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

Bijlagen

  • frm-appointment.jpg
    frm-appointment.jpg
    81,6 KB · Weergaven: 25
rbouwman,

Je gebruikt in je code vast omschreven data, terwijl je naar de data op het formulier moet verwijzen.

Jouw code gedeelte met vaste datum in amerikaanse opmaak (mm,dd,yyyy):
Code:
.PatternStartDate = #7/9/2003#
.PatternEndDate = #7/23/2003#
moet zijn:
Code:
.PatternStartDate = Me!ApptDate
.PatternEndDate = Me!ApptEnd (Kan in de afbeelding niet zien of er nog Date achter staat, anders is het Me!ApptEndDate).

Groeten, Paul
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan