Datasheet

RAIS 3.0 Programmer’s Guide – Part I : Advanced Customization
37
CommandBars("RAIS Menu Bar").Controls(5).Controls(1).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(5).Controls(2).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(5).Controls(3).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(5).Controls(4).Enabled = Not b
If BelongsToGroup(CurrentUser, "RAIS Regulators") Then
CommandBars("RAIS Menu Bar").Controls(3).Enabled = b
CommandBars("RAIS Menu Bar").Controls(2).Enabled = b
CommandBars("RAIS Menu Bar").Controls(5).Controls(1).Enabled = b
CommandBars("RAIS Menu Bar").Controls(5).Controls(2).Enabled = b
CommandBars("RAIS Menu Bar").Controls(5).Controls(3).Enabled = b
End If
by these 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
CommandBars("RAIS Menu Bar").Controls(6).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(5).Controls(1).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(5).Controls(2).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(5).Controls(3).Enabled = Not b
CommandBars("RAIS Menu Bar").Controls(5).Controls(4).Enabled = Not b
If BelongsToGroup(CurrentUser, "RAIS Regulators") Then
CommandBars("RAIS Menu Bar").Controls(6).Enabled = b
CommandBars("RAIS Menu Bar").Controls(3).Enabled = b
CommandBars("RAIS Menu Bar").Controls(2).Enabled = b
CommandBars("RAIS Menu Bar").Controls(5).Controls(1).Enabled = b
CommandBars("RAIS Menu Bar").Controls(5).Controls(2).Enabled = b
CommandBars("RAIS Menu Bar").Controls(5).Controls(3).Enabled = b
End If