Ribbon Creator

[NigelShaw]

I don't think so as I believe the structure is different. I think your problem is with the tags and the use of the ;= as I haven't seen that method in 2007 ribbons before. Try taking them out and then testing.

Are you using the IDBE 2007 or 2010 ribbon creator?

Cheers

 

[speakers_86]

2010. I just tried installing 2007, and it gave me an error. I don't know if it's because I have Ribbon Creator 2010 installed, or because I dont have A2007 installed.

But looking at this it looks like Ari is right.

 

[vbaInet]

Yep, your DTD schema was incorrect. If you're running your Access 2007 db in Access 2010 I would imagine you will use the Access 2007 DTD schema.

What version is your db and what version are you running it on?

 

[speakers_86]

Its a 2000 db running on both 2007 and 2010. I am trying to avoid as many compatibility issues as possible. What would an earlier version of access, like 2000 do with all this code for a ribbon? Just ignore it?

 

[NigelShaw]

Access 2000 doesn't support ribbons. Is it 2007 you want it to work on? If so I don't mind doing it for you and supplying the db with it working. If it needs to work for both versions then that might be a select case on the version? Don't know if that would work or not but it should if it was set in the Ribbon onLoad

Let me know



Cheers

N

 

[vbaInet]

As Nige has told you ribbons won't work if the db is a 2000 version.

 

[speakers_86]

That would actually be pretty phenomenal of you!

Relevant objects are the xml table, basRibbonGlobals, and mdlRibbon. There is also mdlRibbonCallbacks, but it is all commented out.

I got this stuff working:
btn1 should open frmDatabaseObjects
btn2 should close all objects
btn3 should close all objects and start the AutoExec
exb1 should open frmDatabaseObjects, and search the subform for the entered text in ObjectName.

I have been struggling with the dropdowns:
ddc1 Recordsource is qryGroup2Group1Ribbon.Group2
ddc2 Recordsource is qryGroup3Group1Ribbon.Group3
ddc3 Recordsource is qryGroup1NullYourObjects.Group1
ddc4 Recordsource is qryGroup2Group1YourObects.Group2
ddc5 Recordsource is qryGroup3Group1YourObjects.Group3

When a dropdown is selected, it should open frmDatabaseWindow and search the subform for the selected text in the appropriate group.

If this is too much, I am sure I could figure it out if you just do one of the dropdowns for me!

 

[speakers_86]

I knew I would forget to upload it! I had to delete some stuff to shrink it.

 

[NigelShaw]

No probs. will be tonight though as I have work all day

Cheers

N

 

[speakers_86]

Yeah! Your so cool. Thanks.

 

[speakers_86]

I have been able to get ddc1 to work, but as soon as I try and get them all working, I keep getting a "Subscription out of Range" error.

 

[NigelShaw]

Hi

Sorry mate, been miled out with other stuff. Will sort it out tonight uk time

Cheers

N

 

[speakers_86]

That is awesome Nigel. Any help is appreciated. Especially after such a crappy weekend.

 

[NigelShaw]

Hi,

right. Here is an updated version. I have populated 1 COMBO box with what you need and i think you should attempt the rest in the same format. There were some issues which were mainly because you were trying to create a 2007 ribbin from a 2010 tool-

The declaration at he start of the xml was wrong
there were commands in your xml that do not work in 2007
There were imageMso's that do not work in 2007

look at the code etc and let me know how you get on.


cheers

Nigel

 

[speakers_86]

Its working great, thank you so much. Now how can I nullify the drop down boxes after a change has been made? This way the user can select the same label multiple times, and the action can still occur.

edit- I am having trouble refreshing the combo boxes too. I want it to update when frmDatabaseWindow is closed. I tied this:

Private Sub Form_Close()
If (Not gobjRibbon Is Nothing) Then
    gobjRibbon.InvalidateControl "cmb"
End If
End Sub

I also tried .invalidate, and I tried both methods by themselves, with no if statement.

 

[NigelShaw]

Hi

You simply need to invalidate the control

Cmb1.InvalidateControl

You have the id incorrect.

Also
Notice I changed the dropdowns to comboboxes


Cheers

N

 

[Ari]

Hi

DropDown:

Sub OnActionDropDown(control As IRibbonControl, selectedId As String, selectedIndex As Integer)
Select Case control.ID
Case "ddc1"
DoCmd.OpenForm "frmdatabasewindow"
[Forms]![frmdatabasewindow]![frmDatabaseWindowSub].[Form].Filter = "[group2]='" & strText & "'"
gobjRibbon.InvalidateControl "ddc1"
end select
end sub

Combobox:

Sub ComboClick(control As IRibbonControl, text As String)
Dim sCName As String
Dim rs As DAO.Recordset
Select Case control.ID
Case "cmb1"
sCName = "Do something with '" & text & "'"
MsgBox sCName
gobjRibbon.InvalidateControl "ddc1"
End Select
End Sub

To clear the field of the combobox is necessary to add the attribute "getText" in your combobox

...
getText = "fncGetText"
...

Sub fncGetText(control As IRibbonControl, ByRef strText)
Select Case control.Id
Case "cmb1"
strText = ""
End Select
End Sub