Datasheet

RAIS 3.0 Programmer’s Guide – Part I : Advanced Customization
36
AddExecutableMenu v, "Calculations", "Calculations"
AddExecutableMenu v, "Local Settings", "Options"
AddExecutableMenu v, "Backend Connection", "Connection"
AddExecutableMenu v, "About RAIS 3.0", "About"
Set v = Nothing
by this code section
Set v = AddPopupMenu(m, "Tools")
AddExecutableMenu v, "Search Tool", "Search"
AddExecutableMenu v, "Calculations", "Calculations"
AddExecutableMenu v, "Local Settings", "Options"
AddExecutableMenu v, "Backend Connection", "Connection"
AddExecutableMenu v, "About RAIS 3.0", "About"
Set v = AddPopupMenu(m, "Custom Menu")
AddExecutableMenu v, "Custom – Hello World", "Custom – Hello World"
Set v = Nothing
Next locate the function Menu_Loader() in the module [RAIS Loader]. Replace the code
section
ElseIf s = "About" Then
DoCmd.OpenForm "About", , , , , acDialog
Else
by this code section
ElseIf s = "About" Then
DoCmd.OpenForm "About", , , , , acDialog
ElseIf s = "Custom – Hello World" Then
DoCmd.OpenForm "Custom – Hello World", , , , , acDialog
Else
The new standard menu we have created in the previous section is accessible to everyone,
because no permissions have been defined. Let us assume this menu point shall only be
accessible to RAIS Regulators. RAIS Administrators Users and Guest shall not be allowed to
activate this menu point and thus load the custom form. Open the RAIS Creator in design
mode and locate the function EnableMenusToGroups(b As Boolean) in the module [RAIS
Settings]. Replace the code sections
CommandBars("RAIS Menu Bar").Controls(1).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(2).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(3).Enabled = Not b