Unknown Error

[Lou_Reed]

I am writing the following coded in the VB Editor of MS Access 2010

Sub TestErrRaise2(intValue1 As Integer, intValue2 As Integer)
  On Error GoTo HandleError
  Dim intResult As Integer
  If intValue2 <> 0 Then
   ' calculate result by dividing first value by second value
   intResult = intValue1 / IintResult2
  ElseIf intValue2 = 0 Then
   ' raise a custom divide by 0 error
   Err.Raise vbOjectError + 513, "TestErrRaise", _
     "The second value cannot be a 0."
  End If
Exit Sub
HandleError:
   MsgBox "An error has occurred in your application: " & Err.Description
   Exit Sub
End Sub

This is just variation on some code I found in a tutorial.
Now when I try to run it I get

"compile error expected =".

What is wrong?

Any help appreciated. Thanks in advance.


Respectfully,

Lou Reed

[Lou_Reed]

Okay, I got one of them. I changed the

line

intResult = intValue1 / IintResult2

to

intResult = intValue1 / intValue2

It has not removed all errors but it did remove one.


Now what about

Err.Raise vbOjectError + 513, "TestErrRaise", _

It does not like that line.

What is wrong with it.

Thanks in advance.

Respectfully,


Lou Reed

[Lou_Reed]

It now says that

vbOjectError

is undefined.

R,

Lou Reed

[John_G]

Now when I try to run it I get "compile error expected =".

Do you compile your code whenever you make changes? That error message indicates you don't. You should ALWAYS compile your code after making even small changes; sometimes small changes aren't so small.

Spelling mistake - it's vbObjectError, not vbOjectError

[Lou_Reed]

Okay, I got it. I thought that I took care of that error. thanks for your help.

Respectfully,

Lou Reed