This would be easy if I wasn't brain dead

[dhstein]

OK - I coded a subroutine from the book that looks like this:
Option Compare Database
Option Explicit
Sub BeepWarning()
Dim xBeeps As Integer
Dim nBeeps As Integer
nBeeps = 5
For xBeeps = 1 To nBeeps
Beep
Next xBeeps
End Sub



Then I selected the event to run and got this:

Private Sub btnBeep_Click()
BeepWarning()
End Sub

When I click the button I get:
Compile Error Syntax Error message

Any help would be appreciated

 

[Damon Heron]

Drop the parens in the call
BeepWarning

Damon

 

[dhstein]

Drop the parens in the call
BeepWarning

Damon




Now I get: Compile error : Expected variable or procedure, not module

 

[Steve Sanford]

It sounds like you have a standard module named "BeepWarning" and a
subroutine named "BeepWarning".

You cannot have two objects with the same name. Change one of them to a
different name. My test of your code worked fine.

HTH

 

[dhstein]

It sounds like you have a standard module named "BeepWarning" and a
subroutine named "BeepWarning".

You cannot have two objects with the same name. Change one of them to a
different name. My test of your code worked fine.

HTH

Thanks Steve - that was it.

 

[Steve Sanford]

You're welcome