This would be easy if I wasn't brain dead

  • Thread starter Thread starter dhstein
  • Start date Start date
D

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
 
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
 
Steve Sanford said:
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
Click to expand...


Thanks Steve - that was it.
 
Back
Top