Forms

[wfchancellor]

I would like to clear a form after I have posted an appointment to Outlook. The way it is now, after the appointment is sent to Outlook, the data fields stay polulated and I cannot save another appoinment in that record. I patched this code from other forums.
code
Private Sub cmdAddAppt_Click()
On Error GoTo Add_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 was already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
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
.Save
.Close (olSave)
End With
'Release the AppointmentItem object variable.
Set objAppt = Nothing
End If
'Release the Outlook object variable.
Set objOutlook = Nothing
'Set the AddedToOutlook flag, save the record, display a message.
Me!AddedtoOutlook = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub

my code

[June7]

Why would you 'clear' the form? Is this form bound to table? Are you saving record to table? Maybe you just need to move to new record row?

[Missinglinq]

The line

DoCmd.RunCommand acCmdSaveRecord

indicates that the Form is, in fact, Bound to a Table/Query. That being so, you don't want to

'save another appoinment in that record'

but rather need a New Record, as June7 suggested. That can be done with the line of code

DoCmd.GoToRecord , , acNewRec

Linq ;0)>