is this valid xml for a custom QAT

Roger

unread,

Jul 29, 2010, 11:42:52 PM7/29/10

to

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>

Ed

unread,

Jul 30, 2010, 12:21:36 AM7/30/10

to

Everything you need to know about Access Ribbons is very nicely
spelled out by Avenius Gunter's web site: www.accessribbon.com.

Roger

unread,

Jul 30, 2010, 6:00:26 AM7/30/10

to

> 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">

</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

Roger

unread,

Jul 30, 2010, 6:35:24 AM7/30/10

to

On Jul 30, 4:00 am, Roger <lesperan...@natpro.com> wrote:
> On Jul 29, 10:21 pm, Ed <e...@smbpartners.com> wrote:
>
>
>
>
>
> > On Jul 29, 11:42 pm, Roger <lesperan...@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 -

> 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