Access.2007.VBA.Bibl..

Create a new contact record in the target table.

rstTarget.AddNew

rstTarget![CustomerID] = strCustomerID

rstTarget![ContactID] = CLng(strCustomerID)

Else

rstTarget.Edit

End If

rstTarget![Prefix] = 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![GovernmentID] = _

Nz(rstSource!GovernmentIDNumber)

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

rstTarget![ManagerName] = _

Nz(rstSource!ManagerName)

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

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

rstTarget![LastUpdated] = Now

Special handling for attachments.

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.Update

rstTarget.Close

UpdateContactAddresses:

Part II Writing VBA Code to Exchange Data between Office Components