why does not this program work?

[longmatch]

I just tried a program from ACCESS 2000 VBA HANDBOOK. Unfortunately it does not work. I would like to know the reason.

Your help is appreciated.

Haijun

Option Compare Database
Option Explicit

Public Sub Division()
Dim dblnum As Double, dblden As Double, dblResult As Double
Dim strAnswer As String
On Error GoTo Err_Division
dblnum = InputBox("Enter the numerator.&quot
Err_Denominator:
dblden = InputBox("Enter the denominator&quot
dblResult = dblnum / dblden
MsgBox "The quotient is " & dblResult

Exit_Division:
Exit Sub

Err_Division:
Select Case Err.Number
Case 13
strAnswer = MsgBox("You must enter a number. Do you want to try again?", vbYesNo)
If strAnswer = vbYes Then Resume
Case 11
strAnswer = MsgBox("You must enter a non-zero number. Do you want to try again?", vbYesNo)
If strAnswer = vbYes Then Err_Denominator:
Case Else
MsgBox "Error number: " & Err.Number & " - " & Err.Description
End Select
Resume Exit_Division
End Sub

 

[StewartGW]

Should be:

If strAnswer = vbYes Then GoTo Err_Denominator:

Not
If strAnswer = vbYes Then Err_Denominator:

Err_Demonitor is an error label not a subroutine.