Access.2007.VBA.Bibl..

rstTarget![HomeAddressStreet] = _

Nz(rstSource!HomeAddressStreet)

rstTarget![HomeAddressPostOfficeBox] = _

Nz(rstSource!HomeAddressPostOfficeBox)

rstTarget![HomeAddressCity] = _

Nz(rstSource!HomeAddressCity)

rstTarget![HomeAddressState] = _

Nz(rstSource!HomeAddressState)

rstTarget![HomeAddressPostalCode] = _

Nz(rstSource!HomeAddressPostalCode)

rstTarget![HomeAddressCountry] = _

Nz(rstSource!HomeAddressCountry)

rstTarget![OtherAddressStreet] = _

Nz(rstSource!OtherAddressStreet)

rstTarget![OtherAddressPostOfficeBox] = _

Nz(rstSource!OtherAddressPostOfficeBox)

rstTarget![OtherAddressCity] = _

Nz(rstSource!OtherAddressCity)

rstTarget![OtherAddressState] = _

Nz(rstSource!OtherAddressState)

rstTarget![OtherAddressPostalCode] = _

Nz(rstSource!OtherAddressPostalCode)

rstTarget![OtherAddressCountry] = _

Nz(rstSource!OtherAddressCountry)

rstTarget.Update

NextSourceRecord3:

rstSource.MoveNext

Loop

strTitle = “Access table created”

strPrompt = “Denormalized table of Access data (“ _

& strTable & “) created”

MsgBox strPrompt, vbInformation + vbOKOnly, _

strTitle

ErrorHandlerExit:

rstSource.Close

rstTarget.Close

Exit Function

ErrorHandler:

MsgBox “Error No: “ & Err.Number _

& “; Description: “ & Err.Description

Resume ErrorHandlerExit

End Function

Part II Writing VBA Code to Exchange Data between Office Components