Example: Entering a Module

You can determine whether the user can enter or switch to an ALM module.

Add the following code to the CanEnterModule event procedure, which is triggered before the user enters or switches to an ALM module.

Function CanEnterModule(ModuleName)
  On Error Resume Next
  result = MsgBox("Do you want to enter "+ModuleName+"?", vbYesNo)
  Select case result
     case vbNo
         CanEnterModule = false
     case vbYes
         CanEnterModule = DefaultRes
  End Select
  On Error GoTo 0
End Function