ACC95: Missing Variable Declarations in Rate Function Example

MORE INFORMATION

Steps to Reproduce Behavior

1. Open the sample database Northwind.mdb.
2. Create a module and type the following line in the Declarations section:

   Option Explicit

3. Type the following procedure:

         Function TryRate()
   
         End Function
   						

4. Search the Help Index for Rate function and open the topic.
5. Click the Example link at the top of the Rate Function Help topic.
6. Select the sample code, and then press CTRL+C to copy the contents to the Clipboard.
7. Close the Rate Function Example and Rate Function Help windows.
8. Place the insertion point in your module under the Function TryRate() line and press CTRL+V to paste the example. The function now looks as follows:

         Function TryRate()
         Const ENDPERIOD = 0, BEGINPERIOD = 1    ' When payments are made.
         Fmt = "##0.00"  ' Define percentage format.
         FVal = 0    ' Usually 0 for a loan.
         Guess = 0.1 ' Guess of 10 percent.
         PVal = InputBox("How much did you borrow?")
         Payment = InputBox("What's your monthly payment?")
         TotPmts = InputBox("How many monthly payments do you have to make?")
         PayType = MsgBox("Do you make payments at the end of the month?", _
            vbYesNo)
         If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
   
         APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) *
            100
         MsgBox "Your interest rate is " & Format(CInt(APR), Fmt) & "
            percent."
         End Function
   						

9. On the Run menu, click Compile Loaded Modules. Note that you receive the error message:
   Variable not defined