Beginning Access 2000 VBA

In the database icecream.mdb in the root directory of the installation for
the book's files, most readers will see the message "Error in loading dll".
It happens when trying to go into the VBE, when trying to close Access 2000,
and at some other times. If the References dialog is opened from the Tools menu in the VBE, the following entry will be seen: "MISSING: Microsoft
ActiveX Data Objects 2.1 Library". This will occur even though the path to
msado15.dll will be correct. This is due to a glitch in the references for
this particular project. To correct this, in the References dialog,
deselect the "Missing" entry and click OK to apply the deletion. Then, open
the References dialog again, and scroll down to Microsoft ActiveX Data
Objects 2.1 Library. Select it, click OK to apply the selection, then save
the database. You shouldn't see the error any longer.

Note that this doesn't occur on any of the other databases for the book.

Submitted by: David Liske
Tech Reviewer, Beginning Access 2000 VBA

The second exercise should include the phrase 'event handlers' rather than 'even handlers'. The whole paragraph should read:

Take some time to read through the list of events and their uses. You will find that some events are more useful than others - in other words, you will find yourself writing custom event handlers for some events more often than for other events. Look at the list and try to think about which events you would most commonly handle with custom event handlers.

Thanks to Heather Wainwright

The code at the bottom of the page has two unnecessary Else statements. It should simply read as follows:

Function MakeIceCream(Optional CocoaToBeAdded As Variant, _
Optional VanillaToBeAdded As Variant) As String

If IsMissing(CocoaToBeAdded) Then
CocoaToBeAdded = True
End If

If IsMissing(VanillaToBeAdded) Then
VanillaToBeAdded = True
End If



Thanks to Chris Kennedy

In the table at the foot of this page the third value given in the left-hand column should read '22.345' rather than '12.345 + "10"' as stated.

Thanks to Terry Franklin

The code in bullet 2 should read:

Sub DateTest()
Dim datDec As Date
Dim datMay As Date

datMay = #5/1/1998#
datDec = #12/1/1998#

Debug.Print DatePart("m", datDec)
Debug.Print DateDiff("m", datMay, datDec)

Debug.Print "August is " & DateAdd("m", 3, datMay)
End Sub



Thanks to Michael Payne

n step 3 the line

Option Explicit

should be included in the General Declarations section.
Also the subroutine TestLocal should be declared as Public rather than Private. The code should then look like this:

Public Sub TestLocal()
Procedure1
Procedure2
Procedure1



Thanks to Charles E. Brown

Step 1 should have the following lines highlighted:

The last line of code at the bottom of the page should read as:

?CurrentDB().Name


Thanks to W.Xie

The following statement is incorrect:

"This is the default type for any Recordset objects where the records come
from a single local or attached Access tables."

It should read as:

"This is the default type for any Recordset objects where the records come from a single local Access table."


Many thanks to Mike MacSween

Code should read as:

Sub FindByPrice(curPrice As Currency)

Dim db As Database
Dim rec As Recordset
Dim strSQL As String
Dim strMatches As String
Dim intCounter As Integer

strSQL = "tblSales"

Set db = CurrentDb()
Set rec = db.OpenRecordset(strSQL, dbOpenSnapshot)

rec.FindFirst "AmountPaid = " & curPrice
Do While rec.NoMatch = False
intCounter = intCounter + 1
strMatches = strMatches & Chr$(10) & rec("SalesID")
rec.FindNext "AmountPaid = " & curPrice
Loop

Select Case intCounter
Case 0
MsgBox "No orders cost " & FormatCurrency(curPrice)
Case 1
MsgBox "The following order cost " & _
FormatCurrency(curPrice) & " : " & _
Chr$(10) & strMatches
Case Else
MsgBox "The following " & intCounter & " orders cost " & _
FormatCurrency(curPrice) & " : " & _
Chr$(10) & strMatches
End Select

rec.Close

End Sub





Thanks to Richard Giambrone

In bullet point 4 at the bottom of the page the Function declaration should read as:

Function BuildResultsTable(strSQL As String, _
strTableName As String, _
lngRecordsAffected As Long) As Boolean


Thanks to W.Xie

n section 13 at the bottom of the page the code should read as follows:

txtValue = ""

With m_rptSales
.Filter = ""
.FilterOn = False
.txtFilter.Visible = False
.lblFilter.Visible = False
End With



Thanks to Michael Payne

The code in point 3 at the top of the page should read as follows:

Dim prpCriteria As Property
Dim intWHEREPos As Integer
Dim tdf As TableDef

In addition, the first four lines of highlighted code in point 4 should read as:

'Now add a custom property to the table to hold the criteria
db.TableDefs.Refresh
Set tdf = db.TableDefs(sTableName)
Set prpCriteria = tdf.CreateProperty("Criteria")

On the botton of page 444 says

n point 5 the first line should read:

Public Property Get MeanDelay() As Double

and not
Public Property Get MeanDelay() As Integer



Thanks to Gordon Wilmot

It appears the Order.dot template you need to run the "Creating a Word Document" Try It Out in Chapter 15 was omitted from the CD. We have added it to the code download section for the book on this site. Apologies if this caused any inconvenience.

Peter Morgan

At the bottom of page 540, two variables are declared as follows:
Private Const m_strDIR As String = ???C:\BegVBA\???
Private Const m_strTEMPLATE As String = ??? Order.dot???
However, the CreateOrderLetter code at the top of page 541 shows a variable that is not declared, g_strTEMPLATE:
Set m_objWord = New Word.Application
Set m_objDoc = m_objWord.Documents.Add(m_strDIR & g_strTEMPLATE)
The variable g_strTEMPLATE at the top of page 541 needs to be changed to m_strTEMPLATE, as in:
Set m_objWord = New Word.Application
Set m_objDoc = m_objWord.Documents.Add(m_strDIR & m_strTEMPLATE)
This is also how this variable is used in the code in IceCream15.mdb, which works correctly.
Submitted by: Pat Eisner
ZDU/SmartPlanet Student

***Note that the same errata occured on page 544 (bottom line) and page 545 (half-way down the page).

THe SELECT statement in the code snippet on this page should read as:

Else
strSQL = "SELECT * FROM qryxSalesSummary WHERE CompanyName=""" & _
cboCompany.Column(1) & """"

The SELECT statement towards the bottom of the page should read as follows:


Else
strSQL = "SELECT * FROM qryxSalesSummary WHERE CompanyName=""" & _
cboCompany.Column(1) & """"

The portion of code that verifies the new password does not exit the
function if the check fails, but carries on and changes the password
anyway. The code segment at the the top of page 594 should read:

If strNew <> strVerify Then
MsgBox "Your new password and the verification of your " & _
"new password do not match. " & _
vbCrLf & vbCrLf & _
"Please try again.", vbExclamation
GoTo ChangePassword_Exit


Thanks to Gordon Clark

Dave Sussman comments....

The code should read as follows:

Public Property Let Height(dblParam As Double)
dblHeight = dblParam
Sides(1).Length = dblParam
Sides(3).Length = dblParam

End Property

Public Property Let Width(dblParam As Double)
dblHeight = dblParam
Sides(2).Length = dblParam
Sides(4).Length = dblParam

End Property



Thanks to David Sussman

The code on p709 should read as follows:

Dim clsUser As New cUser

'set the user name - this reads in the current user
'password and last change date
clsUser.Name = CurrentUser()

'see if the password needs changing
If clsUser.PasswordNeedsChanging Then
'password has expired so force a password change
DoCmd.OpenForm "frmPasword", . . .
End If

'change the password
If clsUser.PasswordChange ("OldPassword", "NewPassword", strResult) = True Then
MsgBox "Password change succeeded."
Else
MsgBox strResult
End If




Thanks to David Sussman