cbrCtl.text won't work form me. help please 1

[MFFL]

i get:

Run-time error '-2117467259(50004005)':

Method 'Text; of object'_CommandBarComboBox' failed

when i try to execute this:

Public Function CmdBarChangeText()
Dim cbr As CommandBar, Dim cbrCtl As CommandBarControl ' Set a reference to the Access menu bar
Set cbr = CommandBars(MyCommandBarName) ' Set a reference to the Print Control on the Menu Bar
Set cbrCtl = cbr.Controls("My Number&quot
cbrCtl.TooltipText = "successfully changed" ' this works
cbrCtl.Text = "Something Else" 'This causes above error
Set cbrCtl = Nothing
Set cbr = Nothing
End Function

is my problem utilizing a controlcombobox in the first place? all that is in the field is the number/year anniversary of subject
MMFL-
Mavericks Fan For Life

 

[RickSpr]

cbrCtl is declared as a CommandBarControl. CommandBarControl objects don't have a Text property, and that's why you get an error.

If you change the Dim statement to
Dim cbrCtl As CommandBarComboBox
it should work.
Rick Sprague

 

[MFFL]

RickSpr

yes, that worked great!

it must've seen so obvious to you. i'm very thankful you took the time to reply and point it out. that's why i gave you a star. MMFL-
Mavericks Fan For Life