MS Word and CommandBar [RESOLVED]

[Bombdrop]

Hi all need some help over here. I am placing a Cobmbox in the standard command bar in MS Word, I want to know how i can detect if the value in the combo has changed.

I have wrote the followig to fill the combo put how can i detect if the value has changed




Dim conTelList As ADODB.Connection
Dim recNames As ADODB.Recordset

Set conTelList = New ADODB.Connection

conTelList.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Lvp-web\published\websites\Ganda intranet\_databases\phone_internal2000.mdb;Persist Security Info=False"
Set recNames = New ADODB.Recordset
recNames.Open "plist1partner", conTelList



Dim objToolbar As CommandBar

Dim btnItem2 As CommandBarComboBox

Set objToolbar = CommandBars("standard")


Set btnItem2 = objToolbar.Controls.Add(Type:=msoControlComboBox, _
Temporary:=True)

With btnItem2
Do While Not recNames.EOF
.AddItem recNames(1)
recNames.MoveNext
Loop
btnItem2.ToolTipText = "Names"

End With


Thanks!!!!:thumb:

[Bombdrop]

Found out how to do it


btnItem2.OnAction = "MySub"



:wave: :thumb: :wave: