Errata

The text refers to "upper" and "lower" string functions, but I think this should be "ucase" and "lcase".

Note from the Author or Editor:
Change the following text on the 5th point from :-

Upper, Lower and

To :-

UCase, LCase and

The text explains how to avoid having global variables lose their values when an unhandled error occurs in the code, through the use of a function call. However the code snippet that follows shows a Sub procedure, not a function.

Existing:

Sub modGlobal_GetUsername2()
If userName = "" Then
modGlobal_SetUsername
End If
Debug.Print userName
End Sub

should be:

Function modGlobal_GetUsername2()
If userName = "" Then
modGlobal_SetUsername
End If
modGlobal_GetUsername2 = userName
Debug.Print userName
End Function

Note from the Author or Editor:
The reader has a point here, but the suggested resolution is not correct.

On page 57 change the text on line of text :-

"You can also have the function test..."

to

"You can alternatively use a subroutine to test..."

The modOutlook_ListSpecificFolder() procedure contains a minor error in the eighth line of the procedure which is printed as (quote):

For lngItem = 1 To fldOutlook.Items.Count -1

(end of quote)

Since Outlook collections are one-based, and thus not zero-based like the default basing of VBA arrays, the code as printed will miss one item while iterating through the items collection. The problem can be resolved by simply removing the subtraction of 1 at the end of the code line so that it appears as follows:

For lngItem = 1 To fldOutlook.Items.Count

Note from the Author or Editor:
Page 474, line 10

Change the line of code

For lngItem = 1 To fldOutlook.Items.Count -1

to

For lngItem = 1 To fldOutlook.Items.Count

In the code listing for the mod_ExcelReadCell function, the second comment line appears as follows (quote):

' Note we are ensuring that by using an Explicit ByVal that this routine can modify the value

(end of quote)

Even though no functionality is impaired since it appears in a comment, shouldn't the reference in the comment to the ByVal keyword be a reference to the ByRef keyword instead so that the comment is accurate?

Note from the Author or Editor:
On page 460, on line 13, change the following, change the single word ByVal to ByRef

' Note we are ensuring that by using an Explicit ByVal that this routine can modify the value

to read

' Note we are ensuring that by using an Explicit ByRef that this routine can modify the value

syntax error the procedure, sub mod_Loop_FOR() is missing the next statement in the for loop. It is present in the code sample for the book, but missing on the page.

Note from the Author or Editor:
On Page 81 at the bottom the the code section at the bottom of the page it reades :-

If lngCount > lngMaxRecords Then
Exit For
End If
rst.MoveNext
End If

This should read as :-

If lngCount > lngMaxRecords Then
Exit For
End If
rst.MoveNext
Next
End If

Before the End If there is a missing Next statement.

There is no trap in the cmdPick_Click() sub in the form class module for frmListBoxMultipleSelections2 if no item is selected.

IsNull(Me.lstProducts) Then MsgBox "No product selected": Exit Sub

added as first line of the sub would be neater.

By default no item is selected in the products list so error is fairly inevitable for the click happy user.

The reverse routine of deselecting from the selected products list seems OK. I would personally prefer an explicit test of an item being selected rather than reliance on replacement of an empty string with an empty string in the rowsource for the combo.

Note from the Author or Editor:
On Page 291, after the comment add the following line of code (note this all needs to be on a single line)

If IsNull(Me.lstProducts) Then MsgBox "No product selected": Exit Sub

The code will then look as follows :-

Private Sub cmdPick_Click()
' add current item to selected list
If IsNull(Me.lstProducts) Then MsgBox "No product selected": Exit Sub

The "Inside Out" that is after Fig. 18-2. CurserLocation has Default setting and alternative setting the same "adUseServer". Is this correct? Please excuse the lack of correct page number, just wanted to submit my question w/o being given an error message. Thanks.

Note from the Author or Editor:
Page 662 INSIDE OUT Ine text which describes the CursorLocation make the following change :-

"...the alternative setting is adUseServer..." should read "...the alternative setting is adUseClient..."

In the code example on page 46, the the compiler directive constant "Pre2007Version" is declared and initalized to "False" in the first code statement; however, it appears that the "rst" object variable is subsequently initialized to a DAO.Recordset2 object if the "Pre2007Version" constant is true, otherwise "rst" is intiialized to a DAO.Recordset object. Assuming that the implication is that the "Pre2007Version" constant declaration statement would first be modified to be intialized to "True" for a version that was released PREvious to the 2007 Verision, and considering that the DAO.Recordset2 object is not available in versions PREvious to Access 2007, isn't the logic in the directive "#IF...#ELSE" block actually a reversal of the intended logic (or is my mental process falling victim to some sort of "perception of set" fallacy?)

Note from the Author or Editor:
The following code lines on page 46 should be changed :-

Existing

#If Pre2007Version Then
Dim rst As DAO.Recordset2
#Else
Dim rst As DAO.Recordset
#End If

This should be changed to

#If Pre2007Version Then
Dim rst As DAO.Recordset
#Else
Dim rst As DAO.Recordset2
#End If