Warning/Startup Forms - Problem

[Bugsy]

I recently created a db for work and wanted a warning form to be shown if a
particular event happened on the day it was opened, or conversely a 'No
Events' msg box. 'Allen' kindly supplied me the code to do this however I now
need to activate the switchboard after the msg box 'OK' button has been
clicked. The code I am currently using is below and any help would be
greatly appreciated:

Private Sub Form_Open(Cancel As Integer)
If Me.Recordset.RecordCount = 0 Then
'MsgBox "No Events"
Cancel = True
End If
End Sub

 

[Golfinray]

Type
DoCmd.openform "switchboard"
after the end if should work

 

[Bugsy]

Excellent 'Golfinray' that worked spot on thanks very much ;o)