Access.2007.VBA.Bibl..

Update Home address info.

If Nz(rstSource!HomeAddressStreet) <> “” _

Or Nz(rstSource!HomeAddressPostOfficeBox) <> “” _

Or Nz(rstSource!HomeAddressCity) <> “” _

Or Nz(rstSource!HomeAddressState) <> “” _

Or Nz(rstSource!HomeAddressPostalCode) <> “” _

Or Nz(rstSource!HomeAddressCountry) <> “” Then

strAddressType = “Home”

strSearch = “[ContactID] = “ & lngContactID _

& “ And [AddressType] = “ & Chr$(39) _

& strAddressType & Chr$(39)

Debug.Print “Search string: “ & strSearch

rstTarget.FindFirst strSearch

If rstTarget.NoMatch = True Then

Create a new contact address record in the target table.

rstTarget.AddNew

rstTarget![ContactID] = lngContactID

rstTarget![AddressType] = strAddressType

Else

rstTarget.Edit

End If

rstTarget![StreetAddress] = _

Nz(rstSource!HomeAddressStreet)

rstTarget![POBox] = _

Nz(rstSource!HomeAddressPostOfficeBox)

rstTarget![City] = _

Nz(rstSource!HomeAddressCity)

rstTarget![StateOrProvince] = _

Nz(rstSource!HomeAddressState)

rstTarget![PostalCode] = _

Nz(rstSource!HomeAddressPostalCode)

rstTarget![Country] = _

Nz(rstSource!HomeAddressCountry)

rstTarget.Update

End If

Update Other address info.

If Nz(rstSource!OtherAddressStreet) <> “” _

Or Nz(rstSource!OtherAddressPostOfficeBox) <> “” _

Or Nz(rstSource!OtherAddressCity) <> “” _

Or Nz(rstSource!OtherAddressState) <> “” _

Or Nz(rstSource!OtherAddressPostalCode) <> “” _

Or Nz(rstSource!OtherAddressCountry) <> “” Then

strAddressType = “Other”

Part II Writing VBA Code to Exchange Data between Office Components