is this valid xml for a custom QAT
in [Help]
|
Prev: where do I find the UsysRibbon table to add a custom ribbon
Next: access2007 runtime - opening another mdb
From: Roger on 29 Jul 2010 23:42 I added this to the ribbonXML memo field of uSysRibbons, but my QAT doesn't reflect it also, do I need to do anything else for the QAT to be displayed when running the runtime version ? <mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2006/01/ customui"> <mso:ribbon startFromScratch="true" > <mso:qat> <mso:sharedControls> <mso:control idQ="mso:FilePrintPreview" visible="true"/> <mso:control idQ="mso:SortUp" visible="true"/> <mso:control idQ="mso:SortDown" visible="true"/> <mso:control idQ="mso:FindDialog" visible="true"/> <mso:control idQ="mso:FilterAdvancedByForm" visible="true"/> <mso:control idQ="mso:FilterToggleFilter" visible="true"/> </mso:sharedControls> </mso:qat> </mso:ribbon> </mso:customUI>
From: Ed on 30 Jul 2010 00:21 On Jul 29, 11:42 pm, Roger <lesperan...(a)natpro.com> wrote: > I added this to the ribbonXML memo field of uSysRibbons, but my QAT > doesn't reflect it > also, do I need to do anything else for the QAT to be displayed when > running the runtime version ? > > <mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2006/01/ > customui"> > <mso:ribbon startFromScratch="true" > > <mso:qat> > <mso:sharedControls> > <mso:control idQ="mso:FilePrintPreview" visible="true"/> > <mso:control idQ="mso:SortUp" visible="true"/> > <mso:control idQ="mso:SortDown" visible="true"/> > <mso:control idQ="mso:FindDialog" visible="true"/> > <mso:control idQ="mso:FilterAdvancedByForm" visible="true"/> > <mso:control idQ="mso:FilterToggleFilter" visible="true"/> > </mso:sharedControls> > </mso:qat> > </mso:ribbon> > </mso:customUI> Everything you need to know about Access Ribbons is very nicely spelled out by Avenius Gunter's web site: www.accessribbon.com.
From: Roger on 30 Jul 2010 06:00 On Jul 29, 10:21 pm, Ed <e...(a)smbpartners.com> wrote: > On Jul 29, 11:42 pm, Roger <lesperan...(a)natpro.com> wrote: > > > > > > > I added this to the ribbonXML memo field of uSysRibbons, but my QAT > > doesn't reflect it > > also, do I need to do anything else for the QAT to be displayed when > > running the runtime version ? > > > <mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2006/01/ > > customui"> > > <mso:ribbon startFromScratch="true" > > > <mso:qat> > > <mso:sharedControls> > > <mso:control idQ="mso:FilePrintPreview" visible="true"/> > > <mso:control idQ="mso:SortUp" visible="true"/> > > <mso:control idQ="mso:SortDown" visible="true"/> > > <mso:control idQ="mso:FindDialog" visible="true"/> > > <mso:control idQ="mso:FilterAdvancedByForm" visible="true"/> > > <mso:control idQ="mso:FilterToggleFilter" visible="true"/> > > </mso:sharedControls> > > </mso:qat> > > </mso:ribbon> > > </mso:customUI> > > Everything you need to know about Access Ribbons is very nicely > spelled out by Avenius Gunter's web site: www.accessribbon.com.- Hide quoted text - > > - Show quoted text - thanks... after looking at this, I created a ribbon.xml with the example from the site <customUI xmlns="http://schemas.microsoft.com/office/2006/01/ customui"> <ribbon startFromScratch="true"> <qat> <documentControls> <button idMso="Copy" <button idMso="Paste" <button idMso="PrintDialogAccess" <button idMso="FileCloseDatabase" </documentControls> </qat> </ribbon> </customUI> and using loading info, I created this function Option Compare Database Option Explicit Public Function loadRibbon() Dim f As Long Dim strText As String Dim strOut As String Dim strFile As String On Error GoTo fErr f = FreeFile strFile = "c:\access\access" Open strFile & "ribbon.xml" For Input As f strOut = "" Do While Not EOF(f) Line Input #f, strText strOut = strOut & strText Loop Application.LoadCustomUI "QAT", strOut fExit: On Error Resume Next Close f Exit Function fErr: Select Case Err Case 32609 ' Ribbon already loaded Case Else errorLog "loadRibbon" End Select Resume fExit End Function and I added it to my autoexec macro and I added QAT to the ribbon name under 'current database' I know the function works by stepping through it, and I get error 32609 if I run it a second time yet when I restart the mdb, the QAT still has the default save, undo, redo options, am I missing something
From: Roger on 30 Jul 2010 06:35
On Jul 30, 4:00 am, Roger <lesperan...(a)natpro.com> wrote: > On Jul 29, 10:21 pm, Ed <e...(a)smbpartners.com> wrote: > > > > > > > On Jul 29, 11:42 pm, Roger <lesperan...(a)natpro.com> wrote: > > > > I added this to the ribbonXML memo field of uSysRibbons, but my QAT > > > doesn't reflect it > > > also, do I need to do anything else for the QAT to be displayed when > > > running the runtime version ? > > > > <mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2006/01/ > > > customui"> > > > <mso:ribbon startFromScratch="true" > > > > <mso:qat> > > > <mso:sharedControls> > > > <mso:control idQ="mso:FilePrintPreview" visible="true"/> > > > <mso:control idQ="mso:SortUp" visible="true"/> > > > <mso:control idQ="mso:SortDown" visible="true"/> > > > <mso:control idQ="mso:FindDialog" visible="true"/> > > > <mso:control idQ="mso:FilterAdvancedByForm" visible="true"/> > > > <mso:control idQ="mso:FilterToggleFilter" visible="true"/> > > > </mso:sharedControls> > > > </mso:qat> > > > </mso:ribbon> > > > </mso:customUI> > > > Everything you need to know about Access Ribbons is very nicely > > spelled out by Avenius Gunter's web site: www.accessribbon.com.-Hide quoted text - > > > - Show quoted text - > > thanks... after looking at this, I created a ribbon.xml with the > example from the site > <customUI xmlns="http://schemas.microsoft.com/office/2006/01/ > customui"> > <ribbon startFromScratch="true"> > > <qat> > <documentControls> > <button idMso="Copy" > <button idMso="Paste" > <button idMso="PrintDialogAccess" > <button idMso="FileCloseDatabase" > </documentControls> > </qat> > > </ribbon> > </customUI> > > and using loading info, I created this function > Option Compare Database > Option Explicit > > Public Function loadRibbon() > Dim f As Long > Dim strText As String > Dim strOut As String > Dim strFile As String > > On Error GoTo fErr > f = FreeFile > strFile = "c:\access\access" > > Open strFile & "ribbon.xml" For Input As f > strOut = "" > Do While Not EOF(f) > Line Input #f, strText > strOut = strOut & strText > Loop > > Application.LoadCustomUI "QAT", strOut > > fExit: > On Error Resume Next > Close f > Exit Function > > fErr: > Select Case Err > Case 32609 > ' Ribbon already loaded > Case Else > errorLog "loadRibbon" > End Select > > Resume fExit > End Function > > and I added it to my autoexec macro > and I added QAT to the ribbon name under 'current database' > > I know the function works by stepping through it, and I get error > 32609 if I run it a second time > > yet when I restart the mdb, the QAT still has the default save, undo, > redo options, am I missing something- Hide quoted text - > > - Show quoted text - found the problem this <button idMso="Copy" should be <button idMso="Copy" /> which is missing from the web page http://www.accessribbon.de/en/index.php?Access_-_Ribbons:Ribbon_XML___Controls:QAT |