OK here goes,

Here's my code ,don't laugh.
This is done in Access to transfer to OUtlook.
My problem is that I thought once the for loop closed that the itm.FullName
that I matched would close also.Down where the With itm code is placed is
where I'm having Trouble. I originally had the with itms code inside the
If strDecision = "0" Then ' User wishes to to Overwrite an itm.  loop.

I then got an if without else error message.

When I moved it out of the loop the message went away but I don't think the
code works the way I have it.

Thanks

Again  Carol

Private Sub cmdOutlookExport_Click()

'Declare the pfld variable as Public so it can be set in one procedure

'and used in another

Dim fld As Outlook.MAPIFolder

Dim appOutlook As Outlook.Application

Dim nms As Outlook.NameSpace

Dim itms As Outlook.Items

Dim itm As Outlook.ContactItem

Set appOutlook = CreateObject("Outlook.Application")

Set nms = appOutlook.GetNamespace("MAPI")

Set fld = nms.GetDefaultFolder(olFolderContacts) 'Set what kind of folder

Set itms = fld.Items 'Outlook folder item

On Error GoTo ErrorHandler

Dim strCustomerID As String

Dim strFName1 As String

Dim … All the rest of the variables that I wish to transfer to.

strCustomerID = Parent!txtCustomerID

strFName1 = FirstName_Concatenate_For_Outlook()

… assign all the other variables here

'Check Outlook for duplicates

For Each itm In itms

   If strLName1 = itm.LastName Then

      strNameList = strNameList & ";" & itm.FullName

   End If

Next

If strNameList = "" Then

   MsgBox "Looped through list" & strNameList & " is strNameList"

End If

If strNameList <> "" Then

   DoCmd.OpenForm "frmDuplicateValue", OpenArgs:=strNameList,
WindowMode:=acDialog

   'Stop here and wait until form goes away

   'MsgBox "This should only be triggered if duplicate value found"

   If Not IsLoaded("frmDuplicateValue") Then

           MsgBox "Update has been canceled."

           Exit Sub

   End If 'Not Is Loaded

   strDecision = Forms("frmDuplicateValue").Tag

   DoCmd.Close acForm, "frmDuplicateValue"

End If 'strNameList<>""

'Separate the option from the FullName

strNameList = Mid(strDecision, 2)

strDecision = Replace(strDecision, Mid(strDecision, 2), "")

If strDecision <> "N" And strDecision <> "0" Then

‘ This means that the user wishes to update the information rather than
make new or overwrite.

 For Each itm In itms

   'Debug.Print itm.FullName

    If strNameList = itm.FullName Then

      Debug.Print itm.FullName & " is found"

      With itm

        If Len(.CustomerID) = 0 Then .CustomerID = strCustomerID

        If Len(.FirstName) = 0 Then .FirstName = strFName1

           … All the other fields to update here.

        .Save

        End With

        MsgBox "Contact Updated Successfully"

       Exit Sub

   End If   'strNameList = itm.FullName

Next

End If 'strDecision <> "N" And strDecision <> "0"

If strDecision = "0" Then ' User wishes to to Overwrite an itm.

   For Each itm In itms

     If strNameList = itm.FullName Then

     End If   'strNameList = itm.FullName

   Exit For

   Next

   With itm   ' This is where I want to use either this with itm to
overwrite or the one following to add.

Else ' if decision is new

  Set itm = itms.Add

  With itm

End If   'strDecision = "0"

  'Write values from variables to fields in the new Contact item

        'Standard Contact fields

        .CustomerID = strCustomerID

        .FirstName = strFName1

           … All the other fields to deal with…

        .Close (olSave)

      End With

       MsgBox " Contact exported! from Form"

ErrorHandlerExit:

  Exit Sub

ErrorHandler:

  MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description

  Resume ErrorHandlerExit

End Sub