Access.2007.VBA.Bibl..

This opens the Document Information panel, with a few of the more common document proper- ties displayed (see Figure 2.8). FIGUR ...

FIGURE 2.10 The Doc properties for the Milano Letter (Doc Props) template. Next, place DocProperty fields in the template where ...

FIGURE 2.11 Inserting a DocProperty field. FIGURE 2.12 The first page of the Milano Letter (DocProps) template, with User inform ...

The code that creates the document with text written to doc properties is listed as follows: Private Sub cmdDocProps_Click() On ...

Try to locate the template in the default Templates folder, and put up a message if it is not found: Set fil = fso.GetFile(strTe ...

Else MsgBox “Error No: “ & Err.Number _ & “; Description: “ & Err.Description Resume ErrorHandlerExit End If End Sub ...

FIGURE 2.14 Turning on the Developer tab on the Word Ribbon. FIGURE 2.15 Opening a control’s Properties sheet. Part I The Office ...

Add the choices for the drop-down list in the Properties sheet (see Figure 2.16). To add a choice, click the Add button, enter t ...

FIGURE 2.17 Selecting an item from a drop-down content control. Summary ........................................................ ...

Y ou can print Access data directly, using Access reports, as described in Chapter 1, or you can present the data interactively ...

Exporting Access Data to an Unformatted Worksheet.......................................................... If you just need to ...

FIGURE 3.2 The Export dialog opened from the Excel command. Using qryNorthwindAllas the data source, you get the plain worksheet ...

Using a query as a data source allows you to combine data from multiple tables and also to format data as you want it to appear ...

FIGURE 3.5 A dialog form for selecting Northwind Orders data to archive. FIGURE 3.6 Selecting a date from the calendar pop-up. O ...

Dim rng As Excel.Range Dim rngStart As Excel.Range Dim strDBPath As String Dim strPrompt As String Dim strQuery As String Dim st ...

strTemplate = “Orders Archive.xltx” strTemplateFile = strDBPath & strTemplate If TestFileExists(strTemplateFile) = False The ...

rng.Value = Nz(rst![OrderID]) Set rng = rng.Offset(columnoffset:=1) rng.Value = Nz(rst![Customer]) Set rng = rng.Offset(columnof ...

ChDir strDBPath On Error Resume Next If there already is a saved worksheet with this name, delete it: Kill strSaveName On Error ...

ErrorHandler: ‘Excel is not running; open Excel with CreateObject If Err.Number = 429 Then Set appExcel = CreateObject(“Excel.Ap ...

End Function Public Function TestFileExists(strFile As String) As Boolean On Error Resume Next TestFileExists = Not (Dir(strFile ...