Access.2007.VBA.Bibl..

rst.MoveFirst

GetDocumentsPath = rst![DocumentsPath] & “\”

rst.Close

ErrorHandlerExit:

Exit Function

ErrorHandler:

MsgBox “Error No: “ & Err.Number & “; Description: “ & _

Err.Description

Resume ErrorHandlerExit

End Function

Figure 12.7 shows a page of shipping labels.

FIGURE 12.7

A set of Word shipping labels filled with data from Access.

Part II Writing VBA Code to Exchange Data between Office Components