<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
<ribbon startFromScratch="true">
the accde still has the pesky 'Tell me what you want to do'
<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="onRibbonLoad">
<ribbon startFromScratch="true">
<tabs>
<tab id="Fusion" label="Fusion">
<group id="FusionGroup" label="Time and Attendance">
<button id="Appicon" getImage="GetImageCallBack" size="large"
tag="frmTAA" onAction="ribOpenTagForm"/>
<labelControl id="UserId" getLabel="GetUserNameRibbon"/>
<labelControl id="AppVersion" getLabel="GeAppVersionRibbon"/>
<labelControl id="DataSouce" getLabel="GeDataSourceRibbon"/>
</group>
<group id="Rota" label="Rota">
<button id="WeeklyRota" label="Weekly Rota"
size="large" supertip="Input/Edit Weekly Rota" imageMso="EditForm"
tag="frmRotaSQL" onAction="ribOpenTagForm" getEnabled="ControlEnabled"/>
<button id="SEI" label="Self Employed Instructors"
size="large" supertip="Input/Edit Self Employed Instructors" imageMso="ContactPictureMenu"
tag="frmRotaSEI" onAction="ribOpenTagForm" getEnabled="ControlEnabled"/>
<button id="StaffOverview" label="Staff Overview"
size="large" supertip = "View month staff summary" imageMso="SideBySide"
tag="frmSO" onAction="ribOpenTagForm" getEnabled="ControlEnabled"/>
<button id="ActivityOverview" label="Activity Overview"
size="large" supertip = "View month activity summary" imageMso="SideBySide"
tag="frmAO" onAction="ribOpenTagForm" getEnabled="ControlEnabled"/>
<button id="RotaSummary" label="Rota Summary"
size="large" supertip = "View month rota summary" imageMso="SideBySide"
tag="frmSummary" onAction="ribOpenTagForm" getEnabled="ControlEnabled"/>
<button id="RotaClock" label="Rota vs Clock"
size="large" supertip = "View weekly clocking comparison" imageMso="ChangeWorkingTime"
tag="frmClocking" onAction="ribOpenTagForm" getEnabled="ControlEnabled"/>
</group>
<group id="Admin" label="Admin" getVisible="GetVisibleCallBack">
<button id="Permissions" label="Permissions" tag="frmUsers"
size="normal" supertip= "User Permissions" onAction="ribOpenTagForm"/>
<button id="Messaging" label="Messaging"
size="normal" supertip="Check incoming messages from users"/>
<button id="SysSettings" label="System Settings" tag="frmAttributes"
size="normal" supertip="View/Change system settings" onAction="ribOpenTagForm"/>
<button id="XLImport" label="Excel Import" tag="frmRotaStaging"
size="normal" supertip="Import from Excel Rota" onAction="ribOpenTagForm"/>
<button id="JobFamilies" label="Job Families" tag="frmJFA"
size="normal" supertip="Assign Job Families to Activities" onAction="ribOpenTagForm"/>
<button id="SiteLocks" label="Site Locks" tag="frmUnlockSites"
size="normal" supertip="Unlock completed Rotas" onAction="ribOpenTagForm"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
<ribbon startFromScratch="true">
of my Ribbon XML
Private Sub optMode_AfterUpdate()
Dim db As DAO.Database
Dim strSQL As String
Dim rst As DAO.Recordset
Dim strXML As String
On Error GoTo proc_err
Set db = CurrentDb
If Me.optMode Then
strSQL = "UPDATE tblSystem SET Mode='Dev'"
Else
strSQL = "Update tblSystem Set Mode='Prod'"
End If
db.Execute strSQL
ChangeProperty "StartupShowDBWindow", dbBoolean, Me.optMode
'ChangeProperty "AllowBuiltinToolbars", dbBoolean, Me.opgMode
ChangeProperty "AllowFullMenus", dbBoolean, Me.optMode
ChangeProperty "AllowBypassKey", dbBoolean, Me.optMode
ChangeProperty "AllowShortcutMenus", dbBoolean, Me.optMode
ChangeProperty "AllowSpecialKeys", dbBoolean, Me.optMode
'Get the XML we want for main ribbon
If IsDev() Then
strSQL = "Select RibbonXML from tblRibbons where RibbonName='Dev'"
Else
strSQL = "Select RibbonXML from tblRibbons where RibbonName='Users'"
End If
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
strXML = rst(0)
rst.Close: Set rst = Nothing
'Put the XML in USysRibbons
strSQL = "Select * from USysRibbons where RibbonName='Baba'"
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
rst.Edit
rst!RibbonXML = strXML
rst.Update
rst.Close: Set rst = Nothing
MsgBox "System startup set to " & IIf(IsDev(), "Developer", "Production"), vbInformation, fusion_dialogue_title
proc_exit:
Exit Sub
proc_exit_false:
GoTo proc_exit
'
proc_err:
Select Case ErrHand()
Case ErrAbort
Resume proc_exit_false
Case ErrRetry
Resume
Case ErrIgnore
Resume Next
End Select
End Sub
It will have no design features for the user to access.