Access.2007.VBA.Bibl..

n CategoryName

n ReadyToShip, a Boolean field with a criterion of Trueto select orders that are ready to ship

The cmdCreateLabelsevent procedure is listed here, with explanation of how it processes the
sets of labels to print:

Private Sub cmdCreateLabels_Click()

On Error GoTo ErrorHandler

Dim appWord As Word.Application

Dim blnShipPartial As Boolean

Dim dbs As DAO.Database

Dim doc As Word.Document

Dim fil As Scripting.File

Dim fso As New Scripting.FileSystemObject

Dim lngCaseNo As Long

Dim lngNoCases As Long

Dim lngCasesInStock As Long

Dim lngCount As Long

Dim lngSet As Long

Dim lngNoSets As Long

Dim lngOrderID As Long

Dim lngSetNo As Long

Dim lngSubtract As Long

Dim rstOrder As DAO.Recordset

Dim rstShip As DAO.Recordset

Dim strCategory As String

Dim strDocsPath As String

Dim strOrderDate As String

Dim lngProductID As Long

Dim strProductName As String

Dim strPrompt As String

Dim strQueryShip As String

Dim strQueryOrder As String

Dim strSaveName As String

Dim strSaveNameAndPath As String

Dim strShipAddress As String

Dim strShipCityStatePC As String

Dim strShipCountry As String

Dim strShipDate As String

Dim strShipName As String

Dim strSQL As String

Dim strSupplier As String

Dim strTemplate As String

Dim strTemplateNameAndPath As String

Dim strTemplatePath As String

Dim strTitle As String

Dim varValue As Variant

Going Beyond the Basics 12