Access.2007.VBA.Bibl..

rstTarget.AddNew

rstTarget![CustomerID] = Nz(rstSource!CustomerID)

strTargetCustomerID = rstTarget![CustomerID]

rstTarget![CompanyName] = _

Nz(rstSource!CompanyName)

rstTarget![Account] = Nz(rstSource!Account)

rstTarget![Categories] = Nz(rstSource!Categories)

rstTarget![OrganizationalIDNumber] = _

Nz(rstSource!OrganizationalIDNumber)

rstTarget![WebPage] = Nz(rstSource!WebPage)

rstTarget![FTPSite] = Nz(rstSource!FTPSite)

rstTarget![Title] = Nz(rstSource!Title)

rstTarget![FirstName] = Nz(rstSource!FirstName)

rstTarget![MiddleName] = Nz(rstSource!MiddleName)

rstTarget![LastName] = Nz(rstSource!LastName)

rstTarget![Suffix] = Nz(rstSource!Suffix)

rstTarget![Nickname] = Nz(rstSource!Nickname)

rstTarget![Department] = Nz(rstSource!Department)

rstTarget![JobTitle] = Nz(rstSource!JobTitle)

rstTarget![AssistantName] = Nz(rstSource!AssistantName)

rstTarget![Birthday] = Nz(rstSource!Birthday)

rstTarget![Anniversary] = Nz(rstSource!Anniversary)

rstTarget![Children] = Nz(rstSource!Children)

rstTarget![GovernmentIDNumber] = _

Nz(rstSource!GovernmentIDNumber)

rstTarget![Hobby] = Nz(rstSource!Hobby)

rstTarget![ManagerName] = Nz(rstSource!ManagerName)

rstTarget![Profession] = Nz(rstSource!Profession)

rstTarget![Spouse] = Nz(rstSource!Spouse)

Use special handling for attachments, calling another procedure:

Set rstSourceAttachments = _

rstSource![Attachments].Value

If rstSourceAttachments.RecordCount > 0 Then

Set rstTargetAttachments = _

rstTarget![Attachments].Value

Call CopyAccessAttsToAccess(rstSourceAttachments, _

rstTargetAttachments)

Else

rstSourceAttachments.Close

End If

rstTarget![LastUpdated] = Nz(rstSource!LastUpdated)

rstTarget.Update

rstSource.MoveNext

Loop

rstSource.Close

Synchronizing Access and Outlook Contacts 11